Sub PrintCurrentPage() ActivePrinter = "プリンタ名" ActiveDocument.PrintOut Background:=True, Range:=wdPrintCurrentPage, Copies:=1 End Sub これをクイックアクセスツールバーや、リボンに置く。ワンクリックでそのページだけを印刷できて、便利。