[Word VBA] 現在のページを印刷するマクロ

|

毎回わざわざ ファイル → 印刷 → 設定:現在のページを印刷 → 印刷 とやるのが面倒くさいのでマクロにしてボタンにしました。あー、楽になった。

Sub PrintActivePage()
    ' ◆◆ 現在のページのみ印刷するマクロ ◆◆
    ActiveDocument.PrintOut Background:=True, Range:=wdPrintCurrentPage
End Sub

応用:

Sub PrintActivePagePlus1()
    ' ◆◆ 現在のページと次のページの2枚を印刷するマクロ ◆◆
    Dim P1, P2
    P1 = Selection.Information(wdActiveEndPageNumber)
    P2 = P1 + 1
    ActiveDocument.PrintOut Background:=True, Range:=wdPrintFromTo, From:=CStr(P1), To:=CStr(P2)
End Sub

カスタム検索
Access Counter
Powered by Movable Type 4.22-ja

2016年9月

Sun Mon Tue Wed Thu Fri Sat
        1 2 3
4 5 6 7 8 9 10
11 12 13 14 15 16 17
18 19 20 21 22 23 24
25 26 27 28 29 30  

最近のブログ記事