Microsoft ExcelでVBAを使用して逆の順序でページを印刷

投稿日: 2020年10月22日 2020年11月12日
タグ: printing-in-vba

以下のマクロを使用して、ワークシートのページを逆の順序で印刷できます。

Sub PrintInReverseOrder()

Dim TotalPages As Long, p As Long

TotalPages = (ActiveSheet.HPageBreaks.Count + 1) * _

(ActiveSheet.VPageBreaks.Count + 1)

For p = TotalPages To 1 Step -1

'ActiveSheet.PrintOut p, p

Debug.Print "Printing page " & p & " of " & TotalPages

Next p

End Sub