英语翻译Private Sub 主体_Print(Cancel As Integer,PrintCount As Integer)sum1 = sum1 + Me.金额.Valuesum11 = sum11 + Me.税额.Valuesum111 = sum111 + Me.合计.ValuelngA = lngA + 1Dim lngRows As LongDim intAllRows As Integer '包括空行,完整
来源:学生作业帮助网 编辑:作业帮 时间:2024/07/04 14:29:24
![英语翻译Private Sub 主体_Print(Cancel As Integer,PrintCount As Integer)sum1 = sum1 + Me.金额.Valuesum11 = sum11 + Me.税额.Valuesum111 = sum111 + Me.合计.ValuelngA = lngA + 1Dim lngRows As LongDim intAllRows As Integer '包括空行,完整](/uploads/image/z/11096494-70-4.jpg?t=%E8%8B%B1%E8%AF%AD%E7%BF%BB%E8%AF%91Private+Sub+%E4%B8%BB%E4%BD%93_Print%28Cancel+As+Integer%2CPrintCount+As+Integer%29sum1+%3D+sum1+%2B+Me.%E9%87%91%E9%A2%9D.Valuesum11+%3D+sum11+%2B+Me.%E7%A8%8E%E9%A2%9D.Valuesum111+%3D+sum111+%2B+Me.%E5%90%88%E8%AE%A1.ValuelngA+%3D+lngA+%2B+1Dim+lngRows+As+LongDim+intAllRows+As+Integer+%27%E5%8C%85%E6%8B%AC%E7%A9%BA%E8%A1%8C%2C%E5%AE%8C%E6%95%B4)
英语翻译Private Sub 主体_Print(Cancel As Integer,PrintCount As Integer)sum1 = sum1 + Me.金额.Valuesum11 = sum11 + Me.税额.Valuesum111 = sum111 + Me.合计.ValuelngA = lngA + 1Dim lngRows As LongDim intAllRows As Integer '包括空行,完整
英语翻译
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
英语翻译Private Sub 主体_Print(Cancel As Integer,PrintCount As Integer)sum1 = sum1 + Me.金额.Valuesum11 = sum11 + Me.税额.Valuesum111 = sum111 + Me.合计.ValuelngA = lngA + 1Dim lngRows As LongDim intAllRows As Integer '包括空行,完整
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