problem with report

[jherdy]

this is my code when i click the Print

Private Sub mnu_RoomInv_Click()
  frmReport.Caption = ViewReport(frmReport.CRViewer1, App.Path & "/reports/room_inventory.rpt", Screen.Width, Screen.Height, mdiMain.mnu_RoomInv.Caption)
End Sub


Function ViewReport(CRViewer As CrystalActiveXReportViewer, _
               sFilename As String, _
               lngWidth As Long, lngHeight As Long, _
               Optional sFormTitle As String = "Report Viewer", _
               Optional bGroupTree As Boolean = False) As String

  Dim Appl As New CRAXDRT.Application
  Dim Report As New CRAXDRT.Report
  Dim x As Long
    Set Report = Appl.OpenReport(sFilename)
      CRViewer.Width = lngWidth
      CRViewer.Height = lngHeight - 1000
      
      With Report
        .DiscardSavedData
        .EnableParameterPrompting = True
      End With
      
      CRViewer.ReportSource = Report
      CRViewer.ViewReport
    ViewReport = StrConv(Trim(sFormTitle), vbProperCase)
  Set Report = Nothing
  Set Appl = Nothing

End Function

Hope you can help me...thanks