题目

英语翻译
Private Sub 主体_Print(Cancel As Integer,PrintCount As Integer)
sum1 = sum1 + Me.金额.Value
sum11 = sum11 + Me.税额.Value
sum111 = sum111 + Me.合计.Value
lngA = lngA + 1
Dim lngRows As Long
Dim intAllRows As Integer '包括空行,完整的行数.
Dim objCtl As Control
lngRows = 21 '这个行数请调整到和你报表的行数减1.
If intAllRows = 0 Then
If txtTotGrp Mod lngRows = 0 Then
intAllRows = txtTotGrp
Else
intAllRows = (Fix(txtTotGrp / lngRows) + 1) * lngRows
End If
End If
Debug.Print intAllRows
If lngA = txtTotGrp And lngA < intAllRows) Then
Me.NextRecord = False
Else
Me.NextRecord = True
End If
Else
Me.NextRecord = True
End If
End Sub

提问时间：2021-03-29

答案

sum1 = sum1 + Me.金额.Value
sum11 = sum11 + Me.税额.Value
sum111 = sum111 + Me.合计.Value
Rem sum1的值是sum1加上me.金额的值,sum11的值是sum1加上me.金额的值,sum111的值是sum1加上me.金额的值
Rem 这里的me应该要有自定义的数据类型,没上文交代.
lngA = lngA + 1
Dim lngRows As Long
Dim intAllRows As Integer '包括空行,完整的行数.
Dim objCtl As Control
lngRows = 21 '这个行数请调整到和你报表的行数减1.
Rem lnga的值加1,定义一些数据类型,这也没上文交代,包括control,好像没这种数据类型.
If intAllRows = 0 Then
If txtTotGrp Mod lngRows = 0 Then
intAllRows = txtTotGrp
Else
intAllRows = (Fix(txtTotGrp / lngRows) + 1) * lngRows
End If
End If
Debug.Print intAllRows
Rem 如果 intallrows 为0时,如果txttotgrp能整除lngrows,intallrows值等于txttotgrp,否则intallrows值等于txtTotGrp 除以lngRows值 + 1,取它整数部分值乘lngrows
If lngA