返回列表 上一主題 發帖

[發問] Excel VBA 指定網路印表機問題

jsc0518

帖子
450 
主題
110 
精華
0 
積分
557 
點名
78  
作業系統
Windows 10 
軟體版本
Office 2019 
閱讀權限
50 
性別
男 
註冊時間
2013-11-7 
最後登錄
2024-4-18 

2023年全勤獎章2022虎年全勤獎章2021牛年全勤獎章2020鼠年全勤獎章2019 豬年全勤獎章2018 狗年全勤獎章2017 雞年全勤獎章論壇贊助勳章
1# 跳轉到 » 倒序看帖
打印
tT
發表於 2019-1-29 18:49 | 只看該作者

[發問] Excel VBA 指定網路印表機問題

Dear 各位 vba 先進,
我想做一個按鍵，按下去之後它會自動印出
這台印表機是網路印表機，我參考了網路資料，但語法執行時出現錯誤訊息400
語法如下

Private Sub 列印指定印表機()

    Application.ActivePrinter = "\\192.168.1.16\EPSON WF-R5690 Series on Ne05:"
    ActiveSheet.PrintOut

End Sub
網路印表機-2.jpg
2019-1-29 18:49


網路印表機.jpg
2019-1-29 18:49
收藏 分享
Just do it.

jsc0518

帖子
450 
主題
110 
精華
0 
積分
557 
點名
78  
作業系統
Windows 10 
軟體版本
Office 2019 
閱讀權限
50 
性別
男 
註冊時間
2013-11-7 
最後登錄
2024-4-18 

2023年全勤獎章2022虎年全勤獎章2021牛年全勤獎章2020鼠年全勤獎章2019 豬年全勤獎章2018 狗年全勤獎章2017 雞年全勤獎章論壇贊助勳章
2#
發表於 2019-1-30 20:08 | 只看該作者
回復 1# jsc0518

Dear all,
剛剛參考了此網頁，TEST OK

http://forum.twbts.com/viewthrea ... ht=%A6L%AA%ED%BE%F7

TEST OK 語法如下
Sub Print()
    Application.ActivePrinter = "EPSON WF-R5690 Series on Ne05:"
    ActiveSheet.PrintOut
End Sub
Just do it.

TOP

        靜思自在 : 不怕事多，只怕多事。
返回列表 上一主題