[[20211102210003]]　『2つの帳票に違う日付を入れて連続印刷したい』（ゆっきー）　ページの最後に飛ぶ

『2つの帳票に違う日付を入れて連続印刷したい』（ゆっきー）

はじめまして
vba全くの初心者です
自分のしたいことをネットで探していましたら、以下vbaが1番近かったので、これを応用したいのですが、どう変更すればいいかわかりません。

Const conCell As String = "z1" '値変更セル番地
の後に、さらにセル(j1)に、下半期分の日付を入れて連続印刷するよう設定したいのですが、コピーをしてもコンパイルエラーが出てしまいうまくいきません。

やりたいこととは、シートに2枚の帳票があり、左右2枚の帳票に1年分の日付を分けて入力後印刷するというのものです。
※上半期日付がA1、下半期の日付がj1に入れたい
※z列には、改ページを設定した上で、年間分の日付を入力している

1枚の帳票であれば、下記vbaのままでもできそうなのですが、
エコのため、1シートに2つの帳票を表示し、左側にz１のときは、右側にz123の日付を同時に入力し、連続印刷、裁断機で切断し、半数の枚数で済まそうという魂胆です。
初心者ゆえわかりにくい文章で申し訳ありませんが、どなたか助けてくださいませんか

……
Sub Print_Out_1_2() 'セルに値を設定しながら連続印刷する　開始と終了をセルで指定する

    '定数
    Const conStrR As String = "z1" '開始　セル番地
    Const conEndR As String = "z122" '終了　セル番地
    Const conStep As Long = 1      '間隔
    Const conCell As String = "A1" '値変更セル番地

    '変数
    Dim i As Long

    With Application
        .ScreenUpdating = False
        With .ActiveSheet
            For i = .Range(conStrR) To .Range(conEndR) Step conStep
                .Range(conCell).Value = i
                .PrintOut
            Next
        End With
        .ScreenUpdating = True
    End With
End Sub

＜使用 Excel：Excel2016、使用 OS：Windows8 ＞

こうですか

 Sub test()
    Dim i As Long

    For i = 1 To 122
        Range("A1").Value = Range("Z" & i).Value
        Range("J1").Value = Range("Z" & i + 122).Value
        ActiveSheet.PrintOut
    Next

 End Sub

（マナ） 2021/11/02(火) 21:58

早速のお返事ありがとうございます
残念ながら今すぐ試せる環境ではないので、試してみたくウズウズしておりますが、必ず結果をのちにご報告させていただきます

（ゆっきー） 2021/11/02(火) 22:36

コメント返信：

[ 一覧(最新更新順) ]

[[20211102210003]] 『2つの帳票に違う日付を入れて連続印刷したい』（ゆっきー） ページの最後に飛ぶ

[[20211102210003]]　『2つの帳票に違う日付を入れて連続印刷したい』（ゆっきー）　ページの最後に飛ぶ