返回列表下一主題上一主題發帖

[分享] set印表機

Min

　暱稱: 閔

版主 Rank: 7 Rank: 7 Rank: 7

帖子: 172
主題: 39
精華: 20
積分: 177
點名: 0
作業系統: Microsoft Windows XP
軟體版本: Microsoft Office 2003
閱讀權限: 100
性別: 男
來自: 高雄
註冊時間: 2010-5-1
最後登錄: 2023-3-19

論壇貢獻勳章帥哥勳章

1^# 跳轉到 » 倒序看帖

打印

字體大小: tT

發表於 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