Selecting another network printer vba - Office 365

[MyersEPS]

Hello, everything that I can find on this is saying I have the correct code, but is still not working. I recorded the marco to select the printer, so I am assuming that is correct. Any help would be great. This is what I have;

Sub CHANGE_PRINTER_ONE()
Dim sCurrentPrinter As String
sCurrentPrinter = Application.ActivePrinter

Application.ActivePrinter = "\\IAN1516\Brother HL-2240 series LV Cell on Ne06:"
ActiveWindow.SelectedSheets.PrintOut Copies:=1, ActivePrinter:= _
"\\IAN1516\Brother HL-2240 series LV Cell on Ne06:", Collate:=True

Application.ActivePrinter = sCurrentPrinter
End Sub

 

[MyersEPS]

Yes, I am able to select the printer and print to it, but no luck with the macro.

 

[sykes]

... just thinking about different options - to work around this, if you can't find a solution...

Would you be able to use the printer dialog call instead - to allow your users to select the required printer, during runtime?

application.Dialogs (xlDialogprint).Show

 

[Ben171]

Don't iterate printer ports, you can read it from the registry very easily:

Public Function GetPrinterPort(strPrinterName As String) As String
   Dim objReg As Object, strRegVal As String, strValue As String
   Const HKEY_CURRENT_USER = &H80000001
   Set objReg = GetObject("winmgmts:{impersonationLevel=impersonate}!\\.\root\default:StdRegProv")
   strRegVal = "Software\Microsoft\Windows NT\CurrentVersion\PrinterPorts\"
   objReg.getstringvalue HKEY_CURRENT_USER, strRegVal, strPrinterName, strValue
   GetPrinterPort = Split(strValue, ",")(1)
End Function

This post is 2 and a half years old but would just like to say a thank you as this has solved my issues and a very big headache!!!

I had it working originally with manually entering the Ne number alongside the printer name, however my Ne kept changing meaning I would have to manually change this everytime. The above works perfectly and makes it automatic again.