Hallo, ich finde einfach nichts hilfreiches, oder für mich verständliches im Netz. Ich hoffe hier kann mir wer helfen.
Folgendermaßen:
Vom ersten Registerblatt "Eingabe" wird ein Button mit Makro versehen gedrückt, damit die seite von Registerblatt "Produktblatt" als PDF gedruckt bzw. wird. Funktioniert auch manuell.
Wie soll es sein?:
beim PDF druck soll die zu speichernde Datei mit dem Namen aus Zellwert C6;K1;M1;O1 in das Verzeichnis P:\Vertrieb allgemein\Schacht Eingabe\Ablage PDF gespeichert werden.
Ich hoffe es kann mir jemand helfen.
Hier das vorhandene Makro:
***version ist EXCEL 2003
Sub PDF_Druck_Produktblatt_Komplett()
'
' PDF_Druck_Produktblatt_Komplett Makro
' Makro am 10.11.2010 von SB-BWM aufgezeichnet
'
'
Dim Drucker As String
Drucker = ActivePrinter
Sheets("Produktblatt").Select
Application.ActivePrinter = "eDocPrintPro auf Ne04:"
ActiveWindow.SelectedSheets.PrintOut Copies:=1, ActivePrinter:= _
"eDocPrintPro auf Ne04:", Collate:=True
Sheets("Eingabe").Select
ActivePrinter = Drucker
End Sub |