Frage zum Drucken mit VBA

29/10/2008 - 11:46 von Jascha Lendeckel | Report spam
Hallo NG,

in einem Projekt drucke ich auf verschiedene Drucker im Netzwerk,
dabei hab ich jetzt ein Problem. Der Aufruf der Druckers sieht z.B. so
aus:
Application.ActivePrinter = "PaperPort-Schwarzweißbild auf Ne00:"
ActiveWindow.SelectedSheets.PrintOut Copies:=1, ActivePrinter:= _
"PaperPort-Schwarzweißbild auf Ne00:", Collate:=True

Jetzt ist es aber schon mehrmals passiert, das sich Änderungen bei den
zur Verfügung stehenden Druckern ergeben haben. Die Druckernamen und
deren Quelle sind dabei immer gleich geblieben aber die Zuweisung "...
auf Ne00:" hat sich geàndert.
Welchen Sinn hat dieses Ne0x: und wie kann ich es ermitteln ohne das
Makro jedesmal neu zu schreiben?

Gruß

Jascha Lendeckel

Versuche nicht, ein erfolgreicher, sondern ein wertvoller Mensch zu
werden.

Phantasie ist wichtiger als Wissen, denn Wissen ist begrenzt.

[Albert Einstein]
 

Lesen sie die antworten

#1 stefan onken
29/10/2008 - 16:09 | Warnen spam
hallo Jascha,
warum das mit dem Ne0x sich àndert, weis ich nicht, aber hier findest
du VBA-Code, um die Drucker aufzulisten und den richtigen darin zu
finden:
http://michael-schwimmer.de/vba009.htm

Gruß
stefan


On 29 Okt., 11:46, Jascha Lendeckel
wrote:
Hallo NG,

in einem Projekt drucke ich auf verschiedene Drucker im Netzwerk,
dabei hab ich jetzt ein Problem. Der Aufruf der Druckers sieht z.B. so
aus:
     Application.ActivePrinter = "PaperPort-Schwarzweißbild auf Ne00:"
     ActiveWindow.SelectedSheets.PrintOut Copies:=1, ActivePrinter:= _
         "PaperPort-Schwarzweißbild auf Ne00:", Collate:=True

Jetzt ist es aber schon mehrmals passiert, das sich Änderungen bei den
zur Verfügung stehenden Druckern ergeben haben. Die Druckernamen und
deren Quelle sind dabei immer gleich geblieben aber die Zuweisung "...
auf Ne00:" hat sich geàndert.
Welchen Sinn hat dieses Ne0x: und wie kann ich es ermitteln ohne das
Makro jedesmal neu zu schreiben?

Gruß

Jascha Lendeckel

Versuche nicht, ein erfolgreicher, sondern ein wertvoller Mensch zu
werden.

Phantasie ist wichtiger als Wissen, denn Wissen ist begrenzt.

[Albert Einstein]

Ähnliche fragen