Active Default 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 PrintToAnotherPrinter() Dim strCurrentPrinter As String strCurrentPrinter = Application.ActivePrinter ' store the current active printer On Error Resume Next ' ignore printing errors Application.ActivePrinter = "microsoft fax on fax:" ' change to another printer ActiveSheet.PrintOut ' print the active sheet Application.ActivePrinter = strCurrentPrinter ' change back to the original printer On Error GoTo 0 ' resume normal error handling End Sub 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 Active default printer also prints 2 network printer also prints 3 excel operators hk 4 to activate the desired printer 5 prints all sheet / pages with data or scans but does not print 6 printing and prompting 7 if the sheet / page is blank, inserts the date in the footer and prints if not 8 Calculate the sum of cells with only a certain cell color 9 prints cells with data 10 specify the number of copies to print from the printer 11 number of sheet / page prints with message box (prints even if the sheet / page is blank) 12 write the days of this month to the right write the day to the child cell and color the weekends 13 automatic image fetch 14 is there a printer installed 15 prints selected areas on a sheet of paper 16 prints selected areas on a sheet of paper 17 active cell printing 18 Does the active cell remain in an area named after it? 19 prints the name of the workbook as a footer in the lower right corner of the sheet / page 20 is the size of a file in bytes?