Printing Reports to Multiple Printers

[TheThrill]

I've got a report, Report1 that i want to print to network Printers A,
B, C all with one key stroke. How do i do this?

[John Winterbottom]

"TheThrill" <em************ @yahoo.com> wrote in message
news:b2******** *************** ***@posting.goo gle.com...

I've got a report, Report1 that i want to print to network Printers A,
B, C all with one key stroke. How do i do this?

(Assuming Access XP or higher)

Sub PrintMyReports( )
Call printReport("Re port1", "PrinterA")
Call printReport("Re port1", "PrinterB")
Call printReport("Re port1", "PrinterC")
End Sub

Sub printReport(ByV al strReportName As String, strPrinterName As String)
Set Applicateion.Pr inter = Application.Pri nters(strPrinte rName)
DoCmd.OpenRepor t strReportname, acViewNormal
End Sub

If you want to know what printers you have installed you can loop through
the Printers collection of the Application object:

Sub ListMyPrinters( )
Dim prn As Printer
For Each prn In Application.Pri nters
Debug.Print prn.DeviceName
Next prn
End Sub