RÉSOLU Forcer utilisation de l'imprimante par défaut

[chris6999]

Bonsoir le FORUM

Dans mon projet je souhaite offrir la possibilité de lancer une impression papier ou de générer un PDF via l'imprimante virtuelle PDF créator (accessible par 2 boutons clic distincts).
Le problème c'est que le système va systématiquement lancer l'impression avec la dernière imprimante utilisée et non celle par défaut.
Donc si au préalable j'ai généré un PDF ...ma macro "impression papier" va me générer un PDF

Je précise qu'il s'agit de l'impression d'une plage nommée donc je ne pense pas pouvoir passer par la boite de dialogue d'impression.C'est là tout le problème
De plus ce fichier sera utilisé par des utilisateurs différents donc impossible de forcer sur une imprimante en particulier.

Private Sub CommandButton10_Click()

Application.ScreenUpdating = False
Sheets("Feuille").Activate
Range("PlageNommée").Select
Selection.PrintOut Copies:=1, Collate:=True
Application.ScreenUpdating = True
End Sub

Je ne sais pas trop comment me sortir de ce couac un peu gênant.

Si quelqu'un a une solution...
Cordialement

 

[degap05]

Re : Forcer utilisation de l'imprimante par défaut

Bonjour,
S'il faut sélectionner l'imprimante:

Private Sub CommandButton10_Click()

Application.ScreenUpdating = False
Sheets("Feuille").Activate
Range("PlageNommée").Select
Application.Dialogs(xlDialogPrinterSetup).Show
Selection.PrintOut Copies:=1, Collate:=True
Application.ScreenUpdating = True
End Sub

A essayer.
A+

 

[chris6999]

Re : Forcer utilisation de l'imprimante par défaut

Bonsoir DEGAP05

Comment te dire ... Cela marche du tonnerre!

Merci encore
Bonne soirée