Hallo allerseits,
bin noch neu in Sachen (VBA)-Programmierung, daher bin ich mir sicher dass die Codes eleganter geschrieben werden hätten können. Darum geht es jetzt allerdings nicht. Das Problem ist, dass beim PDF erstellen über ExportAsFixed die Tabellen unschön angezeigt werden. Die Balken sind teilweise dick, dann wieder dünn etc. Dieses Problem habe ich auch, wenn ich von Hand ausdrucke und die PrintQuality sehr hoch (z.B. auf 4000 dpi) eingestellt ist.
Habe es auch mit SaveAs versucht, was aber zu überhaupt keinem Erfolg führte.
Zum Code:
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!
|