VBA, PDF drucken und speichern
12.05.2009 13:23:15
georg
ich habe mich früher des öfteren im Spotlight Forum herumgetrieben. Leider fehlt mir heute die Zeit mich mehr einzubringen.
Hier bei Herber ist es mein erster Beitrag. Vielen Dank dafür dass es hier eine solche Plattform gibt!
Ich habe einen kleinen Server. Auf diesem würde ich gerne eine automatische Routine hinterlegen wo mir aus einer Exceldatei ein PDF erzeugt wird. Dazu hätte ich gerne, dass diese Datei direkt abgespeichert wird und dass nicht der PDF printer geöffnet wird.
Ich habe einen Code von Ramses auf meine Bedürfnisse angepasst. Dieser folgt unten. Es wird auch eine Datei ins gewünschte Verzeichnis gestellt, aber diese hat keine Endung (RAmses hat kommentiert dass man diese nicht mitgeben darf). Die Datei ist leer, also irgendwas läuft schief.
Der Printer ist offen und es wird auch die richtige Datei dort angezeigt.
Kann mir irgendjemand auf die Sprünge helfen oder mir einen anderen Lösungsweg nennen?
Hier der code:
'Start CodeSequenz
Sub Start_Print()
'by Ramses
Call Print_to_PDF(ActiveSheet)
End Sub
Public Sub Print_to_PDF(wks As Worksheet)
'by Ramses
Dim wb As Workbook
Dim strFilename As String
Dim strPrintToPfad As String
'Workbook zuweisen
Set wb = Workbooks(wks.Parent.Name)
'Pfad der Mappe extrahieren
strPrintToPfad = "\\so2\Daten_Privat\Temp" 'wks.Parent.Path
'Dann wechsle vorher in den Pfad der Datei
' ChDrive (Left(strPrintToPfad, 2))
ChDir strPrintToPfad
'Es darf keine Endung PDF vergeben werden !!!
'Wird durch Acrobat automatisch erstellt
strFilename = Left(wks.Parent.Name, Len(wks.Parent.Name) - 4)
strPrintToPfad = strPrintToPfad & "\" & strFilename
'Den Druckernamen bitte anpasssen
wb.PrintOut ActivePrinter:="pdfFactory Pro auf FPP3:", _
PrintToFile:=True, PrToFilename:=strPrintToPfad
End Sub
vielen Dank!