アクセス コンボボックスについて

質問

コンボボックス　印刷ボタンについて
アクセス勉強中です。

フォームで作成した画面　だけを印刷する、コンボボックスを作成しています。

コンボボックスウィザードにてフォーム印刷ボタンを作成したのですが、

1000人くらいの、すべてのデーターが印刷されてしまい困っております。

どこを変更すれば1枚だけ印刷ができるのでしょうか？

イベントプロジャという部分は下記です。

またプロジャー以外に何かしなければならないのでしょうか？？

どうぞ宜しくお願いいたします。

Option Compare Database

Private Sub リスト70_AfterUpdate()
' コントロールの値と一致するレコードを検索する
Dim rs As Object

Set rs = Me.Recordset.Clone
rs.FindFirst "[IDI] = " & Str(Me![リスト70])
Me.Bookmark = rs.Bookmark
End Sub

Private Sub コンボ73_AfterUpdate()
' コントロールの値と一致するレコードを検索する
Dim rs As Object

Set rs = Me.Recordset.Clone
rs.FindFirst "[NO] = " & Str(Me![コンボ73])
Me.Bookmark = rs.Bookmark
End Sub

Private Sub コンボ73_BeforeUpdate(Cancel As Integer)

End Sub

Private Sub 生年月日_AfterUpdate()
Me.年_____齢 = Int(DateDiff("d", [生年月日] - 1, Date) / 365.25)

End Sub

Private Sub 郵便番号_AfterUpdate()
Me!現住所.SetFocus
Me!現住所.SelStart = Len(Me!現住所)
End Sub
Private Sub コマンド121_Click()
On Error GoTo Err_コマンド121_Click

Dim stDocName As String
Dim MyForm As Form

stDocName = "顧客リスト"
Set MyForm = Screen.ActiveForm
DoCmd.SelectObject acForm, stDocName, True
DoCmd.PrintOut
DoCmd.SelectObject acForm, MyForm.Name, False

Exit_コマンド121_Click:
Exit Sub

Err_コマンド121_Click:
MsgBox Err.Description
Resume Exit_コマンド121_Click

End Sub

回答No.1

hatena1989 · ベストアンサー

現在表示されているレコードだけを印刷したいということですね。

DoCmd.PrintOut

の部分を、

DoCmd.PrintOut acSelection

と変更すればいいでしょう。

お礼

本当にありがとうございました。