randlose PDF erzeugen
29.10.2019 08:00:19
Joseph
Ich habe ein Problem mit dem Erzeugen von PDFs mittels VBA aus dem Excel.
Code:
pdfName = ThisWorkbook.Path & "\" & ActiveSheet.Name & ".pdf"
ActiveSheet.ExportAsFixedFormat Type:=xlTypePDF, Filename:=pdfName, _
Quality:=xlQualityStandard, IncludeDocProperties:=True, IgnorePrintAreas:=False, _
OpenAfterPublish:=False
MsgBox ("PDF-Datei wurde exportiert!" & Chr(10) & Chr(10) & "Dateiname: " & ActiveSheet.Name & ".pdf" & Chr(10) & "Ordner: " & ThisWorkbook.Path)
Das funktioniert alles wunderbar......aber....
Ich möchte dieses PDF-File randlos abspeichern, damit es genau ein A4-Blatt füllt.
Im Excel sind alle Seitenränder auf 0 eingestellt.
Wenn ich nun einen PDF-Drucker (der kein Standarddrucker ist) einstelle und dann den Code ausführen lasse, funktioniert es bestens.
Wenn ich aber das File schliesse und wieder öffne und so der Standarddrucker automatisch eingestellt ist, wird der Rand des entsprechenden Druckers mitgedruckt und es entstehen dadurch mehrere Seiten.
Die Tabelle muss auf verschiedenen Computern laufen und ich kann beim besten Willen nicht wissen, welche PDF-Drucker dort installiert sind.
Gibt es da eine Lösung, wie ich die PDF-Files abspeichern lassen kann, ohne den Drucker umstellen zu müssen?
oder
Kann man auf Windows einen PDF-Drucker wählen - einer der auf jedem Windows-System immer installiert ist?
Ich danke euch schon jetzt für eure Hilfestellung.