Anzeige
Anzeige
HERBERS
Excel-Forum (Archiv)
20+ Jahre Excel-Kompetenz: Von Anwendern, für Anwender
Anzeige
Inhaltsverzeichnis

drucker

Forumthread: drucker

drucker
25.09.2006 16:37:20
alex
möchte in meinem makro die möglichkeit bieten, den drucker textuell auszuwählen.
wenn ich mir den aktuellen printer ausgeben lasse,
MsgBox "The name of the active printer is " & _
Application.ActivePrinter
kommt:
"\\somvat002100\POMVAT002081 auf Ne01:"
in meinem makroform ist in der textbox folgendes voreingestellt:
\\somvat002100\POMVAT002081
dann füge ich es so zusammen, dass alles passt:
PfadDruck = Drucker + " auf Ne01:"
Application.ActivePrinter = PfadDruck
ActiveWindow.SelectedSheets.PrintOut Copies:=Kopien, ActivePrinter:= _
PfadDruck, Collate:=True
und alles funktioniert. wenn ich aber nun testeweise einen anderer drucker verwende, welcher zb
"\\somvat002100\POMVAT002122 auf Ne01:"
heisst, geht das nicht! hm..
Anzeige

2
Beiträge zum Forumthread
Beiträge zu diesem Forumthread

Betreff
Datum
Anwender
Anzeige
AW: drucker
25.09.2006 16:47:17
alex
bin dem problem schon näher gekommen!!!!!
einmal ist die endung " ne01" einmal " ne02" - wie kann ich die auswahl des druckers per makro dem benutzer überlassen, ohne dass er die endung wissen muss?
quick & dirty solution
25.09.2006 21:57:54
ChrisL
Hallo
Erstmal, ein Hallo/Gruss Feedback ist in diesem Forum üblich (vielleicht musstest du deshalb lange auf eine Antwort warten) ;-)
Eine einfache, aber "schmutzige" Lösung:
On Error Resume Next
ActiveWindow.SelectedSheets.PrintOut Copies:=Kopien, ActivePrinter:=TextBoxDrucker & " auf Ne01", Collate:=True
ActiveWindow.SelectedSheets.PrintOut Copies:=Kopien, ActivePrinter:=TextBoxDrucker & " auf Ne02", Collate:=True
Es werden beide Drucker ausprobiert. Sämtliche Fehler, egal welcher Ursache, werden einfach übersprungen.
Natürlich schlecht, wenn beide Drucker oder kein gültiger Drucker vorhanden ist.
Gruss
Chris
Anzeige
Anzeige
Anzeige
Live-Forum - Die aktuellen Beiträge
Datum
Titel
14.05.2026 13:31:09
14.05.2026 09:50:42
13.05.2026 19:14:18