すみません。印刷マクロをもう一度

質問

以前印刷マクロを教えていただいたのですが、もう一度お助けください

シートに下のようなデータベースがあります。
　受付番号　氏名　〒　住所・・・・・印刷日（T列）
　１００１
　１００２
　１００３
　１００４
　　　・
　　　・
　　　・　　
印刷時に受付番号を入力することで印刷できるものです。
１回印刷したデ－タは次回は印刷範囲外で判断基準を印刷日とし印刷を実行した日に自動的に日付が印刷日に入力されるものをです。
たとえば、最初に受付１０５４までを印刷、次は受付１１３６までを印刷と印刷件数は不変であり、最初の時に１０５４までの印刷日に全て日付が入力、次は１１３６までの全ての印刷日に日付が入るようにです。
ご教授くださいませ。

回答No.7

Wendy02

こんにちは。Wendy02です。

私の文章は長すぎて、読みきれませんでしたか？閉口してしまったかもしれませんね。

>既存のものを直すというのは本当に難しいものなんですね。
いいえ、今回は、単に、その手順とか方法に問題があるのです。本来は、最初から私が作っていれば、おそらくは、終わっていることなのですが。

>Msg Boxを使って（最初と最後の番号をたずねる方式）、できないかなあ～と思い悩んでいます。

それ自体は、簡単なことなんですが、どういった手順をしているのか、まったくわからないのです。

それでは、ひとつだけ教えてください。

いままでのものを混乱させないようにさせるためには、どうしても必要です。元のマクロは読みきっても、元のマクロの手順は、いまだ疑問のままなのです。

それは、「印刷日」ということです。
もしかして、「印刷日」をマクロの前に処理していませんか？
何度みても、何かがヘンだなって思うのです。そうしないと、矛盾してしまうのです。

’印刷した日付を印刷日へ
rngFC.Offset(0, 19).Value = Date

というような項目が発生しているので、これでは、何をしているのか、意味がわからないのです。私のロジックとして成り立たないのです。

ご自身で、説明しにくかったら、前のログを教えていただいたほうがわかりやすいのですが。

私は、この2年半間で、ここのカテゴリで、hirosatonnさんの質問は、7問中、6問までは回答しているのですが、その中にはないようです。

せめて、その1点だけでも教えてください。それがないと進めないのです。

補足

＞私の文章は長すぎて、読みきれませんでしたか？閉口してしまったかもしれませんね
とんでもありません。感謝しています。
＞「印刷日」をマクロの前に処理していませんか？
印刷日はマクロでの入力でなく、件数が比較的すくなっかたので手入力でコピ－、貼り付けでやって、それからマクロで印刷処理していたので今度は自動的に入力をと考えて
rngFC.Offset(0, 19).Value = Date　のコ－ドを考えました。
前のログは

Sub 最終処理分印刷()
'----- 印刷範囲 列指定 ---------
Const Sh = "入力シ－ト" '　　<----- シ－ト名指定
Const Left_Col = "A" '　　<------ 印刷範囲の左端列
Const Right_Col = "S" '　　<----- 印刷範囲の右端列
Const Target_Col = "T" '　<----- 印刷データ判定列（日付形式）
Const Prev_Mode = 1 '　　<----- 0 = 直接印刷 /　 1 = プレビュー
'------------------------------
Dim TopRw As Long
Dim EndRw As Long
Dim Target_Date As Date
Dim N As Long

With Worksheets(Sh)
EndRw = .Range(Target_Col & "65536").End(xlUp).Row
If Not IsDate(.Range(Target_Col & EndRw).Value) Then
MsgBox "印刷するデ－タがありません。　終了します。"
Exit Sub
Else
Target_Date = .Range(Target_Col & EndRw).Value
End If

TopRw = EndRw
Do While .Range(Target_Col & TopRw).Value = _
.Range(Target_Col & TopRw).Offset(-1).Value
TopRw = TopRw - 1
If TopRw = 1 Then Exit Do
Loop
N = EndRw - TopRw + 1
.PageSetup.PrintArea = Range(Left_Col & TopRw & _
":" & Right_Col & EndRw).Address
If Err.Number > 0 Then
MsgBox "プリンタ－の準備が、出来ていません。"
Exit Sub
End If

'"通知書”欄から"証券”欄までは印刷しない
.Range("K1:N1").EntireColumn.Hidden = True

If MsgBox("受付簿の印刷を開始します。印刷日は入力されていますか？", vbOKCancel, "確認") = vbOK Then

If Prev_Mode = 1 Then
.PrintOut Preview:=True
Else

'ユーザーフォームによるメッセージ表示
UserForm2.Show vbModeless
DoEvents

　 .PrintOut Preview:=False

'メッセージ用のユーザーフォームを閉じる
UserForm2.Hide
MsgBox Target_Date & " 印刷分を " & N & _
" 件 印刷しました。", , "印刷完了"
End If
End If
.PageSetup.PrintArea = False
'印刷終了後"通知書”欄から"証券”欄まで再度表示
.Range("K1:N1").EntireColumn.Hidden = False
End With

End Sub