Private Sub CommandButton5_Click() 'Imprimer avec détail TVA
Dim Retour As Integer
Sheets("Feuil1").Activate
With ActiveSheet.PageSetup
.LeftMargin = Application.InchesToPoints(0.2)
.RightMargin = Application.InchesToPoints(0.2)
.TopMargin = Application.InchesToPoints(0.3)
.BottomMargin = Application.InchesToPoints(0.3)
'.PrintQuality = 300
.Zoom = 65
.Orientation = xlPortrait
.BlackAndWhite = False
End With
'---------------- Impression noir et blanc ou couleur ------------------------
Retour = MsgBox("Voulez-vous une copie couleur : O/N ", vbYesNo + vbCritical)
If Retour = vbNo Then
With ActiveSheet.PageSetup
.BlackAndWhite = True
End With
End If
ActiveSheet.PageSetup.PrintArea = "A1:K60"
'ActiveSheet.PrintPreview
ActiveWindow.SelectedSheets.PrintOut copies:=1
End Sub