Network Printer Also Prints Online Excel and Excel Macro (VBA) Courses Copy Macro 'For online Excel courses click: https://www.excelsizeyeter.com/excelwithkenan.com/udemy_giris.php Sub PrintToNetworkPrinterExample() Dim strCurrentPrinter As String, strNetworkPrinter As String strNetworkPrinter = GetFullNetworkPrinterName("HP LaserJet 8100 Series PCL") If Len(strNetworkPrinter) > 0 Then ' found the network printer strCurrentPrinter = Application.ActivePrinter ' change to the network printer Application.ActivePrinter = strNetworkPrinter Worksheets(1).PrintOut ' print something ' change back to the previously active printer Application.ActivePrinter = strCurrentPrinter End If End Sub Function GetFullNetworkPrinterName(strNetworkPrinterName As String) As String ' returns the full network printer name ' returns an empty string if the printer is not found ' e.g. GetFullNetworkPrinterName("HP LaserJet 8100 Series PCL") ' might return "HP LaserJet 8100 Series PCL on Ne04:" Dim strCurrentPrinterName As String, strTempPrinterName As String, i As Long strCurrentPrinterName = Application.ActivePrinter i = 0 Do While i - Report problem with this macro This macro does not work. There's an error in the code. Other You can write your comments about the error in the box below. Report error ALL MACROS Youtube Channel The following macros may be useful for you. Similar Results NoMacro Name 1 network printer also prints 2 excel operators hk 3 Active default printer also prints 4 to activate the desired printer 5 pdf preview 6 Send all pivot tables to printer 7 download files from the internet 8 shows all drivers 9 to run a macro in another book over a network 10 wmi network adapters 11 a3: prints data between cells f15 12 the name of your network connection 13 open excel file on network 14 dial up 15 prints the path and name of the file to the cell 16 remove sheet / page protections 17 prints selected areas on a sheet of paper 18 prints selected areas on a sheet of paper 19 active cell printing 20 a lot of dialog windows