お世話になっております。
サブフォームは帳票型になっており、下記で表示されている全レコードのチェックが入ります。
これと平行して、各レコードを印刷したいのですが、カーソルがあるレコードのみがレコードの数だけ印刷されてしまいます。
これを各レコードごとに印刷したいと思います。
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
ご教授いただければ幸いです。よろしくお願いいたします。
お礼
ご回答をありがとうございました。 おかげさまで一括印刷ができました。ありがとうございました。