<output id="os3gq"><ruby id="os3gq"></ruby></output>

    1. <mark id="os3gq"></mark>
    2. [access報表]每頁打印一定行數后自動分頁(報表分頁)-錢玉煒
      Access軟件網QQ交流學習群(群號碼198465573),歡迎您的加入!
      首頁 >技術文章> Access數據庫-報表


      [access報表]每頁打印一定行數后自動分頁(報表分頁)

      發表時間:2007/12/17 8:38:49 評論(4) 瀏覽(7442)  評論 | 加入收藏 | 復制
         
      摘 要:每頁打印一定行數后自動分頁(報表分頁)
      正 文:
      每頁打印一定行數后自動分頁

      方法一: 加一個分頁符PageBreak1,在報表的代碼界面里面寫入以下代碼:
      Option Compare Database
      Dim row As Long
      Dim RowsInPage As Integer
      Private Sub 主體_Format(Cancel As Integer, FormatCount As Integer)
          RowsInPage = 7
          row = row + 1
          If row >= RowsInPage Then
              Me.PageBreak1.Visible = True
              row = -1
          Else
              Me.PageBreak1.Visible = False
          End If
      End Sub


      方法二:

      在報表的代碼界面里面寫入以下代碼:
      Option Compare Database
      Dim row As Long
      Private Sub 主體_Format(Cancel As Integer, FormatCount As Integer)
          row = row + 1
          If Me.Section(acDetail).ForceNewPage = 1 Then
              Me.Section(acDetail).ForceNewPage = 0
          Else
              If row Mod 7 = 0 Then
                  Me.Section(acDetail).ForceNewPage = 1
                  row = 0
              End If
          End If
      End Sub

      Access軟件網交流QQ群(群號:198465573)
       
       相關文章
      [示例]報表分頁打印  【竹笛  2008/7/14】
      access下的分頁方案  【umvsoft整理  2008/7/15】
      報表分頁總計及補空行示例  【紅塵如煙  2010/9/18】
      [access報表]分頁報表打印\指定報表打印行數\根據設定行數打...  【zch  2011/11/18】
      分頁符使用例子  【縱云梯  2012/2/27】
      二級Access技巧:大數據Access數據表分頁方法  【繆煒  2012/8/24】
      【Access源碼示例】一個類似網頁上的分頁顯示的例子  【紅塵如煙  2012/8/24】
       
       訪客評論
      2019/10/22郭云開
      在子報表里不起做用

      2008/4/22愛在深秋
      是呀,我也想要這個方面的知識,請幫我們一下呀

      2008/4/11李新功
      你好,謝謝!不過不是我要的效果,每頁要打印5條記錄,并且要有頁眉頁腳,不足5條記錄的要用空格代替,

      總記錄:3篇  頁次:1/1 9 1 :
       
       發表評論
      評論內容 (必填)

      常見問答
      技術分類
      相關資源
      文章搜索
      關于作者

      錢玉煒

      文章分類

      文章存檔

      友情鏈接
       
         
      湖北11选5