スキルアップ・問題解決なら、モーグにおまかせ！

お世話になります
 
パソコンを買い替えて印刷ができなくなってしまいました
どなたか。ご教授お願いいたします
 
以前はExcel　2002と2003のバージョンでした
 
症状としては今まで印刷のマクロを実行すると
すべて問題なく該当する枚数を印刷できましたが
パソコンを変えてから2枚分しか印刷を行わず終了をしてしまいます
 
AAAシートの該当するセルに　１が入っている場合は印刷シートで該当分印刷を行うのですが、
以前は対象の1のセルが２０件あれば１０枚の印刷を行っていましたが、
パソコンを変えてからは対象が１０件でも２０件でも２枚(対象４件分)の印刷を行い終了してしまいます
以前問題なく動いていたマクロは下記となります
印刷2()
    Dim i As Long
    Dim k As Long
    Dim LastRow As Long
 
    Worksheets("AAA").Select
    LastRow = Cells(Rows.Count, 3).End(xlUp).Row
 
    For i = 7 To LastRow
        If Cells(i, 1).Value = 1 Then
            k = k + 1
            If k = 1 Then
                With Worksheets("印刷シート")
                    .Range("E12").Value = Cells(i, 3).Value
                End With
            Else
                With Worksheets("印刷シート")
                    .Range("E51").Value = Cells(i, 3).Value
                    .PrintOut
                   '.PrintPreview'(確認用)
                    .Range("E12:G12,E51:G51").ClearContents
                End With
                k = 0
            End If
        End If
    Next i
    '奇数個の場合の対応
    If k = 1 Then
        Worksheets("印刷シート").PrintOut
        'Worksheets("印刷シート").PrintPreview
    End If
        MsgBox "印刷が終了〜だよ　お疲れ様　"
    End Sub
 
 
原因のご指導をお願いいたします
 
 
 
因みに下記のマクロ
対象の1のセルが何件あっても
１枚に１件のみの印刷を行うと問題なく対象件数すべて印刷を行い終了します
 
Sub 印刷()
      Dim i As Long
      Dim LastRow As Integer
 
      Worksheets("AAA").Select
       LastRow = Cells(Rows.Count, 3).End(xlUp).Row
        
       For i = 7 To LastRow
          If Cells(i, 1).Value = 1 Then
             With Worksheets("印刷シート")
                 .Range("E12").Value = Cells(i, 3).Value
                 .PrintOut
                  
                 '.PrintPreview
             End With
           End If
        Next i
         
        MsgBox "印刷が終了〜だよ　お疲れ様　"
End Sub
 
症状の改善方法を
よろしくお願いいたします

コードだけ眺めて、解析することは無理です。
  
ステップ実行で、流れを確認してみましょう。
  
意図した、流れになっていないとき、データを確認しましょう。

WinArrowさん
ご返事ありがとうございます
 
一行づづマクロ実行を行うと
問題なく該当対象1の入ったセル分印刷を全て行えることができますが
一気に実行すると該当セル４つ分(用紙２枚)しか認識できないのか?
印刷終了となります
 
原因が分かりましたらご教授お願いいたします

印刷シートの印刷範囲は、どの様に指定していますか？
印刷範囲の指定が原因かは分かりませんが・・・・

 
掲示のコードで
こちらでも実行していましたが、異常はありません。
 
取り敢えずの回答です。

的はずれな回答かもしれません。
今使っているプリンターはWin11の対応ドライバーが提供されていますか？

 WinArrowさん
ライスマンさん
 
ご返事ありがとうございます
 
印刷シートの印刷範囲は、どの様に指定していますか？については
以前問題なく動いていた時と一切触っていません
また記載させいてただきました
 
 印刷2()　と印刷()のマクロは
同じ印刷シートで動かしていますが
印刷2()だけ4件(2枚で)終了します
 
ちなみに、印刷範囲を解除してもまた印刷を1枚に縮小するも解除しましたが
4件2枚の印刷で終了します
 
今使っているプリンターはWin11の対応ドライバーについては
パソコン購入時にエプソンのホームページから半月ぐらい前に
再インストールしましたので最新版だと思います　M-770プリンターです
今プリンターのアップグレードを確認しましたが最新で必要ないとなっていました
 
