En annuller knap

I kodemodulet "ThisWorkbook" placerer du følgende kode:

Private Sub Workbook_BeforePrint(cancel As Boolean)
    If MsgBox("Tjek om data er korrekt inden du udskriver!", vbExclamation + vbOKCancel, "Systeminfo") = vbOK Then
        cancel = False
    Else
        cancel = True
    End If
End Sub

Eller prøv denne version:

Sub Print_Confirmation()

    MyMessage = "Er du sikker på at du ønsker at udskrive ....?"
    MyOptions = vbYesNo
    Answer = MsgBox(MyMessage, MyOptions)
    If Answer = vbYes Then Application.Run "Print_Liste" Else Sheets("Header").Select
End Sub

"Print_Liste" er en anden makro som indeholder det, der skal udskrives.

Else Sheets("Header") vender tilbage arket Header.