In the BeforePrint procedure, try this:
dim CheckH8 as integer
If H8 = 0 then
"print command"
Else
CheckH8 = msgbox("Hey!!! It ain't 0", vbOKCancel,"Put caption of msgbox here")
End If
You might have to put it in the On Print procedure if it doesn't work there.
Good luck.
