Windowsが複数のプリンターをサポートしていることは既にご存知でしょう。ただし、複数のプリンタでWordを使用するのは面倒な場合があります。これは、印刷オプションを表示し、プリンタを変更してから、ドキュメントを印刷する必要があるためです。

指定されたプリンターでドキュメントをワンクリックで印刷できる方法があります。これを行うには、プリンターを変更してからドキュメントを印刷するマクロを記録するだけです。以下は、タスクを実行するマクロの例です。

Sub GoodPrinter()

Dim sCurrentPrinter As String

sCurrentPrinter = ActivePrinter     ActivePrinter = "HP LaserJet"

Application.PrintOut Range:=wdPrintAllDocument, _       Item:=wdPrintDocumentContent, Copies:=1     ActivePrinter = sCurrentPrinter End Sub

このマクロで注意すべきことの1つは、ActivePrintereを設定する行です。出力に使用するプリンターの名前を正確に反映するように行を変更します。この例では、「HPLaserJet」という名前のプリンターに設定されています。

このマクロは実際には記録されていないことに注意してください。それは最初から書かれました。その理由は、使用中のプリンターの名前をsCurrentPrinter変数に格納できるようにするためです。印刷が完了すると、マクロで変更される前のプリンタに戻すことができます。

秘訣は、使用するプリンターごとにマクロを作成することです。次に、各マクロを `link：/ wordribbon-Adding_Tools_to_the_Quick_Access_Toolbar [クイックアクセスツールバー]`に配置して、各プリンターに独自の印刷ボタンを設定できます。次にボタンをクリックすると、適切なマクロが実行され、目的のプリンターで出力が得られます。

注：

このページ（または_WordTips_サイトの他のページ）で説明されているマクロの使用方法を知りたい場合は、役立つ情報を含む特別なページを用意しました。

link：/ wordribbon-WordTipsMacros [ここをクリックして、新しいブラウザタブでその特別なページを開きます]。

_WordTips_は、費用効果の高いMicrosoftWordトレーニングのソースです。

（Microsoft Wordは、世界で最も人気のあるワードプロセッシングソフトウェアです。）このヒント（8560）は、Microsoft Word 2007、2010、2013、2016、2019、およびOffice 365のWordに適用されます。このヒントのバージョンは、ここにWordの古いメニューインターフェイス：

link：/ word-Working_with_Multiple_Printers [複数のプリンターでの作業]。