IMPRIMER - Donner le choix de l'imprimante

[GuillaumA]

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:

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

 

[Dull]

Re : IMPRIMER - Donner le choix de l'imprimante

Salut Guillaume, le Forum

Peut-être comme cela

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

 

[GuillaumA]

Re : IMPRIMER - Donner le choix de l'imprimante

ça marche!
Merveilleux!

Merci à toi Dull


Guillaume