Live-Forum - Die aktuellen Beiträge
Datum
Titel
28.03.2024 21:12:36
28.03.2024 18:31:49
Anzeige
Archiv - Navigation
1012to1016
Aktuelles Verzeichnis
Verzeichnis Index
Übersicht Verzeichnisse
Vorheriger Thread
Rückwärts Blättern
Nächster Thread
Vorwärts blättern
Anzeige
HERBERS
Excel-Forum (Archiv)
20+ Jahre Excel-Kompetenz: Von Anwendern, für Anwender
Druckerauswahl in TextBox 'auslagern'
07.10.2008 11:58:00
Henner
Hi,
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

1
Beitrag zum Forumthread
Beitrag zu diesem Forumthread

Betreff
Datum
Anwender
Anzeige
AW: Druckerauswahl in TextBox 'auslagern'
07.10.2008 13:12:00
Heinz
Hi,
zu fehleranfällig, lies die Drucker in eine Combo- oder Listbox ein und lass auswählen.
mfg Heinz
Anzeige

302 Forumthreads zu ähnlichen Themen

Anzeige
Anzeige
Anzeige

Links zu Excel-Dialogen

Beliebteste Forumthreads (12 Monate)

Anzeige

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Anzeige