standaard printer instellen in een macro

Quirinus van Vrouwerf

unread,

Jul 8, 2003, 5:35:44 AM7/8/03

to

Ik heb een hele simpele macro gemaakt die ervoor zorgt dat
het huidige document geprint wordt naar een bepaalde
printer en na het printen weer in excel de printer
terugzet naar een andere printer genaamd AL_PRT. Maar ipv
AL_prt wil ik dat hij altijd de standaard windows printer
kiest. Kan iemand mij vertellen hoe ik dat voor elkaar
krijg.

Application.ActivePrinter = "eCabinet op Ne01:"
ActiveWindow.SelectedSheets.PrintOut Copies:=1,
ActivePrinter:= _
"eCabinet op Ne01:", Collate:=True
Application.ActivePrinter = "AL_PRT op Ne02:"

S for Software

unread,

Jul 8, 2003, 6:54:14 AM7/8/03

to

Hallo,

Het argument ActivePrinter niet opnemen in de procedure-aanroep.

Bert

"Quirinus van Vrouwerf" <vrou...@xs4all.nl> wrote in message
news:84f601c34534$4e2a3230$a401...@phx.gbl...

Quirinus van Vrouwerf

unread,

Jul 8, 2003, 7:42:18 AM7/8/03

to

Bedankt Bert, maar hoe moet mijn macro erdan uitzien kan
je misschien een voorbeeld geven gebaseerd op mijn macro.

Zoals je misschien al ziet heb ik weinig ervaring ermee.
Alvast bedankt.

>.
>

S for Software

unread,

Jul 8, 2003, 8:10:21 AM7/8/03

to

Hallo,

Dit stukje:

Application.ActivePrinter = "AL_PRT op Ne02:"

weglaten, dan zou het goed moeten gaan

"Quirinus van Vrouwerf" <vrou...@xs4all.nl> wrote in message

news:0b5901c34545$fc25edf0$a501...@phx.gbl...

Quirinus van Vrouwerf

unread,

Jul 9, 2003, 4:18:36 AM7/9/03

to

Hallo,

Als ik dat stukje weglaat blijft in Excel mijn instelling
voor de printer staan op ecabinet. En door dat stukje erin
te laten zet Excel hem op de AL_PRT printer dat is
namelijk de standaard printer van deze pc, maar bij andere
pc's zijn dat weer andere printers, dat zou dus betekenen
dat ik voor elke pc een macro moet maken. wat ik dus
eigenlijk moet hebben is een macro die print naar de
ecabinet printer en hem daarna automatisch weer terugzet
in Excel op de standaard windows printer en niet dat ik
zelf opgeef hoe die printer heet.

>-----Oorspronkelijk bericht-----

>.
>

S for Software

unread,

Jul 9, 2003, 4:32:19 AM7/9/03

to

Sorry,

Ik had niet helemaal goed gekeken. Je kunt het doen door eerst e 'oude'
activeprinter in een variabele te plaatsen. In jouw macro:

*****
Dim strPrinter As String

strPrinter = Application.ActivePrinter

Application.ActivePrinter = "eCabinet op Ne01:"

ActiveWindow.SelectedSheets.PrintOut Copies:=1, ActivePrinter:= "eCabinet op
Ne01:", Collate:=True
Application.ActivePrinter = strPrinter
*****

succes,
Bert

"Quirinus van Vrouwerf" <vrou...@xs4all.nl> wrote in message

news:104e01c345f2$b204d850$a101...@phx.gbl...

Q. van Vrouwerf

unread,

Jul 11, 2003, 3:21:39 AM7/11/03

to

Als ik dat stukje weglaat dan blijft mijn instelling in
Excel staan op die "eCabinet" printer staan. De bedoeling
is dat je die macro uitvoert en dat hij dan print naar
die "eCabinet" printer en daarna de instelling weer
instelt op de standaard Windows printer. Zoals je ziet in
mijn macro zet Excel na het printen de instelling op
de "AL_PRT", maar dat zou dan betekenen dat ik voor alle
pc's een aparte macro moet maken met de vermelding van hun
printer. Kort samengevat -> moet een macro hebben waar hij
print naar een printer en daarna de instelling weer
instelt op de windows standaard printer

>-----Oorspronkelijk bericht-----

>.
>