
Sub Pulsante1_Click()
If Range("A1").Value = "" Then
MsgBox "La cella A1 non è compilata", vbCritical
ElseIf Range("B1").Value = "" Then
MsgBox "La cella B1 non è compilata", vbCritical
ElseIf Range("C1").Value = "" Then
MsgBox "La cella C1 non è compilata", vbCritical
Else
ActiveSheet.PrintOut ' se vuoi stampare direttamente
Application.Dialogs(xlDialogPrint).Show ' se vuoi che appaia la finestra di dialogo
End If
End Sub
|
Private Sub Workbook_BeforePrint(Cancel As Boolean)
