Dim GlobalFlagR As Variant
Dim x As Double
Dim y As Double
Dim z As Double
Option Compare Database
Option Explicit
Private Sub Detail_Print(Cancel As Integer, FormatCount As Integer)
End Sub
Private Sub PageFooterSection_Format(Cancel As Integer, FormatCount As Integer)
End Sub
Private Sub PageFooterSection_Print(Cancel As Integer, PrintCount As Integer)
pagesum = runsum - x (<THIS IS THE ERROR I GET - runtime error '2427')
x = runsum
pagesum1 = runsum1 - y
y = runsum1
pagesum2 = runsum2 - z
z = runsum2
End Sub
Private Sub PageHeaderSection_Format(Cancel As Integer, FormatCount As Integer)
End Sub
Dim x As Double
Dim y As Double
Dim z As Double
Option Compare Database
Option Explicit
Private Sub Detail_Print(Cancel As Integer, FormatCount As Integer)
End Sub
Private Sub PageFooterSection_Format(Cancel As Integer, FormatCount As Integer)
End Sub
Private Sub PageFooterSection_Print(Cancel As Integer, PrintCount As Integer)
pagesum = runsum - x (<THIS IS THE ERROR I GET - runtime error '2427')
x = runsum
pagesum1 = runsum1 - y
y = runsum1
pagesum2 = runsum2 - z
z = runsum2
End Sub
Private Sub PageHeaderSection_Format(Cancel As Integer, FormatCount As Integer)
End Sub