2022-03-02から1日間の記事一覧
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 これをクイックアクセスツールバーや、リボンに置く。ワンクリックでそのページだけを印刷できて、便利。