print to Specific shared printer.

Hello,

i have an excel workbook that generate reports and make printouts to different printers depending on printer name using the code Application.ActivePrinter = thisworkbook.sheet("Main").Range("A1").value, the code worked fine when all printers are connected to the PC.

now all printers are connected to other PCs and shared to one computer which generate the report, the problem i am facing is that the reports get printed to default printer only even the macro is set to print to a selected printer using the same code above.

please help to solve.

Thank you
Redwan

Have you updated the value in Main A1 to reflect the new location of the printer?

Yes, the value get updated automatically to "PRINTER 01" or "PRINTER 03" or "PRINTER 03" then printout.
this way was working perfectly when all printers connected to the same PC on which the reports are generated.

Thank you

Maybe, but because the printer is no longer directly connected you will probably need the full path.
Start the macro recorder and do a test print to get the new details of the printer.

I tried that, it's not working, i get bellow code only.

Selection.PrintOut Copies:=1, Collate:=True, IgnorePrintAreas:=False

I was sure that worked last time I tried it.
Try reversing the existing logic to get the correct path.
Set the printer you want to use manually, then execute this line of code to get the correct name in A1

Please Login or Register  to view this content.

i tried your solution it gives me the details of the printer "\\EIC1207\HP LaserJet P2050 Series PCL6 on Ne06:" but i see tehre is "Ne06". what is this and how can i get it for other printers and will it remain like this or get changed every time PC restats.

Thank you for your help.

Ne06 is the location of the printer, it should be fixed with the network.
I'm not entirely sure what it is based on, but I think it should only change if the printer is moved again to a different PC.

To get the same for the other printers, set each one as active, then execute the code line as before.