一部のプリンタには、用紙の両面に印刷する機能があります。この機能はデュプレックスと呼ばれ、プリンターのコストに大きな変化をもたらす可能性があります。プリンタに両面印刷がない場合、同じ結果を得る唯一の方法は、用紙をプリンタに2回通すことです。次のVBAマクロは、このプロセスを支援します。最初にドキュメントの奇数ページを印刷し、用紙を裏返すように求めてから、偶数ページを印刷します。

Sub PrintBothSides()

Dim iTemp As Integer

ActiveDocument.PrintOut Copies:=1, PageType:=wdPrintOddPagesOnly     iTemp = MsgBox("Switch paper to continue", vbOKCancel, "PrintBothSides")

If iTemp = vbOK Then         ActiveDocument.PrintOut Copies:=1, PageType:=wdPrintEvenPagesOnly     End If End Sub

注：

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

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

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

（Microsoft Wordは、世界で最も人気のあるワードプロセッシングソフトウェアです。）このヒント（1418）は、Microsoft Word 97、2000、2002、および2003に適用されます。