imprimer et remettre par defaut[résolu]

surplus

XLDnaute Occasionnel
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
 
Dernière édition:

pascal cfp 49

XLDnaute Nouveau
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
 

Discussions similaires

Statistiques des forums

Discussions
312 913
Messages
2 093 534
Membres
105 751
dernier inscrit
fred13340