'Capture current default printer
Dim prt As Printer
Set prt = Application.Printer
'Set printer queue to fax
Set Application.Printer = FaxQueueHere
'Open and print report
DoCmd.OpenReport "ReportNameHere"
DoCmd.PrintOut
'Restore original print queue
Set Application.Printer = prt