Bouton d'impression VBA

Bonjour à tous,

J'ai réalisé une macro (feuille : ETIQUETTES EXPE; bouton : IMPRESSION) permettant d'imprimer l'ensemble du contenu de la feuille ETIQUETTES EXPE.

La macro est fonctionnelle.

Problème : Le choix de l'imprimante avant impression.

Voici la macro :

Sub Impression_Etiquettes()
ActiveWindow.SelectedSheets.PrintOut copies:=1, collate:=True, _
Ignoreprintareas:=False
Worksheets("ETIQUETTES EXPE").Protect UserInterfaceOnly:=True
End Sub

Merci

Fabien

Bonjour,

Essaie de modifier la macro d'impression de la manière suivante :

Sub Impression_Etiquettes()
Worksheets("ETIQUETTES EXPE").Protect UserInterfaceOnly:=True
Application.Dialogs(xlDialogPrinterSetup).Show
ActiveWindow.SelectedSheets.PrintOut copies:=1, collate:=True, _
Ignoreprintareas:=False
End Sub

Nota : Quand elle est utilisée cette instruction doit être sur la première ligne de chaque macro. Sinon elle ne sert à rien !

A+

Merci !

Serez t'il possible :

- de prédéfinir le nom d'une imprimante ?

En cas de fermeture de la fenêtre de sélection de l'imprimante, l'impression est tout de même lancée.

- de fermer la fenêtre sans lancer l'impression ?

Merci

Fabien

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+

Merci Galopin !

Serait-il possible de lancer l'impression sans que l'aperçu ne s'ouvre tout en ayant la possibilité de fermer la fenêtre sans que l'impression ne se lance ?

Merci

Fabien

Bonjour Fabien55,

Comme je te le disais dans un autre post :

Et pour répondre à un message, clique sur le bouton "Répondre" (au lieu de "Citer").

Cordialement,

Dsl

Bonjour, tu peux modifier comme suit :

Sub Impression_Etiquettes()
Dim i%
Worksheets("ETIQUETTES EXPE").Protect UserInterfaceOnly:=True
Application.Dialogs(xlDialogPrinterSetup).Show
i = MsgBox("Lancer l'impression ?", 36, "CONFIRMATION")
If i = 6 Then
   ActiveWindow.SelectedSheets.PrintOut copies:=1, collate:=True, _
         Ignoreprintareas:=False
End If
End Sub

A+

Merci !

A+

Rechercher des sujets similaires à "bouton impression vba"