ご指導よろしくお願いします

ステップ実行では、問題ない・・・ということでしたら、
 
途中に
Debug.print などを挿入し、
何処で、スキップしているか確認してみましょう。

印刷したい範囲を一時的に手動で全件出力してみてはいかがか？
だいたい1回手動で成功すればマクロからプリントリクエストしても正常に処理できるようになったりする
（この場合、印刷用のテンプレート的な設定が未設定ないし未対応の設定だったために印刷が正常終了していないということになる）
 
また、VB側の印刷リクエストが正常に動作していない可能性もあるのでコマンドプロンプトからプリンターへ印刷リクエストするコマンドがある場合、VB内の印刷処理部分をそっち用に書き換える必要が出てくるかも。
（本当に苛立たしいような例外だけど、某印刷機メーカーの家庭用モデルでそのような事件が実際にあった）

QooAppさんのレスにもあるように、
コードの問題ではない・・・と思います。
 
それを確かめるためにも、
Printout
及び
PrintPrevuew
が実行できているか確認し、
実行できているのに、印刷できないとすれば、
原因がプリンタドライバとＯＳとの間にある・・・と切り分けができるのではないでしょうか？
 
 

WinArrowさん
QooAppさん
ご指導ありがとうございます
 
一行ずつマクロ確認で問題なく印刷ができて
1枚ずつのマクロは問題がなく印刷ができる状態ですが
 
QooAppさんのご指導頂いた
VB側の印刷リクエストが正常に動作していない可能性もあるのでコマンドプロンプトからプリンターへ印刷リクエストするコマンドがある場合、VB内の印刷処理部分をそっち用に書き換える必要が出てくるかも・・・私のスキルではご指導いただいた内容が理解できない状態なので申し訳ございません(具体的にマクロ文等でご指導いただければと勝手に思っております)
 
またWinArrowさんのご指導いただいた
PrintPrevuewが実行できているか確認し、実行できているのに、印刷できないとすれば、
原因がプリンタドライバとＯＳとの間にある・・・と切り分けができるのではないでしょうか？
の意味も申し訳ございません、私のスキルでは今一つ理解できない状況です
 
でも、WinArrowさん、QooAppさんご指導ありがとうございます、助かります
 
ネットを調べていましたら
処理が追い付かないと言う記載記事がありましたので
 
マクロの中に
 Application.Wait Now + TimeValue("00:00:01") '1秒止める　　
を追記して動かしたら、問題なく・・・?　　印刷ができました
 
パソコンの性能が上がり、マクロの実行スピードに処理(プリンター?)が追い付かづ、エラーが発生したのかな?と私なりに勝手に想像しています。
 
下記は追記したマクロとなります
ub 印刷2()
    Dim i As Long
    Dim k As Long
    Dim LastRow As Long
 
    Worksheets("AAA").Select
    LastRow = Cells(Rows.Count, 3).End(xlUp).Row
 
    For i = 7 To LastRow
        If Cells(i, 1).Value = 1 Then
            k = k + 1
            If k = 1 Then
                With Worksheets("印刷シート")
                    .Range("E12").Value = Cells(i, 3).Value
                End With
                 
              Application.Wait Now + TimeValue("00:00:01") '1秒止める
                 
            Else
                With Worksheets("印刷シート")
                    .Range("E51").Value = Cells(i, 3).Value
                    .PrintOut
                   '.PrintPreview
                    .Range("E12:G12,E51:G51").ClearContents
                End With
                k = 0
            End If
        End If
    Next i
    '奇数個の場合の対応
    If k = 1 Then
        Worksheets("印刷シート").PrintOut
        'Worksheets("印刷シート").PrintPreview
    End If
     
    MsgBox "印刷が終了〜だよ　お疲れ様　"
     
End Sub
 
・・・でも・・・ぎこちない動きになったと感じています。
スムーズに処理する方法は・・・と悩んでいます
 

引用:
マクロの中に
 Application.Wait Now + TimeValue("00:00:01") '1秒止める　　
を追記して動かしたら、問題なく・・・?　　印刷ができました
  
パソコンの性能が上がり、マクロの実行スピードに処理(プリンター?)が追い付かづ、エラーが発生したのかな?と私なりに勝手に想像しています。