Hallo,
ich versuche, mit VBA einen Range-Bereich in PDF zu drucken (mein Standard-Drucker ist PDF24).
Das Makro braucht ca. 2 Minuten, bis die PDF-Datei generiert wird:
With ThisWorkbook.Worksheets("Bekanntmachung")
.ExportAsFixedFormat Type:=xlTypePDF, Filename:= _
ThisWorkbook.Path & "\" & "Bekanntmachung_" & ".pdf", Quality:=xlQualityStandard, _
IncludeDocProperties:=True, IgnorePrintAreas:=False, OpenAfterPublish:=True
End With
Mit xlQualityMinimum habe ich es auch versucht, aber es hat das Ganze nicht beschleunigt.
Ich habe noch Folgendes ausprobiert:
ThisWorkbook.Worksheets("Bekanntmachung").PrintOut PrToFileName:=ThisWorkbook.Path & "\" & "Bekanntmachung_" & ".pdf"
Hier wird die PDF-Datei recht fix erstellt, allerdings kann ich diese nicht öffnen, da lt. Fehlermeldung der Dateityp nicht unterstützt wird oder die Datei beschädigt ist.
Hat jemand eine Idee, was ich hier noch anpassen kann?
Mit dem ActivePrinter:="PDF24" (auch mit dem Port "auf e00") habe ich es auch ausprobiert, leider erfolglos.