Setting the default printer

Hi there,

I am trying to set the default printer using VBA and every time I run it I get a run time error because it doesn't like the name of the printer I am specifying. When I ran this macro:

Sub get_printers()

On Error Resume Next

Set WshNetwork = CreateObject("WScript.Network")
Set oPrinters = WshNetwork.EnumPrinterConnections
For i = 0 To oPrinters.Count - 1 Step 1
Cells(i + 1, 1) = "Port " & oPrinters.Item(i) & " = " & oPrinters.Item(i + 1)
Next
End Sub

it tells me all my active printers and a list and the one I want to use is this:

Port 10.1.70.## = \\network\RICOH Aficio MP C2500 PCL 6

but when I use:

Application.ActivePrinter = "\\network\RICOH Aficio MP C2500 PCL 6"

or

Application.ActivePrinter = "RICOH Aficio MP C2500 PCL 6"

or

Application.ActivePrinter = "\\network\RICOH Aficio MP C2500 PCL 6 On Port 10.1.70.##"

I get these run time errors. Is there something wrong with how I am naming the default printer? Thanks for your help!

Hi AlphaFrog,

This was already my first point of call but unfortunately when you record a macro and change the printer nothing registers in a macro. Likewise if you record a macro, change the printer and press the print button, nothing in the VBA code actually specifies what specific printer Excel should use; which is great for most purposes as it allows the OS to decide what printer to use but in this case it is important that a specific printer on a network is chosen to print the doc. And normally the Application.ActivePrinter = "PrinterName" should work for this

When setting a printer in Excel you need to include the port number, which will look something like NE01:, have a look here http://www.excelforum.com/tips-and-t...excel-vba.html it gets the required port for a given printer

Thanks Kylie123 I will give this a go!