標題: [分享] set印表機 [打印本頁]

---

作者: Min    時間: 2010-5-9 22:02     標題: set印表機

Sub 印表機列表()
'引用 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 目前印表機()
    MsgBox Application.ActivePrinter
End Sub
Sub 改變印表機()
    Application.Dialogs(xlDialogPrinterSetup).Show
End Sub

---

作者: PD961A    時間: 2010-5-10 08:06

請問閔版主
SET印表機這篇文章
適用於何種情形發生時?才要寫這塊程式?

通常WINDOW不是直接新增印表機就可以了嗎?
謝謝!

---

歡迎光臨 麻辣家族討論版版 (http://forum.twbts.com/)