Печать отчёта на указанном принтере

По материалам: https://www.cyberforum.ru/ms-access/thread2121350.html#post11709760

Public Sub PrintReport(strReport As String, strPrinter As String)  
Dim rpt As Report 
    DoCmd.OpenReport strReport,View:=acViewPreview, WindowMode:=acHidden 
    Set rpt = Reports(strReport) 
    Set rpt.Printer = Application.Printers(strPrinter) 
    DoCmd.OpenReport strReport 
    DoCmd.Close acReport, strReport 
    Set rpt = Nothing
End Sub