英语翻译Private Sub 主体-Print(Cancel As Integer,PrintCount As Int

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