FIX: "Reprint group header on each page" option causes malfunctions in Visual FoxPro for Windows 3.0 and in Visual FoxPro for Windows 3.0b (149068)

WORKAROUND

Follow steps 1-7 in the "Steps to Reproduce Problem" section of this article. Then create and run the following program:

   STORE .T. TO lFlag1
   REPORT FORM myreport TO PRINT && or PREVIEW

   PROCEDURE PgHead
   lFlag1 = .T.

   PROCEDURE Grp1
   lFlag1 = .F.
				

Now make the following changes to the report:

1. Double-click the Page Header bar, and in the Page Header dialog box, type the following as the On Entry expression:

   PgHead()

2. Double-click the Group Header 1 bar, and in the Group Header dialog box, type the following as the On Exit expression:

   Grp1()

3. For every object in Group Header 2, add the following expression in the Print When dialog box:

   lFlag1 = .F.

4. Select the "Remove Line If Blank" check box.

It is possible to expand on this technique. For example if you have three data groupings and you want to reprint the group header on each page, make the following changes to the program:

1. Modify the first line of the program to:

      STORE .T. TO lFlag1, lFlag2
   						

2. Add the following line to the PgHead procedure:

      lFlag2 = .T.
   						

3. Add a procedure:

      PROCEDURE Grp2
      lFlag2 = .F.
   						

4. Modify the report, adding Grp2() as the On Exit expression for Group Header 2. Then for every object in the third group, add the following as the "Print Only When Expression Is True" condition:

      lFlag1 = .F. AND lFlag2 = .F.