精品国产亚洲一区二区三区,男女作爱在线观看免费网站,欧美的又大又长做禁片A片,97国产精品人妻无码久久久

  • 相關軟件
    >打印再添一例，自動分頁　創(chuàng)建者：webmaster　更新時間：2005-05-17 23:44

    問題：

    每頁打印一定行數(shù)后自動分頁


    方法一：


    加一個分頁符，在報表的代碼界面里面寫入以下代碼：
    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.PageBreak18.Visible = True
    row = -1
    Else
    Me.PageBreak18.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



    例子下載：
    http://access911.net/down/ForceNewPage.rar    相關文章
    本頁查看次數(shù):