AccessのVBAで、レポートのページ数を取得する。～パソコンの小技・備忘録

AccessのVBAで、レポートのページ数を取得する。

レポートのページ数を取得する方法です。

各レポートの量的把握や、目次の作成などに活用できると思います。

'ページ数取得用関数として作成しています。 Public Function GetReportPages(ReportName As String, S_Filter As String) As Integer 　　'非表示でレポートを開きます。　　Docmd.OpenReport ReportName, acViewPreview, ,S_Filter , acHidden 　　'ページ数を取得し、戻り値に設定します。　　GetReportPages = Reports(ReportName).Pages 　　'レポートを閉じます。　　DoCmd.Close acReport, ReportName End Sub 'ページ数を取得し、表示する処理です。 Public Sub TEST() 　　'ページ数取得用の定義をして、関数で取得します。　　Dim intPage As Integer 　　intPage = GetReportPages("テストレポート","コード=1") 　　'取得した値をメッセージボックスで表示します。　　MsgBox "テストレポートでコードが1のもののページ数は" & intPage & "ページです。" End Sub

以上のような記述で、レポートのページ数を取得できます。
フォームやレポートのイベントで設定してみてください。

パソコンの小技・備忘録

AccessのVBAで、レポートのページ数を取得する。

トップページに戻る

サイト内検索

小技カテゴリー

カウンタ

メール送信