报表合计预览的数据和打印出来的竟不一样

rocket204

<>我打印预览的数据是正确的合计数据,而打印出来的,竟然是这个数据的2倍.....</P>
<>怎么会这样,是不是什么地方要设置?</P>

lfxwolf3

原帖由 bluecard 于 2007-10-8 07:11 发表
我是这么做的，盼望老师指正，万分感谢！
Option Compare Database

Dim X As Double
Dim x1 As Double
Dim x2 As Double


Private Sub 报表页眉_Format(Cancel As Integer, FormatCount As Integer)

En ...

学习学习呀

bluecard

我是这么做的，盼望老师指正，万分感谢！
Option Compare Database

Dim X As Double
Dim x1 As Double
Dim x2 As Double


Private Sub 报表页眉_Format(Cancel As Integer, FormatCount As Integer)

End Sub

Private Sub 报表页眉_Print(Cancel As Integer, PrintCount As Integer)
X = 0
x1 = 0
x2 = 0

End Sub

Private Sub 页面页脚_Format(Cancel As Integer, FormatCount As Integer)

End Sub

Private Sub 页面页脚_Print(Cancel As Integer, PrintCount As Integer)
     pagesum = runsum - X
     X = runsum
     pagesum1 = runsum1 - x1
     x1 = runsum1
     pagesum2 = runsum2 - x2
     x2 = runsum2
End Sub

tz-chf

你是把计算放到print事件了吧

bluecard

同样，有时打印是零，有时是负数。如果打印多页，往往一页错误，其他正确。