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