problem sa Error

Imam dugme na formi koje kad klinem isprinta traženi report. No, imam jedan problem. Kad klinem na tu tipku, otvori mi se prozor gdje biran printer, broj kopija itd. ako kliknem na ok, sve radi kako treba. No, ako se predomislim i kliknem na cancel, javi mi grešku "Run..2501". kako to izbječi? mislim daje stvar u pucanju koda koji glasi ovako:


Private Sub Command37_Click()

DoCmd.OpenReport "Naljepnice", acViewPreview, "CreateQuery", CreateWherePart
DoCmd.RunCommand acCmdPrint

End Sub



šta bi trebao dodati da mi se ta poruka ne prikazuje više ako želim odustati od printanja?

Private Sub Command37_Click()
On error goto greska

DoCmd.OpenReport "Naljepnice", acViewPreview, "CreateQuery", CreateWherePart
DoCmd.RunCommand acCmdPrint

Exit sub

greska:

Err.clear
exit sub

End Sub


tako bi izbjegao poruku o greski