Microsoft Access 掲示板

Microsoft Access 掲示板

フォーム上にレポートの総枚数を表示させたい / 2

5 コメント
views
4 フォロー
2
Anonymous 2024/02/13 (火) 10:57:24 23e8e@44ebd >> 1

「F_読み取り」内に配置した「btn_印刷」というコマンドボタンのクリック時イベントで「R_印刷」を開き、そのタイミングで「txb_総ページ数」というテキストボックスにページ数が表示されるようにしたいです。
このような場合でもレポートを閉じる処理をしなければならないのでしょうか？

通報 ...
  • 3
    Anonymous 2024/02/13 (火) 11:03:15 23e8e@44ebd >> 2 
    Private Sub btn_印刷_Click()

Dim rpt As Report
Dim PageCount As Integer

DoCmd.OpenReport "R_印刷", acViewPreview

Set rpt = Reports("R_印刷")
PageCount = rpt.Pages

Me.txb_総ページ数.Value = PageCount

End Sub

    こんな漢字で書いてみましたが、レポートは25ページあるにも関わらずtxb_総ページ数には0が表示されます。