VBA - knap "Gem som pdf" medtager udvalgte faner, men ikke den aktuelle.
HejJeg har en excel-fil, som indeholder en del faner. I fanen "Projektkontrolplan" har jeg en knap ("Gem som pdf"), som medtager udvalgte faner, men ikke den aktuelle fane jeg befinder mig på (projektkontrolplanen). Denne "Projektkontrolplan"-fane vil jeg meget gerne have med, som den første side i pdf'en. Kan I hjælpe?
Jeg er ikke 100-meter mester i VBA og har fået assistance til programmeringen, så jeg håber på en løsning, som jeg kan få til at virke, uden at der ændres nævneværdigt på det nuværende, som virker upåklageligt.
Sub Gemsompdf()
' * ' Initialize
On Error Resume Next
' * ' Define variables
Dim FirstSheet As String
Dim WS As Excel.Worksheet
Dim PDFFile As String
PDFFile = Application.GetSaveAsFilename(FileFilter:="PDF (*.PDF), *.PDF")
If Len(PDFFile) < xlLess Then GoTo ES: ' User clicked [Cancel]
' * ' Find first sheet to export
For Each WS In ActiveWorkbook.Worksheets
If UCase$(WS.Range("H9").Value) = "GYLDIG" And WS.Visible = xlSheetVisible Then
FirstSheet = WS.Name
WS.Select
Exit For
End If
Next
If FirstSheet = "" Then GoTo ES: ' No valid worksheet found
' * ' Select the rest of the worksheets to be exported
For Each WS In ActiveWorkbook.Worksheets
If UCase$(WS.Range("H9").Value) = "GYLDIG" And WS.Visible = xlSheetVisible Then WS.Select False
Next
' * ' Create PDF
Err.Clear
ActiveSheet.ExportAsFixedFormat Type:=xlTypePDF, Filename:=PDFFile, Quality:=xlQualityStandard, IncludeDocProperties:=True, IgnorePrintAreas:=False, OpenAfterPublish:=True
If Err.Number <> 0 Then Debug.Print Err.Number & ", " & Err.Description
ES: ' End of Sub
Set WS = Nothing
Worksheets(3).Select
End Sub
På forhånd tak
Vh CHC