コード 参照設定：Microsoft Shell Controls And Automation Sub Test() Dim myPrinter As String myPrinter = Application.ActivePrinter Dim Shell As Shell32.Shell Set Shell = New Shell32.Shell Dim Printer As Shell32.FolderItem2 For Each Printer …