imprimer et remettre par defaut[résolu]

[surplus]

Bonjour,
j'ai 2 imprimantes qui en fait est est la meme avec 2 bacs
\\comptatelier\Brother HL-5250DN series Blanc' imprimante1
\\comptatelier\Brother HL-5250DN series En Tete 'par defaut en permanence
je voudrais faire une macro qui imprime sur l'imprimante une et qui remette l'imprimante par defaut comme avant
comment proceder
merci
a bientot

 

[pascal cfp 49]

Re : imprimer et remettre par defaut

Voici un code qui permet d'afficher une boite de dialogue dans laquelle on peut choisir les imprimantes configurées sur le Pc
A modifier en foction du fichier biensur
Pascal cfp


Private Sub CommandButton8_Click()

Sheets("nom de la feuil").Select
ActiveSheet.Unprotect
Application.Dialogs(xlDialogPrinterSetup).Show
range("$A$2:$K$35").Select
ActiveSheet.PageSetup.PrintArea = "$A$2:$k$35"
ActiveWindow.SelectedSheets.PrintOut Copies:=1, Collate:=True
range("A2").Select

ActiveSheet.Protect

End Sub

 

[surplus]

Re : imprimer et remettre par defaut

bonjour
oui mais justement je voudrais pas avoir a le faire et que ce soit auto
c'est pour mon travail j'en imprime sans arret donc mieux en auto
merci
a bientot