PDF Export auf mehrere Seiten

Servus Leute,
ich habe ein kleines Problem. Ich leite mir heute immer mal wieder einen OnePager als PDF aus einer Excel aus, in der ich Risikobewertungen durchführe. Dazu habe ich folgenden Code verwendet:

Sub bt_Generiere_PDF()
With ActiveSheet.PageSetup
.Orientation = xlLandscape
.FitToPagesWide = 1
.FitToPagesTall = 1
End With
myFile = ThisWorkbook.Sheets("Master Input ").Range("C1").Value
ActiveSheet.ExportAsFixedFormat Type:=xlTypePDF, Filename:=ThisWorkbook.Path & "\" &  _
Format(Date, "YY-MM-DD") & "_" & myFile & "_" & "OnePager" & ".pdf" _
, Quality:=xlQualityStandard, IncludeDocProperties:=True, IgnorePrintAreas _
:=False, OpenAfterPublish:=True
End Sub

Jetzt sind die Forderungen, mehrere Tabellen in diese PDF zu exportieren. Das geht auch. Allerdings nur im Hochformat. Folglich wird alles abgeschnitten. DIe Optionen Orientation und FitToPagesWide / Tall kriege ich nicht mehr eingebunden. Wie auch immer ich es probiere. Den Code habe ich zusammengebastelt:

Sub PDF_export()
Sheets(Array("Master Input ", "OnePager basic ")).Copy
myFile = ThisWorkbook.Sheets("Master Input ").Range("C1").Value
With ActiveWorkbook
.ExportAsFixedFormat Type:=xlTypePDF, Filename:=ThisWorkbook.Path & "\" & Format(Date, "YY- _
MM-DD") & "_" & myFile & "_" & "OnePager" & ".pdf" _
, Quality:=xlQualityStandard, IncludeDocProperties:= _
True, IgnorePrintAreas:=False, OpenAfterPublish:=True
End With
Exit Sub
End Sub

Hat jemand von euch eine Idee?
Vielen Dank im Voraus für eure Hilfe

Beiträge zum Forumthread

Beiträge zu diesem Forumthread

Betreff

Datum

Anwender

Sub PDF_export() Dim wkbNeu As Workbook Dim sFilename As String, myFile As String Dim wks As Worksheet 'Dateiname für PDF festlegen, zwischenspeichern myFile = ThisWorkbook.Sheets("Master Input ").Range("C1").Value sFilename = ThisWorkbook.Path & "\" & Format(Date, "YY-MM-DD") & "_" _ & myFile & "_" & "OnePager" & ".pdf" 'zu speichernde Blätter in neue Arbeitsmappe kopieren Sheets(Array("Master Input ", "OnePager basic ")).Copy Set wkbNeu = ActiveWorkbook With wkbNeu 'Seiten-Layout anpassen For Each wks In .Worksheets With wks.PageSetup .Orientation = xlLandscape .FitToPagesWide = 1 .FitToPagesTall = 1 End With Next 'als PDF Sspeichern .ExportAsFixedFormat Type:=xlTypePDF, Filename:=sFilename, _ Quality:=xlQualityStandard, IncludeDocProperties:=True, _ IgnorePrintAreas:=False, OpenAfterPublish:=True End With 'als PDF gespeicherte Datei ohne speichern schliessen wkbNeu.Close savechanges:=False End Sub

Sub bt_Generiere_PDF() With ActiveSheet.PageSetup .Orientation = xlLandscape .Zoom = False .FitToPagesWide = 1 .FitToPagesTall = 1 End With myFile = ThisWorkbook.Sheets("Master Input ").Range("C1").Value ActiveSheet.ExportAsFixedFormat Type:=xlTypePDF, Filename:=ThisWorkbook.Path & "\" & Format( _ Date, "YY-MM-DD") & "_" & myFile & "_" & "OnePager" & ".pdf" _ , Quality:=xlQualityStandard, IncludeDocProperties:=True, IgnorePrintAreas _ :=False, OpenAfterPublish:=True End Sub

Beliebteste Forumthreads (12 Monate)

2
Beiträge zum Forumthread

Beiträge zu diesem Forumthread

306 Forumthreads zu ähnlichen Themen

Beliebteste Forumthreads (12 Monate)

Beliebteste Forumthreads (12 Monate)

PDF Export auf mehrere Seiten

2 Beiträge zum Forumthread Beiträge zu diesem Forumthread

306 Forumthreads zu ähnlichen Themen

VBA Beispiele zu verwandten Themen

Beliebteste Forumthreads (12 Monate)

Beliebteste Forumthreads (12 Monate)

2
Beiträge zum Forumthread

Beiträge zu diesem Forumthread