返回列表 上一主題 發帖

[分享] set印表機

[分享] 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

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

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

TOP

        靜思自在 : 【生命在呼吸間】佛陀說:「生命在呼吸間。」人無法管住自己的生命,更無法擋住死期,讓自己永住人間。既然生命去來這麼無常,我們更應該好好地愛惜它、利用它、充實它,讓這無常、寶貴的生命,散發它真善美的光輝,映照出生命真正的價值。
返回列表 上一主題