改ページで設定しているページを任意の順番で印刷を行う

シートの中を改ページにしています。7ページ
ページを指定して順番に印刷出来るVBAコードを教えていただけないでしょうか
6ページ→4ページ→3ページ→2ページ →1ページ→5ページ→7ページ
の順番です。
宜しくお願い致します。

No.2 ベストアンサー 回答者： WindFaller 回答日時： 2019/08/20 01:14

こんなふうにすればどうでしょうか。

'//標準モジュール
Sub EachPagePrint()
　Dim i As Variant
　Dim myOrder As String
　Dim arOrder
　Dim PgTotal As Long
　PgTotal = Application.ExecuteExcel4Macro("GET.DOCUMENT(50)")　'全ページ数
　With ActiveSheet
　　myOrder = "6,4,3,2,1,5,7" '順序
　　arOrder = Split(myOrder, ",")
　　For Each i In arOrder
　　　If i <= PgTotal Then
　　　　ActiveSheet.PrintOut From:=i, To:=i　　', Preview:=True ''プレビュー
　　　End If
　　Next i
　End With
End Sub

No.1 回答者： rukaandkaito 回答日時： 2019/08/19 16:57

ARRAYの引数に指定のページを持たせて１ページ印刷をループする方法ではいかがでしょうか？

--------------------------------------------------------------------------------
Dim aryPage　　As Variant
Dim intL　　　　As Integer
aryPage = New Array(0,6,4,3,2,1,5,7)
For intL = 1 To 7
　印刷処理(intL←ページ指定)
Next intL
--------------------------------------------------------------------------------
お試しください