Microsoft Access 掲示板

Microsoft Access 掲示板

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

5 コメント
views
4 フォロー
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が表示されます。

通報 ...