Guten Tag,
ich erstelle mit folgendem Skript aus einer Tabelle eine PDF.
Dim pdfName As String
pdfName = Application.GetSaveAsFilename(Environ("USERPROFILE") & "\Desktop\" & "Test" & ".pdf", "PDF-Dateien (*.pdf), *.pdf")
Sheets(Array("Issue and Risk tracking")).Copy
With ActiveWorkbook
.ExportAsFixedFormat Type:=xlTypePDF, Filename:=pdfName, _
Quality:=xlQualityStandard, IncludeDocProperties:=True, IgnorePrintAreas:=False, _
OpenAfterPublish:=True
.Close savechanges:=False
End With
End Sub
Nun wird aber nur eine einseitige PDF erstellt, also ist alles sehr klein. Besteht die Möglichkeit das Skript so zu verändern, dass die PDF mehrseitig wird?
Gruß |