[ 初めての方へ | 一覧(最新更新順) | 全文検索 | 過去ログ ]
『プリンターがあるかないかのif文を知りたいです。』(れい)
いつもお世話になっております。
【H5】のセルにプリンター名を入力してある状態で、コマンドボタン押すとその【H5】のプリンターを指定して印刷をしていたのですが、この【H5】のプリンターがあるかないかのif文がわかりませんでしたので教えて頂けないでしょうか?
if ○○ then
call 印刷
else
end if
あれば印刷のコードを呼び出して無ければ終了にしたいのですが、困っておりました。
よろしくお願いいたします。
< 使用 Excel:Excel2013、使用 OS:Windows10 >
結局、こういうのはやってみてエラーが出るかどうかを調べるのが てっとり早いですね。
Sub sample()
If PrinterReady("Microsoft Print to PDF on Ne02:") Then Call 印刷 Else MsgBox "プリンタの準備ができていません" End If
End Sub
Function PrinterReady(PrinterName As String) As Boolean On Error Resume Next Application.ActivePrinter = PrinterName PrinterReady = Err = 0 On Error GoTo 0 End Function (´・ω・`) 2021/03/08(月) 10:12
試してみます!!
(れい) 2021/03/08(月) 10:17
[ 一覧(最新更新順) ]
YukiWiki 1.6.7 Copyright (C) 2000,2001 by Hiroshi Yuki.
Modified by kazu.