[CR 11][VB6]Failing to print, no error msg

I was printing reports using this code a couple weeks ago and since then I've been developing the program but I haven't been testing the print function. Now printing won't work. The code runs, seemingly without error, but nothing ever prints.

Code:

---

Private Sub PrintReport(ReportFilename As String, SelectionFormula As String, Copies As Byte)
    Dim crApp As New CRAXDDRT.Application, rpt As CRAXDDRT.Report
    Set rpt = crApp.OpenReport(ReportFilename, crOpenReportByTempCopy)
    rpt.RecordSelectionFormula = SelectionFormula
   
    Dim Database As String, Security As String, conStr As String
    Database = App.Path & "\[database name removed]"
    Security = App.Path & "\[security db name removed]"
    conStr = "Provider=Microsoft.Jet.OLEDB.4.0;" & _
        "Data Source=" & Database & ";" & _
        "Jet OLEDB:System database=" & Security & ";Persist Security Info=False"
       
    crApp.LogOnServerEx "p2soledb.dll", Database, "", [user name removed], [password removed], "OLE DB", conStr
   
    Dim i As Long
    For i = 1 To rpt.Database.Tables.Count
        rpt.Database.Tables(i).ConnectionProperties("Password") = [password removed]
    Next
   
    rpt.PrintOutEx True, CInt(Copies)
   
    Set rpt = Nothing
    Set crApp = Nothing

---

It used to pop up a dialog asking me which printer to use and it no longer does that either. Is there some method similar to the Win32 API GetLastError that I could use to determine what the hell is going on?

Thanks!