Office: Drucker wechseln funktioniert nicht

Hallo und gesundes neues Jahr


excel 2010 vba
als Win7/64 Standarddrucker ist "Canon......." eingestellt
ich will ein userform auf "brother ........" drucken

Befehlsfolge:

Application.ActivePrinter = "brother .........auf ....."
(vorher im direktfenster ausprobiert)
msgbox activeprinter
box: "brother .........auf ....."
userform.show
private sub userform_activate
msgbox activeprinter
box: "brother .........auf ....."
me.print
msgbox activeprinter
box: "brother .........auf ....."
unload.me
endsub
zurück im aufrufenden modul
msgbox activeprinter
box: "brother .........auf ....."
und der Ausdruck erfolgt auf
Canon

hat jemand eine Ahnung was falsch ist ?
wenn als standard brother eingestellt ist, druckt er auf brother.


der standard-drucker muss im manager canon bleiben, da eine andere anwendung darauf druckt, und die user den wechsel nicht hin bekommen.

Grüße
TC

:)

 

Code:

bist Du Dir da sicher?

Mein VBA stellt mir dabei nur

Code:

zur Verfügung, und wenn du dann die Hilfe aufrufst, steht dort:

Also greift hier Application.activePrinter anscheinend nicht...

 

Ich habe in meiner Frage auch den Drucker nicht ausgeschrieben .
es heißt natürlich

me.printform

wäre das falsch, bekäme ich eine Fehlermeldung und nicht den richtigen Ausdruck auf dem falschen Drucker.

Zusatzinfo allerdings:
beides sind Netzwerkdrucker.

grüße
tc

 

naja... einen String nicht komplett auszuschreiben ist was anderes als eine Methode/Funktion abzukürzen...

Wenn man in einem Forum Hilfe erwartet bei einer Fehlersuche, sollte schon
der exakte Code angegeben werden; das erleichtert die Analyse ungemein...

Soll man hier im Forum raten, was Deine abgehackten Codezeilen bedeuten sollen?

 

vielen Dank für die konstruktive Hilfe

 

Hallo!

"Application.ActivePrinter" kann man nicht einfach einen String zuweisen. Es wird eine Zahl erwartet, welche dem Druckerport entspricht.

Das macht man anders.

Gruß, René

 

Meinen Hinweis zur Online-Hilfe zu PrintForm hast Du übersehen?

@Mumpel:
Mit Deinem Code wird das Arbeitsblatt gedruckt.
Thomas möchte aber anscheinend eine Userform drucken, bei dem
ein Druckerwechsel innerhalb der Application nicht funktioniert...

Siehe auch
http://www.herber.de/forum/archiv/11...0/t1179218.htm

 

Das sagt die VBA-Hilfe dazu:
Der Drucker, der von PrintForm verwendet wird, wird durch die Einstellungen in der Systemsteuerung des Betriebssystems festgelegt.


Man muss also per API den Standarddrucker umstellen und anschließend zurücksetzen. Das habe ich schon einmal unter Windows 7 versucht, Ergebnis nicht wie gewünscht ausgefallen.

 

Das steht bereits in #2

Das steht auch im Link unter #7

 

mit der unter #7 genannten funktion klappt es.

Danke für Eure Hilfe

TC

 

Hab ich überlesen. *wink.gif*