Printing report on different printers

[mujaqo]

I have simple table with two fields (ItemName and PrinterName), how can I print each group of items on the printer that is available in PrinterName field using the same report?
Example of table content:

ItemName	PrinterName
The Calamitous 14th Century	HP Deskjet 2540
The Fates of Human Societies	HP ENVY 4500
The Civil War Era	HP Deskjet 2540
Eyewitness Travel Guide	HP LaserJet Pro P1102w

[orange]

Check this https://support.microsoft.com/kb/319317

[amrut]

Following are bits of code you may use
Use the Application.Printer property

'List of printers
Dim prt As Printer
For Each prt In Application.Printers
Debug.Print prt.DeviceName
Next prt

'to print same report on different printers

'Save the default printer name
DefaultPrinter = Application.Printer.DeviceName

'Change the printer to desired one
Set Application.Printer = Application.Printers(YourPrinterName)    'You can use Dlookup instead of YourPrinterName to get the desired printer from the table.
'print the report
DoCmd.OpenReport "YourReportName", acNormal
'Set the default printer back
Set Application.Printer = Application.Printers(Default)

[mujaqo]

Thank you so much amrut