Excel VBAでプリンタを変更し印刷する : Excel(エクセル)

使用するプリンタの設定・取得は、ActivePrinterプロパティを使います。

[ 構文 ]
[Object].ActivePrinter=[プリンタ名]
プリンタ名は「Canon Inkjet iP4500 series on Ne03:」のようにプリンタ名「Canon Inkjet iP4500 series」+接続場所「on Ne03:」のように指定します。

Excel Tipsメニューに戻る

スポンサーリンク






Excel実行画面

■ プリンタを変更し印刷するテストシート

ラジオボタンで「プリンタ印刷」と「PDF作成」のどちらかを選択し、「印刷」ボタンをクリックすると印刷が開始されます。
「PDF作成」はPrimoPDFを使用し、印刷と同様の指定で実行できます。
プリンタを変更し印刷するテストシート

スポンサーリンク


Excel VBAコード

Private Sub CommandButton1_Click()
    If OptionButton1.Value = True Then
        'プリンタ印刷
        Application.ActivePrinter = "Canon Inkjet iP4500 series on Ne03:"
        '印刷
        Worksheets("Sheet1").PrintOut
    ElseIf OptionButton2.Value = True Then
        'PDFファイル作成
        Application.ActivePrinter = "PrimoPDF on Ne00:"
        '印刷
        Worksheets("Sheet1").PrintOut
    End If
End Sub

[関連リンク]
印刷ダイアログボックスを表示する
引数を設定し印刷ダイアログボックスを表示する

スポンサーリンク






Excel Tipsメニューに戻る

■■■
このサイトの内容を利用して発生した、いかなる問題にも一切責任は負いませんのでご了承下さい
■■■
当ホームページに掲載されているあらゆる内容の無許可転載・転用を禁止します


Copyright (c) Excel-Excel ! All rights reserved