VBA: 获取电脑当前默认打印机的名称

Option Explicit

Sub getPrinterName()

    Dim Printer_original As String
    
    Dim Path As String, path_saved As String, name_file As String
    
    '1 记录最开始的默认打印机
    Printer_original = Application.ActivePrinter
    
    '2 将一份excel文件转化为pdf文件
    Path = "E:\工作\报告展示\1.xlsx"
    path_saved = "E:\工作\报告展示\1.pdf"
    name_file = "1.xlsx"
    
    Workbooks.Open (Path)
        
    ActiveWorkbook.Worksheets(1).PrintOut copies:=1, preview:=False, ActivePrinter:="Microsoft Print to PDF" _
        , PrintToFile:=True, PrToFileName:=path_saved, IgnorePrintAreas:=False
        
    Workbooks(name_file).Close False
    
    '3 恢复默认的打印机
    Application.ActivePrinter = Printer_original
    
End Sub