IMPRIMER - Donner le choix de l'imprimante

GuillaumA · 6 Décembre 2010

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

Dull · 6 Décembre 2010

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

GuillaumA · 6 Décembre 2010

Re : IMPRIMER - Donner le choix de l'imprimante

ça marche!
Merveilleux!

Merci à toi Dull

Guillaume

IMPRIMER - Donner le choix de l'imprimante

GuillaumA

XLDnaute Occasionnel

Dull

XLDnaute Barbatruc

GuillaumA

XLDnaute Occasionnel

Discussions similaires