The issue with the code below, is that instead of having application I would like to assign it to the default printer of the computer.

The reason I have HP LaserJet on Neo01 is because in the next macro, the printer is set to Print to Adobe PDF

Windows("RS1.xls").Activate
Workbooks.Open Filename:=ActiveWorkbook.Path & "\" & "Sheet 1.xls", UpdateLinks:=False

    Windows("Sheet 1.xls").Activate
    ActiveWindow.SmallScroll Down:=-3
    Range("D5:H40").Select
     Application.ActivePrinter = "HP LaserJet on Ne01:"
    Selection.PrintOut Copies:=1, Collate:=True
    ActiveWindow.SmallScroll Down:=-15
    Range("I1:P41").Select
     Application.ActivePrinter = "HP LaserJet on Ne01:"
    Selection.PrintOut Copies:=1, Collate:=True


ActiveWorkbook.Close False


Is there a way to generalize this so that it just prints it to adobe pdf, through writer that way it will work on all pcs 



Windows("RS1.xls").Activate
Workbooks.Open Filename:=ActiveWorkbook.Path & "\" & "Sheet 1.xls", UpdateLinks:=False

    Windows("Sheet 1.xls").Activate
    
    
Range("D10").Select
    Application.ActivePrinter = "Adobe PDF on Ne02:"
    ActiveWindow.SelectedSheets.PrintOut Copies:=1, ActivePrinter:= _
        "Adobe PDF on Ne02:", Collate:=True
        
ActiveWorkbook.Close False