Report with a blank page after each printed one.

[HunterEC]

Guys:

With the following code:

Code: Select all  Expand view

ACTIVATE REPORT oRep ON STARTLINE oRep:NewLine()

Every even page is blank. Odd pages have the printed records.
What I'm trying to accomplish is to have a double spaced report.
Removing the ON STARLINE .... the reports prints without blank pages.

Any clues ?

[Silvio.Falconi]

do you have try the rep samples ?

then ..
starline ..NewLine make a white page

I use it only for the group sample :

ACTIVATE REPORT oReport ;
WHILE Test->State = "A" ;
FOR Test->Salary > 1000 ;
ON STARTGROUP oReport:NewLine() ;
ON END MessageBeep()

[Silvio.Falconi]

i TRIED WITH LAST FWH :

Code: Select all  Expand view

#include "FiveWin.ch"
#include "report.ch"

STATIC oReport

Function Rep12()

     LOCAL oFont1, oFont2

     DEFINE FONT oFont1 NAME "ARIAL" SIZE 0,-10
     DEFINE FONT oFont2 NAME "ARIAL" SIZE 0,-10 BOLD

     USE TEST NEW
      index on state tag state to test


     REPORT oReport TITLE  "*** Fivewin Report ***"      ,;
                           "States begining with an A"   ,;
                           "and Salary greater than 1000" ;
          FONT oFont1, oFont2 ;
          PREVIEW

     COLUMN TITLE "St"         DATA Test->State

     COLUMN TITLE "First Name", "Last Name" ;
            DATA  Test->First, Test->Last

     COLUMN TITLE "Street", "City"  ;
            DATA  Test->Street, Test->City

     COLUMN TITLE "   Salary"  ;
            DATA  Test->Salary ;
            TOTAL              ;
            RIGHT              ;
            PICTURE "9,999,999";
            FONT 2             ;
            SIZE 9

     GROUP ON Test->State ;
           FOOTER "Total State "+oReport:aGroups[1]:cValue+ ;
                  " ("+ltrim(str(oReport:aGroups[1]:nCounter))+")" ;
           FONT 2


     END REPORT

     oReport:CellView()

     ACTIVATE REPORT oReport                 ;
          WHILE Test->State = "A"            ;
          FOR Test->Salary > 1000            ;
             ON STARTLINE       oReport:NewLine()    ;
          ON STARTGROUP oReport:NewLine()    ;
          ON END MessageBeep()

     CLOSE TEST

     oFont1:Release()
     oFont2:Release()

RETURN NIL

HERE NOT MAKE WHITE PAGES , THIS THE RESULT