ªð¦^¦Cªí ¤W¤@¥DÃD µo©«

[¤À¨É] set¦Lªí¾÷

[¤À¨É] set¦Lªí¾÷

Sub ¦Lªí¾÷¦Cªí()
'¤Þ¥Î Windows Script Host
    Set WshNetwork = CreateObject("WScript.Network")
    Set Printers = WshNetwork.EnumPrinterConnections
    For i = 0 To Printers.Count - 1 Step 2
        Msg = Msg & Printers.Item(i + 1) & Chr(13)
    Next
    MsgBox Msg
End Sub
Sub ¥Ø«e¦Lªí¾÷()
    MsgBox Application.ActivePrinter
End Sub
Sub §ïÅܦLªí¾÷()
    Application.Dialogs(xlDialogPrinterSetup).Show
End Sub

½Ð°Ý¶{ª©¥D
SET¦Lªí¾÷³o½g¤å³¹
¾A¥Î©ó¦óºØ±¡§Îµo¥Í®É?¤~­n¼g³o¶ôµ{¦¡?

³q±`WINDOW¤£¬Oª½±µ·s¼W¦Lªí¾÷´N¥i¥H¤F¶Ü?
ÁÂÁÂ!

TOP

        ÀR«ä¦Û¦b : ¯à·F¤£·F¡A¤£¦p­W·F¹ê·F¡C
ªð¦^¦Cªí ¤W¤@¥DÃD