データーベースにフィルターをかけててそれを印刷するには？

解決

mana 2005-03-18 16:27:12 No: 120350 IP: [192.*.*.*]

sdb = App.Path
    If Right(adb, 1) <> "\" Then sdb = sdb & "\"
    sdb = sdb & "消耗品.mdb"

Dim tablename As String

Dim db As Database
Dim rst As Recordset
Dim cunt As Long
Dim rst2 As Recordset

Set db = OpenDatabase(sdb)
Set rst = db.OpenRecordset("ベルト", dbOpenSnapshot)

rst.Filter = "日付 like  '*" + 年 + "*'"
Set rst2 = rst.OpenRecordset

With rst2
If .RecordCount <> 0 Then .MoveLast
.MoveFirst
Do While Not .EOF

.MoveNext
Loop

cunt = rst2.RecordCount
Text2.Text = Format(cunt)

ans = MsgBox("検索が終了しました。", vbOKOnly, "メッセージ")
rst2.Close
rst.Close
End With
db.Close
Set db = Nothing
Set rst = Nothing
Set rst2 = Nothing

End Sub

上記でrst2に検索結果がセットされてカウントはでますが、そのレコード内容を印刷したいのです。環境はDAO3.6でしています。
簡単にrst2の内容を一覧印刷することはできますか？

編集削除

Say 2005-03-18 16:41:36 No: 120351 IP: [192.*.*.*]

>簡単にrst2の内容を一覧印刷することはできますか？
あなたに十分な技能があり、
手段や見栄えを問わないなら、簡単にできます。

編集削除

mana 2005-03-18 17:14:35 No: 120352 IP: [192.*.*.*]

そうですね^^;
やっぱりDaTaReportでがんばってみます。
つまらない質問でした。

編集削除