PrintersコレクションはExcelにはなかった

Sub PrinColl()
    Dim c As Object
    For Each c In Printers
        Debug.Print c.DeviceName
    Next
End Sub

結果例
OKI C811(PCL)
Microsoft XPS Document Writer
Microsoft Office Document Image Writer
EPSON PM-950C
EPSON PM-2200C
Canon MP600 Printer
Adobe PDF
Acrobat PDFWriter


 ↓ facebook のフォローで応援してください。お願いします。



Microsoft Office ブログランキングへ