Private Sub CommandButton1_Click()
Dim msg, style, title
Dim Retour As Integer
If MsgBox("voulez-vous imrimer transport", vbYesNo + vbQuestion, "Impression") = vbYes Then
'' TRANSPORT Macro
Sheets("TRANSPRT").Select
ExecuteExcel4Macro "PRINT(2,1,1,1,,,,,,,,2,,,TRUE,,FALSE)"
Sheets("LIVRAISON").Select
GoTo suite
Else
suite:
With Sheets("LIVRAISON")
'---------------- Impression noir et blanc ou couleur ------------------------
If Range("N21") = "Non" And Range("N22") = 0 Then
MsgBox ("IMPRESSION NON AUTORISEE / OBLIGATION DE PAIMENT "), vbInformation
Exit Sub
End If
ActiveSheet.PageSetup.PrintArea = "B2:I55"
'ActiveSheet.PrintPreview
ActiveWindow.SelectedSheets.PrintPreview 'PrintOut copies:=1
End With
End If
End Sub