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