Bonjour,
je cherche a définir avec cette macro des propriétés :
- imprimer deux pages
- imprimer en couleur
- imprimer uniquement la feuille sélectionnée
Sub ChoisirImprimante()
Dim Imprimante As String
' L'imprimante actuelle
Imprimante = ActivePrinter
Application.Dialogs(xlDialogPrinterSetup).Show
' L'imprimante sélectionnée
Imprimante = ActivePrinter
End Sub
Merci d'avance
je cherche a définir avec cette macro des propriétés :
- imprimer deux pages
- imprimer en couleur
- imprimer uniquement la feuille sélectionnée
Sub ChoisirImprimante()
Dim Imprimante As String
' L'imprimante actuelle
Imprimante = ActivePrinter
Application.Dialogs(xlDialogPrinterSetup).Show
' L'imprimante sélectionnée
Imprimante = ActivePrinter
End Sub
Merci d'avance