pour empêcher d'imprimer... Modifier comme suit :
Sub Impression_Etiquettes()
Worksheets("ETIQUETTES EXPE").Protect UserInterfaceOnly:=True
Application.Dialogs(xlDialogPrinterSetup).Show
ActiveWindow.SelectedSheets.PrintOut copies:=1, collate:=True, _
Ignoreprintareas:=False, preview:=True
End Sub
Au lieu de mettre :
Application.Dialogs(xlDialogPrinterSetup).Show
Tu peux aussi enregistrer un macro qui fait le changement d'imprimante... et remplacer cette ligne par le code enregistré.
Mais ça je peux pas le faire pour toi !
A+