Printen via macro naar standaard printer

[MBBS]

Ik wil macro maken om een blad uit te printen.
De macro moet toepasbaar zijn op verschillende pc's, dus met verschillende printers.
Hoe kan ik gewoon zeggen dat hij op de standaard printer moet printen ?
Printers aangesloten via USB



Cells.Select
Application.ActivePrinter = "???????"
ActiveWindow.SelectedSheets.PrintOut Copies:=1,
ActivePrinter:= _ "", Collate:=True

 

[trucker10]

Ik wil macro maken om een blad uit te printen.
De macro moet toepasbaar zijn op verschillende pc's, dus met verschillende printers.
Hoe kan ik gewoon zeggen dat hij op de standaard printer moet printen ?
Printers aangesloten via USB



Cells.Select
Application.ActivePrinter = "???????"
ActiveWindow.SelectedSheets.PrintOut Copies:=1,
ActivePrinter:= _ "", Collate:=True

Ofwel enkel met

ActiveWindow.SelectedSheets.PrintOut Copies:=1

of je kan laten kiezen welke printer te selecteren

 Application.Dialogs(xlDialogPrinterSetup).Show

in het begin ter vervanging van

Application.ActivePrinter = "???????"

 

[MBBS]

okidoki !

Thanks