Printing to a range of printers

D

DubboPete

I want to be able to send the same report to three or more network
printers, but not sure of the code to do so. Any clues anyone? There
doesn't seem to be a whole lot of info on the archives...
 
D

DubboPete

Thanks Allen,

Not quite what I had in mind. What I was aiming for was a report to
print at three or more locations from one click of a button, with the
destination printer embedded in the code where it would trigger as part
of a 'docmd.openreport...' situation.

It's for an emergency situation, where a list of visitors would be
printed out for each of the fire officers, in the event of evacuation
of the building.

As you would appreciate, speed is paramount for this, so I didn't want
to clog it up with selecting printers for each instance of the report.

is that clearer?

Pete
 
A

Allen Browne

Did you try this kind of thing in the button's Click event:

Dim strDoc As String
strDoc = "Report1"
Set Printer = Printers(0)
DoCmd.OpenReport strDoc
Set Printer = Printers(1)
DoCmd.OpenReport strDoc
Set Printer = Printers(2)
DoCmd.OpenReport strDoc
Set Printer = Nothing
 
Top