Printing Reports to Multiple Printers

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?

re: Printing Reports to Multiple Printers

"TheThrill" <emailthethrill@yahoo.com> wrote in message
news:b23ce493.0408021455.70c2ec35@posting.google.c om...[color=blue]
> 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?[/color]

(Assuming Access XP or higher)

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

Sub printReport(ByVal strReportName As String, strPrinterName As String)
Set Applicateion.Printer = Application.Printers(strPrinterName)
DoCmd.OpenReport 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.Printers
Debug.Print prn.DeviceName
Next prn
End Sub