IMPRIMER - Donner le choix de l'imprimante

Boostez vos compétences Excel avec notre communauté !

Rejoignez Excel Downloads, le rendez-vous des passionnés où l'entraide fait la force. Apprenez, échangez, progressez – et tout ça gratuitement ! 👉 Inscrivez-vous maintenant !

GuillaumA

XLDnaute Occasionnel
Bonjour à tous,

J'utilise le code suivant pour proposer l'impression automatique d'une zone défini sur une feuille.

J'aimerai laisser l'opportunité aux utilisateurs finaux de choisir quelle imprimante utiliser (et pas forcement celle considéré automatiquement comme favorite).

Existe t'il une commande spécifique à cette réalisation ?

Merci de votre considération,
Guillaume


Ci joint le code:
Code:
Sub Print()
Dim P As Byte
P = MsgBox(Range("Database!K33"), vbYesNo + vbDefaultButton1)
If P = vbNo Then Exit Sub

With Sheets("Feuil1")
.PageSetup.PrintArea = "$C$2:$T$30"
With .PageSetup
.PaperSize = xlPaperA4
.Orientation = xlLandscape
.FitToPagesWide = 1
.FitToPagesTall = 1
.BlackAndWhite = True
End With
.PrintOut Copies:=1
End With

End Sub
 
Re : IMPRIMER - Donner le choix de l'imprimante

Salut Guillaume, le Forum

Peut-être comme cela

Code:
Sub EssAiImpressIon()
Dim P As Byte
P = MsgBox(Range("Database!K33"), vbYesNo + vbDefaultButton1)
If P = vbNo Then Exit Sub
Application.Dialogs(xlDialogPrinterSetup).Show
    With Sheets("Feuil1")
        .PageSetup.PrintArea = "$C$2:$T$30"
            With ActiveSheet.PageSetup
                .Orientation = xlLandscape
                .FitToPagesWide = 1
                .FitToPagesTall = 1
                .BlackAndWhite = True
            End With
        .PrintOut Copies:=1
    End With
End Sub
Bonne Journée
 
- Navigue sans publicité
- Accède à Cléa, notre assistante IA experte Excel... et pas que...
- Profite de fonctionnalités exclusives
Ton soutien permet à Excel Downloads de rester 100% gratuit et de continuer à rassembler les passionnés d'Excel.
Je deviens Supporter XLD

Discussions similaires

Retour