ich drucke (erzeuge) in meiner Mappe über den folgenden Code (ein PDF File):
Sub Print()
Application.ActivePrinter = "FreePDF XP auf Ne02:"
ActiveWindow.SelectedSheets.PrintOut Copies:=1, ActivePrinter:= _
"FreePDF XP auf Ne02:", Collate:=True
Application.ActivePrinter = "Brother DCP-315CN LAN Printer auf Ne04:"
End Sub
Nun möchte ich die Druckerbezeichnungen, also "Brother DCP-315CN LAN Printer auf Ne04:" und "FreePDF XP auf Ne02:" aus dem Code herausholen und durch 2 Textboxen ersetzen, in denen dann die jeweilige Druckerbezeichnung manuell eingetragen wird. Stelle mir das also in etwa so vor:
Sub Print()
Application.ActivePrinter = TextBox1
ActiveWindow.SelectedSheets.PrintOut Copies:=1, ActivePrinter:= _
TextBox1, Collate:=True
Application.ActivePrinter = TextBox2
End Sub
Jetzt brauche ich den unteren Code nur noch so, dass er funktioniert :-)
Ich hoffe, ich konnte mich einigermaßen verständlich ausdrücken - wenn nicht, bitte nachfragen.
Danke und Gruß
Henner