problems printing

Hello,

we have a report which will not print, no errors occur, when you go to print
the report out it looks like it will work. instead nothing happens. the
report will print out fine if we do not have this code in the detail_format:

If i = (txtrec - 1) And Me.Page = 1 And ipage = 0 Then
ipage = 1
If poheight 7500 Then
Me.Section(acDetail).Height = 7500 - poheight
End If

End If

poheight is the accumlation of all the controls hieght that have been
displayed so far. if the height is under 7500 then the idea is to expand the
last record (txtrec-1) to what every is left.

this code used to work and nothing ovbious has altered, we have tried this
on a machine with Access 2k and Access 2003 using different printers

any ideas?