Vba option d’impression

Sub ImprimerOriginalCopie_QuandClic()
'
'
'
' Touche de raccourci du clavier: Ctrl+i
If (Range("G1").Value = "") Then
LaisserLaTva.Show
End If

With ActiveSheet.PageSetup
.BlackAndWhite = True
End With
ActiveWindow.SelectedSheets.PrintOut Copies:=1, Collate:=True

With ActiveSheet.PageSetup
.BlackAndWhite = False
End With
ActiveWindow.SelectedSheets.PrintOut Copies:=1, Collate:=True

If Sheets("Devis").Range("G1").Value = ("1") And Range("A10").Value = "DEVIS" Then

Sheets("TVA 5,5%").Select
ActiveWindow.SelectedSheets.PrintOut Copies:=1, Collate:=True
Sheets("Devis").Select
End If
ControlImprimer = 1

End Sub

Cliquez pour agrandir...