Crystal report udskrivning

Nedenstående viser rapporten på skærmen. Men jeg vil godt have den til at udprinte uden preview. Jeg har prøvet at udskifte CRView.ViewReport med CRView.PrintReport men så får jeg en fejlmeddelelse. Er der en der kan forklare mig hvordan jeg springer preview delen over og udskriver direkte ?

Private Sub Command3_Click()
Dim CRReport As CRAXDRT.Report
Dim CRApp As New CRAXDRT.Application
   
Set CRReport = CRApp.OpenReport(App.Path & "\report2.rpt")
   
With CRReport
    .Database.Tables(1).Location = App.Path & "\db.mdb"
End With
   
CRView.ReportSource = CRReport
CRView.ViewReport

End Sub