質問: 改ページで設定しているページを任意の順番で印刷を行う シートの中を改ページにしています。7ページ ページを指定して順番に印刷出来るvbaコードを教えていただけないでしょうか 6ページ→4ページ→3ページ→2ページ →1ページ→5ページ→7ページ の順番です。 宜しくお願い致します。
回答: こんなふうにすればどうでしょうか。 '//標準モジュール 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