Cancel print but allow print preview?

[lex_m]

I am using the code below to make the user use a button on the sheet to print, so it will run some code and then print, but this also want let you print preview, is there a way to make the print preview work? Thanks using '97

Private Sub Workbook_BeforePrint(Cancel As Boolean)
MsgBox " Use The Print Sheet Button On The Worksheet To Print"
Cancel = True
End Sub