Schakelen tussen verschillende printers met macro

[wjvdlinden]

Goedemorgen,

Ik heb een aantal macro's die door meerdere gebruiker wordt bewerkt.

9 van de 10 macro printen in Adobe maar de 10e macro moeten printen bij de diverse mensen op de standaardprinter.

Ik kan wel schakelen naar 1 printer maar ik weet niet hoe ik dit kan instellen als standaard printer.

Deze code heb ik nu gebruikt.

Application.ActivePrinter = "Adobe PDF op Ne03:"
ActiveWindow.SelectedSheets.PrintOut Copies:=1, ActivePrinter:= _
"Adobe PDF op Ne03:", Collate:=True

 

[Spiderman]

Hoi wjvdlinden,

Ik denk (niet getest) op deze namier:

ActiveWindow.SelectedSheets.PrintOut Copies:=1, Collate:=True

Dus geen Application.ActivePrinter = "Adobe PDF op Ne03:"

en geen ActiveWindow.SelectedSheets.PrintOut Copies:=1, ActivePrinter:= _
"Adobe PDF op Ne03:", Collate:=True

suc6

 

[wjvdlinden]

schakelen tussen printers

Goedemiddag Arno,

Deze manier had ik ook geprobeerd. Hij blijft dan de vorige printer (in mijn geval adobe) gebruiken. Ik kan het natuurlijk wel zo instellen dat mijn printer wordt ingesteld als actieve printer. Maar dan loopt het vast bij andere gebruikers die gebruik maken van een andere printer.

M.vr.gr.
Wim

P.S. ik heb geen banen in de aanbieding maar het moet toch lukken bij een wervingsburo?

 

[Spiderman]

Ik denk dat dat komt doordat je

Application.ActivePrinter = "Adobe PDF op Ne03:"

gebruikt. Dit stelt je Default printer in.


Gebruik dus als je een andere printer wilt gebruiken dan je default alleen

ActiveWindow.SelectedSheets.PrintOut Copies:=1, ActivePrinter:= _
"Adobe PDF op Ne03:", Collate:=True

Denk ik

 

[wjvdlinden]

schakelen tussen printers

Arno,

Lijkt mij op zich een goed antwoord. Dit ga ik zo uitproberen.

Wim

 

[wjvdlinden]

schakelen tussen printers

Arno,

Het werkt toch niet. Er blijft toch als printer Adobe staan omdat die als laatste is gebruikt.

ActiveWindow.SelectedSheets.PrintOut Copies:=1, ActivePrinter:= _
"\\RMSERVER01\HP4200-ZW-FINADMIN2 op Ne06:", Collate:=True

Als ik nl. vervolgens mijn printer instel (het onderstreepte gedeelte)kunnen anderen deze macro niet gebruiken.

Misschien wil je nog een keer helpen.

M.vr.gr.
Wim