selection d'imprimante par une macro

[cmalifarge]

Bonjour,

J'ai besoin d'imprimer chaque jour un fichier sur une autre imprimante que celle de mon bureau qui est l'imprimante par défaut.

J'ai commencé à écrire une macro:

ActiveWindow.SelectedSheets.PrintOut Copies:=1, Collate:=True, _
IgnorePrintAreas:=False

qui par défaut prend l'imprimante sélectionné dans excel.

Est il possible de choisir une imprimante via une macro sans être obligé de passer par le menu fichier pour modifier l'imprimante?

Bonne journée à vous

 

[camarchepas]

Re : selection d'imprimante par une macro

Bonjour ,

une solution :

Sub ff()
    Application.Dialogs(xlDialogPrinterSetup).Show
    Sheets("Feuil1").PrintOut
End Sub

 

[cmalifarge]

Re : selection d'imprimante par une macro

ça me va comme solution.

Merci