crystal report printing

[kokopeli]

this code works at home, but not at work. I am not getting any errors, it just wont print. I can print the report from crystal reports, just not from my App.

Private Sub cmdLeaseReport_Click()
On Error Resume Next
dlgDialog.ShowPrinter
If Err.Number = 32755 Then Exit Sub

CrystalReport1.ReportFileName = App.Path & "\Lease1.rpt"
CrystalReport1.Destination = crptToPrinter
CrystalReport1.PrintReport

End Sub

Anyone see a problem?