[[20150525152804]]　『連番をページ別の印刷にしたい』（よんまる）　ページの最後に飛ぶ

『連番をページ別の印刷にしたい』（よんまる）

sheet1に2ページにわたるデータがあるとします。
その中のセルに連番をいれたとします。（1ページ目2ページ目に各1箇所、同じ番号）

印刷かけた時に例として各ページ10枚だったとします。
通常ですとただ印刷すると1ﾍﾟｰｼﾞ目→2ﾍﾟｰｼﾞ目（セルには1）・1ﾍﾟｰｼﾞ目→2ﾍﾟｰｼﾞ枚目（セルには2）･･･という風に印刷がされます。

これを1ﾍﾟｰｼﾞ目（セルには1.2.3...）1ページ目が印刷終わってか2ページ目（セルには1.2.3...）という風な印刷にしたい時、どのようなﾏｸﾛにすればいいのか分かりません。

ちなみに説明にあるように現在のﾏｸﾛは以下の通りです。

Sub 印刷()
Dim i As Long, pn

    If MsgBox("AL31セルの値を初期化しますか？", vbYesNo) = vbYes Then
        Range("AL31").Value = 1
    End If
    pn = InputBox("何枚印刷しますか？")
    If IsNumeric(pn) Then
        For i = 1 To pn
            ActiveSheet.PrintOut
            Range("AL31").Value = Range("AL31").Value + 1
        Next i
    Else
        MsgBox "不正な値が入力されました。"
    End If
End Sub

＜使用 Excel：Excel2010、使用 OS：Windows7 ＞

 このようなことでしょうか。

    For p = 1 To 2
        Range("AL31").Value = 1
        For i = 1 To pn
            ActiveSheet.PrintOut From:=p, To:=p
            Range("AL31").Value = Range("AL31").Value + 1
        Next
    Next

（Mook） 2015/05/25(月) 19:38

ありがとうございます
いろんなサイトでいくら調べても分かりませんでした。

分けの分からないような説明だったのによく理解して頂き、
バッチリの回答まで本当に感激です。

（よんまる） 2015/05/26(火) 11:04

コメント返信：

[ 一覧(最新更新順) ]

[[20150525152804]] 『連番をページ別の印刷にしたい』（よんまる） ページの最後に飛ぶ

[[20150525152804]]　『連番をページ別の印刷にしたい』（よんまる）　ページの最後に飛ぶ