Print problems

["Cook, Andy" <Andy.Cook@OWH.COM>]

Hi all

I am hoping that someone out there has seen this problem before.  I have
looked through the archives and can't find anything.

I am wondering if there is a maximum number of times you can use the
Print command in the Begin-Procedure.  I have pasted the code that is
used.  This code works fine until I try to uncomment another print
statement.  When I uncomment another line the output is just a blank
page.  I am hoping there is a logical explanation for my problem.  Any
help is appreciated.


Thanks
Andy Cook

Begin-Procedure Printing
display 'NOW PRINTING DATA'

 Alter-Printer Font=8 Point-Size=8
 Print 'HD'                           (1,1) Bold
let #midland_hd_total = #midland_hd - #midland_extra - #midland_nie
 Print #midland_hd_total              (,11) edit 9999999
let #iowa_hd_total = #iowa_hd - #iowa_extra - #iowa_nie
 Print #iowa_hd_total                 (,25) edit 9999999
let #neb_hd_total = #neb_hd - #neb_extra - #neb_nie
 Print #neb_hd_total                  (,38) edit 9999999
let #sunrise_hd_total = #sunrise_hd - #sunrise_extra - #sunrise_nie
 Print #sunrise_hd_total              (,50) edit 9999999
let #hd_grand_total = #hd_total - #extra_total - #nie_total
 Print #hd_grand_total                (,65) edit 9999999
 Print 'SCS'                          (+2,1) Bold
 Print #midland_scs                   (,11) edit 9999999
 Print #iowa_scs                      (,25) edit 9999999
 Print #neb_scs                       (,38) edit 9999999
 Print #sunrise_scs                   (,50) edit 9999999
 Print #scs_total                     (,65) edit 9999999
 Print 'MAIL'                         (+2,1) Bold
 Print #midland_mail                  (,11) edit 9999999
 Print #iowa_mail                     (,25) edit 9999999
 Print #neb_mail                      (,38) edit 9999999
 Print #sunrise_mail                  (,50) edit 9999999
 Print #mail_total                    (,65) edit 9999999
 Print 'EXTRA'                        (+2,1) Bold
 Print #midland_extra                 (,11) edit 9999999
display #iowa_extra
! Print #iowa_extra                    (,25) edit 9999999
! Print #neb_extra                     (,38) edit 9999999
! Print #sunrise_extra                 (,50) edit 9999999
! Print #extra_total                   (,65) edit 9999999
 Print 'NIE'                          (+2,1) Bold
 Print #midland_nie                   (,11) edit 9999999
! Print #iowa_nie                      (,25) edit 9999999
! Print #neb_nie                       (,38) edit 9999999
! Print #sunrise_nie                   (,50) edit 9999999
! Print #nie_total                     (,65) edit 9999999
! move 0 to #midland_hd_total
! move 0 to #midland_scs
! move 0 to #midland_mail
! move 0 to #midland_extra
! move 0 to #midland_nie
display 'DONE PRINTING'
End-Procedure