PDF erstellen mit mehreren Seiten
30.03.2020 11:52:24
Walter
eine kurze Frage. Ich habe Schwierigkeiten, ein PDF mit mehreren Seiten in Excel zu erstellen. Im Moment schmeißt er mir alles auf eine Seite, ich hätte gerne aber fünf. Was mach ich falsch?
Hier der Code:
Sub PDF()
Dim SpeicherName As String
'Format
ThisWorkbook.Sheets("PDF").PageSetup.Zoom = False
ThisWorkbook.Sheets("PDF").PageSetup.FitToPagesWide = 1
SpeicherName = ActiveSheet.Range("D14").Value
ActiveSheet.Range(Cells(15, 2), Cells(78, 7)).ExportAsFixedFormat Type:=xlTypePDF, Filename:= _
SpeicherName, Quality:=xlQualityStandard, _
IncludeDocProperties:=True, IgnorePrintAreas:=False, From:=1, To:=5, OpenAfterPublish:=True
End Sub
Vielen Dank für eure Hilfe.
Walter
Anzeige