Auto-eject Printouts

Hi All,

 

I have a command that will call the printout routine once the data is
displayed on-screen.  However, I'm having an issue in the fact that the
program will not actually print the report until the program is stopped.

 

Here's my code for the printing feature:

 

        BegSR PrintReport;

          TLOT = GETYM + '-' + GETRRN;

          rdashes = *ALL'-';

          write HEADING;

          SetGT SEARCHKEY DPKDL_LF;

          ReadP DPKDL_LF;

          Rrn = 1;

          DoW NOT %EOF(DPKDL_LF) and (Rrn <= 9999);

            If PrtOverFlow;

              Write HEADING;

              PrtOverflow = *off;

            endif;

            SUPPLIER = %TRIM(SUPP) + '-' + %TRIM(SUPPLC);

            If ASNQTY = 0;

              ASNAMT = 'N/A';

            Else;

              ASNAMT = %char(ASNQTY);

            Endif;

 

            If ASNETA ='01/01/2000';

              ASNDATE = 'N/A';

            Else;

              ASNDATE = ASNETA;

            Endif;

 

            Write DETAIL;

            ReadP DPKDL_LF;

            Rrn = Rrn + 1;

          EndDo;

          Write pfooter;

        EndSR

 

What do I need to add to my code to get it to automatically print?

 

Thanks again!


Brian.

 

 

-=-=-=-=-=-=-=-=-=-=-=-=-=-

Brian Piotrowski

Specialist - I.T.

Simcoe Parts Service, Inc.

Ph: 705-435-7814 x343

Fx: 705-435-6746

bpiotrowski@xxxxxxxxxxxxxxx

-=-=-=-=-=-=-=-=-=-=-=-=-=-