Access2007 サブフォームのレコードを一括印刷する方法

お世話になっております。
サブフォームは帳票型になっており、下記で表示されている全レコードのチェックが入ります。
これと平行して、各レコードを印刷したいのですが、カーソルがあるレコードのみがレコードの数だけ印刷されてしまいます。

これを各レコードごとに印刷したいと思います。


Dim dbs As Database
Dim rst As Recordset
Dim strSQL As String

Set dbs = CurrentDb

Set rst = Me.RecordsetClone
With rst
If .RecordCount > 0 Then
.MoveFirst
Do Until .EOF
.Edit
!チェック = True
DoCmd.OpenReport "印刷", acNormal, , "コード=" & Me.コード
.Update
.MoveNext
Loop
End If
.Close
End With


ご教授いただければ幸いです。よろしくお願いいたします。

No.2 ベストアンサー 回答者： bonaron 回答日時： 2009/02/28 00:29

おっと、間違い。

　DoCmd.OpenReport "印刷", acNormal, , "コード=" & !コード

ですね。

この回答へのお礼

ご回答をありがとうございました。
おかげさまで一括印刷ができました。ありがとうございました。

お礼日時：2009/02/28 16:42

No.1 回答者： bonaron 回答日時： 2009/02/27 20:28

> これと平行して、各レコードを印刷したいのですが、

> カーソルがあるレコードのみがレコードの数だけ印刷されてしまいます。

RecordsetClone のレコードを移動しても
フォームのカレントレコードは移動しませんからね。

フォームの [コード] ではなく、Recordset の [コード] を参照したらいかが？

> DoCmd.OpenReport "印刷", acNormal, , "コード=" & Me.コード
　DoCmd.OpenReport "印刷", acNormal, , "コード=" & .コード