出産前後の痔にはご注意!

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

A 回答 (2件)

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



'//標準モジュール
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
    • good
    • 0

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


--------------------------------------------------------------------------------
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
--------------------------------------------------------------------------------
お試しください
    • good
    • 0

お探しのQ&Aが見つからない時は、教えて!gooで質問しましょう!

このQ&Aを見た人はこんなQ&Aも見ています


このQ&Aを見た人がよく見るQ&A

人気Q&Aランキング