PDF mehrerer Sheets generieren
08.05.2020 16:29:27
Thomas
Ich habe folgenden Fall:
Ich möchte via VBA eine Anzahl Sheets in ein Pdf exportieren. Natürlich beinhalten die Sheets mehr Inhalt, dass auf eine Seite A4 (Querformat) passt. Deshalb möchte ich die im Pdf verwendeten Sheets so formatieren, dass sie auf eine Seite reduziert werden.
Ich habe nun folgendes Problem:
* Ich schaffe es entweder ein Sheet zu formatieren
With ActiveSheet.PageSetup
.Zoom = False
.Orientation = xlLandscape
.FitToPagesWide = 1
.FitToPagesTall = 1
End With
Oder mehrere Sheets in mein Pdf zu bringen
Sub pdfBestelung_klicken()
Dim strFilePath As String
Dim arrSheets As Variant
Dim sh As Variant
With Sheets("Bestellung")
strFilePath = ThisWorkbook.path & "\Mappe3.pdf"
arrSheets = Array("Bestellung", "Planung")
For Each sh In arrSheets
Sheets(sh).Select
Sheets(sh).UsedRange.Select
Next
Sheets(arrSheets).Select
Selection.ExportAsFixedFormat Filename:=strFilePath, Type:=xlTypePDF, Quality:= _
xlQualityStandard, IncludeDocProperties:=False, IgnorePrintAreas:=False, OpenAfterPublish:=True
End With
End Sub
Ich schaffe es nicht, dass jedes Sheet exakt auf eine A4-Querformat-Seite gebracht wird.
Könnt ihr mir da helfen?
Danke und Liebe Grüsse,
Thomas