Workbooks.Open blabla, FUNKTIONIERT
Sheets(Array("Plant Report", "PC Controlling direct", "Cockpit YTD")).Select
ActiveSheet.PageSetup.PaperSize = xlPaperA4
ActiveSheet.PageSetup.PrintQuality = 600
ActiveSheet.PageSetup.LeftMargin = Application.CentimetersToPoints(1.5)
ActiveSheet.PageSetup.TopMargin = Application.CentimetersToPoints(1.5)
ActiveSheet.PageSetup.BottomMargin = Application.CentimetersToPoints(1)
ActiveSheet.PageSetup.RightMargin = Application.CentimetersToPoints(0.5)
ActiveSheet.PageSetup.HeaderMargin = Application.CentimetersToPoints(0.5)
ActiveSheet.PageSetup.FooterMargin = Application.CentimetersToPoints(0.5)
weppdf = "PFAD_IST_KORREKT.pdf"
ActiveSheet.ExportAsFixedFormat Type:=xlTypePDF, Filename:=weppdf, Quality:= _
xlQualityStandard, IncludeDocProperties:=True, IgnorePrintAreas:=False, _
OpenAfterPublish:=False
ActiveWorkbook.Close Savechanges:=True
Ich würde gern eine Beispiel PDF hochladen, dies darf ich allerdings nicht.
Ein weiteres Problem besteht in der Größe der Blätter. Obwohl alle extra als A4 definiert werden, ist das 2. Blatt größer als das 3. Blatt.
Habe wirklich schon einiges rumprobiert aber leider erfolglos.
Das Einlesen des Excel files, sowie die korrekte Benennung des erstellten PDFs funktioniert tadellos.
Wie gesagt bestehen die Probleme aus:
- Rahmen/Tabellen werden unschön angezeigt -> mal dicker/mal dünner
- Die größe der Blätter ist verschieden, wieso auch immer.
Habe auch über Google nichts spezielles zu genau diesem Problem gefunden.
Hoffe hier kann mir geholfen werden, Vielen Dank im voraus!