Printing to a range of printers

[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...

 

[Allen Browne]

What version of Access is this, Pete?

If Access 2002 or later, you can just set the Printer object before you
OpenReport. There's an example of that kind of approach here:
http://allenbrowne.com/AppPrintMgtCode.html

For Access 2000 Albert Kallal has a downloadable example here:
http://www.members.shaw.ca/AlbertKallal/msaccess/printch2k.zip
or for Access 97:
http://www.members.shaw.ca/AlbertKallal/msaccess/printch97.zip

 

[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

 

[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