Printing issues with report and selecting printer

[wackywoo105]

The following is part of a piece of code to print a report. I use the code elsewhere for other reports and it works fine with the acHidden (in bold) bit in. In this case if the acHidden bit is not commented out it ignores the paper tray and tries to print a tabular of all the records in the database. Without the acHidden it works fine and prints only the one report, but flashes the report up momentarily.

Dim iSelectedPrn As String
Dim strReport As String
Dim strCrit As String
Dim rpt As Report
strCrit = "[Rec ID] = " & Me![Rec ID]

    If RecordBrother = True Then
        iSelectedPrn = "Brother MFC-J5720DW Printer"
        strReport = "Record Brother"
    Else
        iSelectedPrn = "Lexmark 5400 Series"
        strReport = "Record Lex"
    End If

    If printorpreview = acViewNormal Then
    
        DoCmd.OpenReport strReport, acViewPreview, , _
        strCrit '[B], acHidden[/B]
    
        Set rpt = Reports(strReport)
        With rpt
            Set .Printer = Application.Printers(iSelectedPrn)
            If RecordBrother = True Then .Printer.PaperBin = 258 ' which paperbin for rep if brother 258=MP Tray
        End With
        DoCmd.PrintOut
        DoCmd.Close acReport, strReport, acSaveNo
    
    Else
        
        DoCmd.OpenReport strReport, printorpreview, , _
        strCrit

    End If

Can anyone help with why it is playing up?

 

[wackywoo105]

Can anyone help with this? I don't understand why it works fine if the report isn't hidden, but messes up if it is.

 

[jdraw]

I don't have personal experience, but I found this thread via Google related to PaperBin and Trays etc..

M$oft info here


Good luck.