User Tools

Site Tools


prop_flushpreview.htm
Navigation:  Language Reference > App C - PROP: Runtime Properties > Complete Property List >====== PROP:FlushPreview ====== Previous pageReturn to chapter overviewNext page

Flushes the REPORT structure's PREVIEW attribute metafiles to the printer (0 = off, else on, always 0 at report open).

Example:

SomeReport PROCEDURE

WMFQue QUEUE                       !Queue to contain .WMF filenames

       STRING(64)

      END

NextEntry  BYTE(1)                 !Queue entry counter variable

Report    REPORT,PREVIEW(WMFQue)   !Report with PREVIEW attribute

DetailOne  DETAIL

           !Report controls

          END

         END

ViewReport WINDOW('View Report'),AT(0,0,320,200),MDI,MAX,HVSCROLL

           IMAGE(),AT(0,0,320,180),USE(?ImageField)

           BUTTON('View Next Page'),AT(0,180,60,20),USE(?NextPage),DEFAULT

           BUTTON('Print Report'),AT(80,180,60,20),USE(?PrintReport)

           BUTTON('Exit Without Printing'),AT(160,180,60,20),USE(?ExitReport)

          END

CODE

OPEN(Report)

SET(SomeFile)                     !Code to generate the report

LOOP

 NEXT(SomeFile)

  IF ERRORCODE() THEN BREAK.

 PRINT(DetailOne)

END

ENDPAGE(Report)

OPEN(ViewReport)                  !Open report preview window

GET(WMFQue,NextEntry)             !Get first queue entry

?ImageField{PROP:text} = WMFQue   !Load first report page

ACCEPT

 CASE ACCEPTED()

 OF ?NextPage

  NextEntry += 1                  !Increment entry counter

  IF NextEntry > RECORDS(WMFQue)  !Check for end of report

   CYCLE

  END

  GET(WMFQue,NextEntry)           !Get next queue entry

  ?ImageField{PROP:text} = WMFQue !Load next report page

  DISPLAY                         ! and display it

 OF ?PrintReport

  Report{PROP:FlushPreview} = 1   !Flush files to printer

  BREAK                           ! and exit procedure

 OF ?ExitReport

  BREAK                           !Exit procedure

 END

END

CLOSE(Report)

CLOSE(Window)

RETURN                            ! Return to caller, automatically

                                  ! freeing the queue and automatically

                                  ! deleting all the temporary .WMF files

prop_flushpreview.htm.txt · Last modified: 2021/04/15 15:57 (external edit)