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

[DNA7433]

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.

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!