[[20220126142429]]　『VLOOKUPを利用した連続印刷で何故か２枚ずつ印刷ａx（シロート）　ページの最後に飛ぶ

『VLOOKUPを利用した連続印刷で何故か２枚ずつ印刷される』（シロート）

Sheet1のA列には通し番号が入力されていて、B列以降にはいろいろな情報が入っています。
Sheet2に作った様式にSheet1の情報を順番に入力し、まとめて印刷したかったので次のようなマクロを作りました。

Sub 印刷()
Dim rc As Integer

    rc = MsgBox("印刷を開始しますか？", vbYesNo + vbQuestion, "確認")
    If rc = vbYes Then
        MsgBox "処理を行います"
 Dim i As Integer
 Dim Start_Point As Integer
 Dim End_Point As Integer

Start_Point = Worksheets("Sheet1").Range("A2").Value
End_Point = Worksheets("Sheet1").Range("C2").Value

For i = Start_Point To End_Point

  Worksheets("Sheet2").Range("A1") = i
  Worksheets("Sheet2").PrintOut
Next i
Else
        MsgBox "処理を中断します"
    End If
End Sub

Sheet2のA1は文字を白くして通し番号が順番に入るようにし、他の情報が入るセルにはA1を検索値としたVLOOKUP関数が入力されています。

印刷自体は上手く行ったのですが、何故か同じデータの紙が2枚ずつ出力されてしまい困っています。

マクロに問題があれば教えてください。

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

 印刷部数が「2」になっているとか？
（ガヤ） 2022/01/26(水) 14:49

＞＞ガヤ様

すでに確認済みですが部数は「1」と入力されていました。
マクロを使わず普通に印刷した場合はきちんと１枚だけ印刷されるので、
マクロ側に何か問題があるのではないかと思い質問させて頂きました。
（シロート） 2022/01/26(水) 14:55

 Worksheets("Sheet2").PrintOut　→　 Worksheets("Sheet2").PrintOut Copies:=1

 としてみるとか？

（jjj） 2022/01/26(水) 15:10

■１
コードを見る限りおかしな点は無いように思うので質問の回答にはならないですが、おかしいなとおもったら、まずは【ステップ実行】して自己検証してみることをお勧めします。
そうすることで、仮に想定外の部分があったとしても自身で気づけるようになります。

■２
また、提示のコードについてインデントを適切につけると、コードの構造が把握しやすくなりご自身のデバッグ作業に寄与するとおもいますので、一度検討されてはいかがでしょうか？

 ※例えば、インデントを付けなおしつつ冗長な部分を整理するとこんな感じになります。
    Sub 印刷_整理()
        Dim i As Integer
        Stop
        If MsgBox("印刷を開始しますか？", vbYesNo + vbQuestion, "確認") = vbYes Then
            MsgBox "処理を行います"
            With Worksheets("Sheet1")
                For i = .Range("A2").Value To .Range("C2").Value
                    Worksheets("Sheet2").Range("A1").Value = i
                    Worksheets("Sheet2").PrintOut
                Next i
            End With
        Else
            MsgBox "処理を中断します"
        End If
    End Sub

■以下、参考になりそうなサイト

 【ステップ実行】
https://www.239-programing.com/excel-vba/basic/basic023.html
http://plus1excel.web.fc2.com/learning/l301/t405.html

 【ブレークポイント】
https://www.239-programing.com/excel-vba/basic/basic022.html
https://www.tipsfound.com/vba/01010

 【イミディエイトウィンドウ】
https://www.239-programing.com/excel-vba/basic/basic024.html
https://excel-ubara.com/excelvba1/EXCELVBA486.html

 【ローカルウィンドウ】
https://excel-ubara.com/excelvba4/EXCEL266.html
http://excelvba.pc-users.net/fol8/8_2.html

 【インデント】
https://excel-ubara.com/excelvba4/EXCEL_VBA_444.html
https://thom.hateblo.jp/entry/2018/02/26/234247
https://kabu-macro.com/detail.php?dir=word&dir2=sa-so&uri=zisage

（もこな２） 2022/01/26(水) 15:39

コメント返信：

[ 一覧(最新更新順) ]

[[20220126142429]] 『VLOOKUPを利用した連続印刷で何故か２枚ずつ印刷ａx（シロート） ページの最後に飛ぶ

[[20220126142429]]　『VLOOKUPを利用した連続印刷で何故か２枚ずつ印刷ａx（シロート）　ページの最後に飛ぶ