Wordで文書を印刷する際、通常のプリンター以外を一時的に指定したい場面がありますよね。例えば、FAX送信や特定のプリンターでの印刷などです。そんな時に便利なのが、Word VBAを使ったマクロです。今回は、初心者の方でもわかりやすく、実際のコードとともに解説します。
Word VBAでプリンターを指定する基本の流れ
まず、Word VBAを使ってプリンターを指定する基本的な流れを見てみましょう。
現在のプリンターを保存する
vba
Dim originalPrinter As String
originalPrinter = Application.ActivePrinter
このコードで、現在設定されているプリンターの名前を変数`originalPrinter`に保存します。
使用したいプリンターを指定する
vba
Application.ActivePrinter = "使用したいプリンターの名前"
ここで、`”使用したいプリンターの名前”`の部分を、実際に使用したいプリンターの名前に置き換えてください。
印刷を実行する
vba
ActiveDocument.PrintOut
このコードで、現在アクティブな文書を印刷します。
元のプリンターに戻す
vba
Application.ActivePrinter = originalPrinter
印刷が終わったら、元のプリンター設定に戻すことを忘れないようにしましょう。
実際のマクロ例FAX送信用の印刷マクロ
実際にFAX送信用の印刷マクロを作成してみましょう。
vba
Sub FAX送信()
Dim originalPrinter As String
originalPrinter = Application.ActivePrinter
Application.ActivePrinter = "FAXプリンター名"
ActiveDocument.PrintOut
Application.ActivePrinter = originalPrinter
End Sub
このマクロを実行すると、指定したFAX用プリンターで文書が印刷され、印刷後は元のプリンター設定に戻ります。
よくある質問や疑問
Q1: プリンターの名前はどこで確認できますか?
プリンターの名前は、Wordの「印刷」ダイアログで確認できます。そこに表示されているプリンターの名前を、VBAコード内で使用してください。
Q2: 複数のプリンターを順番に指定して印刷することはできますか?
はい、可能です。プリンターを切り替える際に、上記の方法で`ActivePrinter`を変更し、印刷後に元のプリンターに戻すことで、複数のプリンターで順番に印刷することができます。
Q3: 印刷設定を変更せずに、特定のページだけを印刷することはできますか?
はい、`PrintOut`メソッドの引数を使用して、特定のページ範囲を指定することができます。例えば、`ActiveDocument.PrintOut From:=1, To:=1`とすることで、1ページ目だけを印刷できます。
今すぐ解決したい!どうしたらいい?
いま、あなたを悩ませているITの問題を解決します!
「エラーメッセージ、フリーズ、接続不良…もうイライラしない!」
あなたはこんな経験はありませんか?
✅ ExcelやWordの使い方がわからない💦
✅ 仕事の締め切り直前にパソコンがフリーズ💦
✅ 家族との大切な写真が突然見られなくなった💦
✅ オンライン会議に参加できずに焦った💦
✅ スマホの重くて重要な連絡ができなかった💦
平均的な人は、こうしたパソコンやスマホ関連の問題で年間73時間(約9日分の働く時間!)を無駄にしています。あなたの大切な時間が今この悩んでいる瞬間も失われています。
LINEでメッセージを送れば即時解決!
すでに多くの方が私の公式LINEからお悩みを解決しています。
最新のAIを使った自動応答機能を活用していますので、24時間いつでも即返信いたします。
誰でも無料で使えますので、安心して使えます。
問題は先のばしにするほど深刻化します。
小さなエラーがデータ消失や重大なシステム障害につながることも。解決できずに大切な機会を逃すリスクは、あなたが思う以上に高いのです。
あなたが今困っていて、すぐにでも解決したいのであれば下のボタンをクリックして、LINEからあなたのお困りごとを送って下さい。
ぜひ、あなたの悩みを私に解決させてください。
まとめ
Word VBAを使うことで、普段使っているプリンターを変更せずに、特定のプリンターで印刷することができます。特に、FAX送信や特定のプリンターでの印刷が必要な場合に便利です。最初は少し難しく感じるかもしれませんが、実際にコードを書いて試してみることで、徐々に慣れていくことができます。
他にも疑問やお悩み事があれば、お気軽にLINEからお声掛けください。
コメント