Changing the printer using VBA Code

[Ashabel]

I found most of the solution to my problem here:

http://bytes.com/topic/access/answer...inter-vba-code

I need to print to a printer that is not set as the default printer.

My question revolves around the coded solution. How do I determine what my printer needs to be referenced as in the following code:

Set Application.Printer = Application.Printers("HP LaserJet Series II")

[zmbd]

In a standarad module, insert the following and run.
Once you have the device name you can hardcode it.

Sub zListPrinterNames()
    Dim zPrinters As Printers
    Dim zprinter As Printer
    '
    Set zPrinters = Application.Printers
    '
    For Each zprinter In zPrinters
        Debug.Print "Printer Name: ", zprinter.DeviceName
    Next
    MsgBox Prompt:="Please press <CTRL><G> to view the list of printers available to this application"
    '
    Set zPrinters = Nothing
End Sub

Yes, you could build a listbox out of this too... just as easy to open the report in print preview and allow the user to select the printer by calling the printer dialog. You just need to remember to trap the error if the user cancels. (^_^)

[Ashabel]

Thank you very much.