ACCESSレポートの１ページだけ

ACCESSのレポートの1ページ目だけ
を印刷する事をVBAで行うためには、
どうしたら良いのですか？
2ページ目以降は不要な時もあり、そのたび
印刷設定で1ページを指定する作業を簡略したいのです。
よろしくお願いいたします。

No.2 ベストアンサー 回答者： noname#140971 回答日時： 2007/09/03 17:18

一応、次の要領でOKですが、なにぶん、今テストしたばかりですので・・・。

<Form>
Private Sub コマンド0_Click()
On Error Resume Next
　　DoCmd.OpenReport "customer", acPreview, , , , 1
End Sub

<Report>
Private Sub Report_Page()
　　If CBool(Me.Page > Me.OpenArgs) Then
　　　　SendKeys "%({F4})", False
　　End If
End Sub

一応、コメントアウトすれば５頁。生かせば１頁。

OpenArgs　が使えるバージョンであることが前提ですが・・・。

No.3 回答者： CHRONOS_0 回答日時： 2007/09/03 17:52

普通は印刷したいデータだけになるような抽出条件を設定しますね

No.1 回答者： ooxx 回答日時： 2007/09/03 16:42

印刷のページ設定オプションで指定すれば、次回から指定したものになるはずですが。