PDF Druck Mysterium
09.11.2018 21:06:17
Josef
mit Hilfe dieses Forums und dem Makrorekorder habe ich schon sehr viele Varianten der VBA-PDF-Druckfunktion probiert um automatisiert Rechnungen auf dem Server abzulegen:
'Dateinamen generieren
Dim strZiel As String
Dim Speichername As String
Dim Rechnungsnummer As String
Dim Auftragsnummer As String
Dim Kunde As String
Dim Kommission As String
strZiel = PFAD
Rechnungsnummer = Worksheets("Rechnung").Cells(14, 5).Value
Auftragsnummer = Worksheets("Auftrag").Cells(5, 5).Value
Kunde = Worksheets("Auftrag").Cells(7, 2).Value
Kommission = Worksheets("Auftrag").Cells(12, 2).Value
Speichername = strZiel & Rechnungsnummer & "-" & Auftragsnummer & " " & Kunde & " " & _
Kommission & ".pdf"
'als PDF Drucken und ablegen
Sheets("Rechnung").Activate
ActiveWorkbook.SaveAs Filename:= _
Speichername, FileFormat:=xlPDF, _
PublishOption:=xlSheet
Leider immer wieder mit dem gleichen Fehlerbild was ich mir nicht erklären kann. Das Programm funktioniert so lange gut, bis eine reale Seite auf unserem HP Drucker ausgedruckt wird. Danach meldet das Skript immer wieder einen Laufzeitfehler 1004. Das Skript läuft auf einem Mac mit entsprechendem Microsoft Office für MAC (und ich hoffe das ist nicht die Ursache). Auf dem Mac gibt es scheinbar den Befehl Application.PrintCommunication = True / False nicht.
Hat Jemand eine Idee um dieses Problem zu lösen. Diese eine Programmzeile mit dem PDF Print bringt mich noch zum Wahnsinn
Besten Dank schon mal im Voraus.
Anzeige