印刷履歴を別シートに自動で残していきたいです

質問

下記のコードを使用して連番での印刷を実行しています。
Sheet1とSheet2を使用していて、各番号ごとにSheet1と2が印刷されていきます。
ここにSheet3を追加して印刷履歴を自動で残していくことはできますでしょうか。
履歴には、（印刷日）（開始番号）（終了番号）を残せたらと思っています。
また、追加したSheet3は確認用としてのみ利用したいので印刷はこれまで通りSheet1と2のみでいければとても助かります。
現在使用しているコードについては、いろいろと自己流で調べてなんとかたどり着いた感じですので、自身には１から作れるような知識はありません。
ご教授いただけませんでしょうか。宜しくお願い致します。

Sub NumberPrint()
Dim idx As Integer
Dim frmPage, toPage
frmPage = Application.InputBox("連番で印刷します" & Chr(13) _
& "開始番号は？", Type:=1)
toPage = Application.InputBox("終了番号は？", Type:=1)
If frmPage > 0 And toPage >= frmPage Then
For idx = frmPage To toPage
Range("D7").Value = idx
ActiveWorkbook.PrintOut
Next idx
Else
MsgBox "開始番号と終了番号を正しく入力し直してください"
End If
End Sub

回答No.1

imogasi · ベストアンサー

むつかしいのではないですか。
ーー
印刷はＶＢＡで指令しなくても、手動でも行える。するとＶＢＡの範囲を通らないから、下記のようなことでは印刷をとらえられない。
Ｂｏｏｋのイベントに「ＢｅｆｏｒｅＰｒｉｎｔ」があるが、印刷しているシート（名）を（普通返すならＳｈでかえす）返す引数がない。ので、シートは捉えられない。
何かあるＶＢＡのルーチンを通ったということで印刷したとしてよいなら、下記コードの
ようなことを（別ファイル（テキストファイルなどでも、別シートでも）記録すればよい。
説明のための例
Sub test01()
Worksheets("Sheet1").Range("a1:A8").PrintOut
L = Worksheets("Sheet3").Range("A1000").End(xlUp).Row
MsgBox L
Worksheets("Sheet3").Cells(L + 1, "A") = "Ｓｈｅｅｔ１の" & "範囲A1:A8を印刷" & Date & Time()
'---
Worksheets("Sheet2").Range("a1:A8").PrintOut
L = Worksheets("Sheet3").Range("A1000").End(xlUp).Row
MsgBox L
Worksheets("Sheet3").Cells(L + 1, "A") = "Ｓｈｅｅｔ2の" & "範囲A1:A8を印刷" & Date & Time()
End Sub
２つのシートの印刷を別モジュールに分けて、別印刷起動にしても、コードを分けるだけで、同じでしょう。
印刷を実行して、プリンターエラー等が起こって、紙印刷がされていないことも起こるが、
それをＶＢＡ程度のスクリプトではとらえるのは難しい。
「印刷作業に取り掛かかったようだ」という程度のメモ的事実でよければ、テキストファイルやデバッグＰｒｉｎｔでコメントを記録すればよいのかも。
質問者の目的（印刷物の使途と照らし合わせて）回答に自信がないですが、参考にして、補足の「ダシ」にでもしてください。

お礼

回答ありがとうございます！

印刷を二手に分けることも候補に入れ、記載して頂いたコードをひとつひとつ確認しながら進めていきます。