Nouveau pbl,

Bonjour à toutes et tous
j'ai placé un bouton de commande dans un UF.Il me permet d'imprimer le contenu d'une feuille.

Code : Sélectionner tout - Visualiser dans une fenêtre à part
1
2
3
4
5
6
7
8
9
10
Private Sub CmdPrint_Click()
Sheets("Feuil3").Select
Columns("A:E").EntireColumn.AutoFit
Columns("H:H").EntireColumn.Hidden = True
Application.ActivePrinter = "\\mslprt01.corp.jabil.org\MSLPR046 sur Ne01:"
    ActiveWindow.SelectedSheets.PrintOut Copies:=1, ActivePrinter:= _
        "\\mslprt01.corp.jabil.org\MSLPR046 sur Ne01:", Collate:=True
Sheets("Feuil1").Select
Columns("H:H").EntireColumn.Hidden = False
End Sub
J'aimerai ne pas avoir une imprimante préséléctionner, et que ce soit l'utilisateur qui selectionne l'imprimante (comme pour imprimer n'importe quel fichier, avec la fenetre choix de l'imprimante ("defaut" / "\\réseau"...) choix du format de la feuille, marge, rectoverso...)


J'espere avoir été clair pour une fois
D'avance merci
Cdlt