问题：

本人想做一个送货单软件,用于机打送货单,每页8条记录,于是借用了黄老师的补空行代码,发现如果记录数设为6,一切正常,改为8后,就会出现如下问题,

6第记录以下,功能正常,7条时报表会多出一条记录共九条.而且第7,8条重复.8条时,报表也是多出一条记录,共九条,第8,9条重复.请大家帮忙看看,是哪出了问题.

解决：

将“主体_print代码”修改一下，原代码：

Private Sub 主体_Print(Cancel As Integer, PrintCount As Integer)
    L = L + 1
    If L = lAllRecords Then
        Me.NextRecord = False
    ElseIf L > lAllRecords And L < lAllPrintRecords Then
        Me.NextRecord = False
        showHideCtrlAtDetail False
    End If
End Sub

修改后代码：

Private Sub 主体_Print(Cancel As Integer, PrintCount As Integer)
    L = L + 1
    If L >= lAllRecords And L < lAllPrintRecords Then
        Me.NextRecord = False
    End If
    If L > lAllRecords Then
        showHideCtrlAtDetail False
    End If
End Sub