アクセス2003 レポートの総ページ数の取得

アクセス2003　レポート　ＶＢＡです。

先にレポートを開き、次にその用紙の設定をするフォーム「Ａ」を開きました。
「Ａ」にあるラベルにレポートの総ページ数を表示させたいのですが、レポートの[Pages]をどのように取得したらよいか教えて下さい。
Private Sub Form_Open(Cancel As Integer)
ラベル.Caption = Str(Reports!レポート名![Pages])
End Sub
のように、簡単に取得できたらいいのですが。。。

No.1 ベストアンサー 回答者： nicotinism 回答日時： 2006/07/04 02:46

こんな風では？

docmd.OpenReport "レポート名",acViewPreview ,windowmode:=acHidden
debug.print reports("レポート名").Pages
docmd.Close acreport,"レポート名"

この回答へのお礼

うゎ！！
すご、簡単。
参照の仕方がまずかったんですね。
ありがとうございます。

お礼日時：2006/07/04 09:01