Live-Forum - Die aktuellen Beiträge
Anzeige
Archiv - Navigation
424to428
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
424to428
424to428
Aktuelles Verzeichnis
Verzeichnis Index
Verzeichnis Index
Übersicht Verzeichnisse
Inhaltsverzeichnis

mehrere blätter auf unterschiedliche drucker

mehrere blätter auf unterschiedliche drucker
11.05.2004 08:42:32
tomturbos
hi!
ich hätte gerne einen befehl mit dem ich automatisch blatt1 auf drucker1 fach1, blatt2 auf drucker1 fach2 und blatt3 auf drucker2 mit einem click drucken kann. (blatt1=rechnung, blatt2=bankschein, blatt3=begleitschreiben) - gibts da vielleicht möglichkeiten?
danke
tom

6
Beiträge zum Forumthread
Beiträge zu diesem Forumthread

Betreff
Datum
Anwender
Anzeige
AW: mehrere blätter auf unterschiedliche drucker
Kurt
Nicht möglich, da per VBA keine Druckerauswahl vorgenommen werden
kann.
Kurt
DOCH GEHT SCHON...
Andreas
Mit
Application.ActivePrinter =
kann man sehr wohl den Drucker wechseln.
Nutz mal den MakroRecorder und schau was aufgezeichnet wird.
Oder verstehe ich die Anforderung nicht.
AW: DOCH GEHT SCHON...
Kurt
ActivePrinter wird eh immer verwendet.
Kurt
Wenn ich es richtig verstehe,
Andreas
möchte "tomturbos" versch. Daten auf versch. Drucker ausdrucken.
Beispiel:
Sheets("Tabelle1").Select
Application.ActivePrinter = "HP LaserJet 4V auf LPT1:"
ActiveWindow.SelectedSheets.PrintOut Copies:=1, ActivePrinter:= _
"HP LaserJet 4V auf LPT1:", PrintToFile:=True, Collate:=True
Sheets("Tabelle2").Select
Application.ActivePrinter = "\\Termsrv\HP LaserJet 4V auf Ne04:"
ActiveWindow.SelectedSheets.PrintOut Copies:=1, ActivePrinter:= _
"\\Termsrv\HP LaserJet 4V auf Ne04:", PrintToFile:=True, Collate:=True
Sheets("Tabelle3").Select
Application.ActivePrinter = "\\Termsrv\HP 2000C auf Ne03:"
ActiveWindow.SelectedSheets.PrintOut Copies:=1, ActivePrinter:= _
"\\Termsrv\HP 2000C auf Ne03:", PrintToFile:=True, Collate:=True
Sheets("Tabelle4").Select
Application.ActivePrinter = "\\termsrv\Kyocera Mita FS-1000+ KX auf Ne05:"
ActiveWindow.SelectedSheets.PrintOut Copies:=1, ActivePrinter:= _
"\\termsrv\Kyocera Mita FS-1000+ KX auf Ne05:", PrintToFile:=True, Collate _
:=True
Wenn er das in einem Makro packt, a bisserl was anpasst und dann einem STRG-irgendetwas zuweist, dann passt es. Oder?
Anzeige
AW: Wenn ich es richtig verstehe,
11.05.2004 12:34:15
tomturbos
danke für das makro, werde es morgen testen!
grüße
tom
AW: Wenn ich es richtig verstehe,
Kurt
Kann es nicht testen, da nur ein Drucke aber m.W. gehts nicht.
Kurt

Beliebteste Forumthreads (12 Monate)

Anzeige

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Anzeige