Excel 印刷のマクロ

質問

前任がExcelで作成した請求書のファイルで
「全印刷」のボタンを実行すると
顧客の請求書を1枚ずつ印刷する仕組みになっています。

新しい顧客ができたら、別のシートのリストに名前や金額を追加していくようになっているのですが、しばらくはうまくいっていたのに、あるときから、新しい顧客の請求書だけが印刷されなくなってしまいました。

そこで、全印刷のマクロのコードを確認すると下記のようになっていました。

'リストを１行１枚の伝票形式で印刷するマクロ
Sub 全印刷()
Worksheets("請求書").Activate
TDATA = Range("g3")

For 伝票カウンタ = 1 To TDATA

Range("C3") = 伝票カウンタ
STYPE = Range("E3")
If (STYPE = 0) Then
Else
印刷
End If
Next 伝票カウンタ

End Sub
Sub 印刷()
'
Range("B4:G48").Select
ActiveSheet.PageSetup.PrintArea = "$b$4:$g$48"
ActiveWindow.SelectedSheets.PrintOut Copies:=1
End Sub

と記述がありました。

この中で、印刷するリストや範囲に関係するような記述が分かれば何とかなるのかと考えているのですが・・・。
何か分かる方、教えていただけませんか？おそらく、直接的な印刷対象の記述はないように思えるのですが・・・　ヒントでもあればと思っています。

回答No.1

hana-hana3

＞Worksheets("請求書").Activate
TDATA = Range("g3")

請求書シートのＧ３セルに印刷数（顧客数）がセットしてあるのではないのでしょうか？
顧客リスト数よりも小さな数値になっていませんか？

お礼

アドバイス通り、G3のセルに印刷数があり、さらに別の集計シートへ顧客数のカウントがありました。
そこの範囲を修正したので、恐らくこれでいけると思います！
次回の全印刷が来月なので、その時に結果が分かると思います。
ありがとうございました。

補足

ありがとうございます。
早速確認してみます。