To Antonio:

[HunterEC]

Antonio:

I'm getting the following report before the report engine displays the report:
Error(6) deleting enhanced metafile

Error description

It is a small dialog with the Ok button and nothing else.

The preview window does not goes away and it stand stills at the report's last page (showing page number 77 and the printer icon).
When I press the preview button, it goes away and after pressing the Ok button (on the error dialog) the reports is displayed.

What I'm trying to do is print a counter on the same line as the grand totals. Thank you.

Windows XP Pro SP3 x86, 8GB RAM (3.25GB usable), Intel Core 2 Quad 3.00GHz, C: partition SSD 38GB free

Code: Select all  Expand view

         ACTIVATE REPORT oRep ;
            ON CHANGE {|| IIF(EVAL(bForCond) .AND. Fecha_ingr <= dDueDate, ;
                              ListStocks(@aVars), NIL)}                    ;
            ON END {|| DispCnt1 (@aVars)}

STATIC PROCEDURE DispCnt1 (aParms)
   #define oReport   aParms[10]
   #define nCtr      aParms[19]

   LOCAL nI

   FOR nI := 1 TO 2
      oReport:StartLine()
      oReport:EndLine()
   NEXT
   oReport:StartLine()
   oReport:Say( 1, "Total: " + LTRIM(STR(nCtr,7)), , 1 )
   oReport:EndLine()

   #undef oReport
   #undef nCtr
RETURN
 

[Otto]

Hunter, did you find a solution for your problem?
Best regards,
Otto

[Antonio Linares]

Otto,

is it using the printer preview or using the reports engine and the preview ?

Usually you get this because there is an unbalanced Page endPage

[Armando]

HunterEC:

Please try the next function

Code: Select all  Expand view

STATIC PROCEDURE DispCnt1 (aParms)
   #define oReport   aParms[10]
   #define nCtr      aParms[19]

   LOCAL nI

   FOR nI := 1 TO 2
      oReport:StartLine()
      oReport:EndLine()
      OverFlow(oReport)               // Add this line
   NEXT
   oReport:StartLine()
   oReport:Say( 1, "Total: " + LTRIM(STR(nCtr,7)), , 1 )
   oReport:EndLine()
   OverFlow(oReport)                   // Add this line

   #undef oReport
   #undef nCtr
RETURN


STATIC FUNCTION OverFlow(oReport)
    IF (oReport:nRow + (oReport:nStdLineHeight * 2)) >= oReport:nBottomRow
        oReport:EndPage()
        oReport:StartPage()
    ENDIF
RETURN NIL
 

I hope these can help you

Regards