Hallo zusammen,
ich habe ein Problem automatisch pdf Dateien zu erzeugen. Ich habe viele Excel Dateien und möchte, dass per Knopfdruck auf einen Button automatisch eine PDF im gleichen Ordner erzeugt wird. Ich habe nur FreePDF zur Verfügung und habe auch keine Administratorenrechte.
Es klappt soweit, dass ich FreePDF starten kann, aber es funktioniert nicht, dass ich automatisch einen Dateinamen und Speicherort festlege. Gibt es irgendeine Möglichkeit? Ich habe schon versucht in anderen Beiträgen nach Lösungen zu suchen, aber es war nichts für mich dabei.
Mein Code:
Dim sPDFName As String
Dim sPDFPath As String
sPDFName = "Test_V1.ps"
sPDFPath = ThisWorkbook.Path
Application.ActivePrinter = "FreePDF auf Ne00:"
thisworkbook.Worksheets("Muster").PrintOut copies:=1, ActivePrinter:="FreePDF auf Ne00:", printtofile:=True, collate:=True, prtofilename:=spdfpath & spdfname
Shell "V:\Programme\FreePDF_XP\freepdf.exe spdfpath & spdfname /a /d /x"
Viele Grüße,
kikimat