imprimer et remettre par defaut[résolu]

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

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