[[20210308095309]]　『プリンターがあるかないかのif文を知りたいです。』（れい）　ページの最後に飛ぶ

『プリンターがあるかないかの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

printernameの所をH5で試しましたら上手くいきました。
ありがとうございます！
（れい） 2021/03/08(月) 10:24

コメント返信：

[ 一覧(最新更新順) ]

[[20210308095309]] 『プリンターがあるかないかのif文を知りたいです。』（れい） ページの最後に飛ぶ

[[20210308095309]]　『プリンターがあるかないかのif文を知りたいです。』（れい）　ページの最後に飛ぶ