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