Active Reports 补空白行

maxGyo  ' 每页显示的最大行数
Private   Sub  ActiveReport_FetchData( eof   As   Boolean )
    
     If  DsoPrint.eof  Then
         Select   Case  GyoNo
             Case   1
                 eof   =   True
                 Exit Sub
             Case   Else
                 eof   =   False
         End   Select
     Else
         eof   =   False
     End   If
    
     If  aaKEYFIELD  <>  DsoPrint.Fields( " aKEYFIELD " )  Then
         If  GyoNo  <=  maxGyo  And  GyoNo  <>   1   Then
             ' 打印空白行
             Call  PrintDetail(GyoNo,  0 )
            GyoNo  =  GyoNo  +   1
         End   If
     Else
         ' 打印明细数据
         Call  PrintDetail(GyoNo,  1 )
        GyoNo  =  GyoNo  +   1
        DsoPrint.MoveNext
     End   If
    
     If  GyoNo  =   1   And   eof   =   False   Then
         ' 打印组头
         Call  PrintGroupHeader()
         ' 打印明细数据
         Call  PrintDetail(GyoNo,  1 )
         ' 打印组尾
         Call  PrintGroupFooter()
        aKEYFIELD  =  DsoPrint.Fields( " aKEYFIELD " )
         Me .Fields( " GH1VALUE " ).Value  =  aKEYFIELD
        GyoNo  =  GyoNo  +   1

         ' 移动到下一条记录
        DsoPrint.MoveNext
     End   If
    
     If  GyoNo  >  maxGyo  Then  GyoNo  =   1
    
End Sub