Print Preview and Printed Report Have Different Totals

[clmarks]

When I look at my report in print preview all of my page totals are correct. When I send the report to the printer, the total on page 1 is zero. I'm following the example shown in Microsoft's Knowledge Base article KB132017. A copy of my code is shown below.

Has anyone ever seen this before? What am I doing wrong? The report is due out of my office in two hours, so I'm a bit frantic.

Thanks.

****************


Option Compare Database
Option Explicit

Dim x As Double

Private Sub PageFooterSection_Print(Cancel As Integer, PrintCount As Integer)
PageSum = RunSum - x
x = RunSum
End Sub

Private Sub ReportHeader_Print(Cancel As Integer, PrintCount As Integer)
x = 0
End Sub