Solved: before print

[gibbo1715]

Hi ALe

Thanks for the reply
my help said the following should work for me

Private Sub App_DocumentBeforePrint(ByVal Doc As Document, Cancel As Boolean)
    a = MsgBox("Have you checked the " _
        & "printer for letterhead?", _
        vbYesNo)
    If a = vbNo Then Cancel = True
End Sub

But doesnt seem to do anything for me, any ideas what im missing here