April 22, 2004, 04:02 PM
<Vipul>remove blank lines from top of report
Is there a way I can remove blank lines from top of the reports.
SET PAGE-NUM = NOLEAD
or
ON TABLE SET PAGE NOLEAD
Any help would be appreciated.
Vipul
April 28, 2004, 01:51 PM
<Pietro De Santis>Vipul,
Have you not answered your own question?
ON TABLE SET PAGE NOLEAD
works, doesn't it?
Here's some code I wrote that illustrates different settings, I hope it will be of some help.
Regards,
Pietro.
-*** FOCEXEC to test SET PAGE = NOLEAD
-*** (NOLEAD does not put the two blank lines at the beginning of a report)
SET PAGE = NOLEAD
-RUN
TABLE FILE CAR
PRINT CAR
SALES
BY COUNTRY
WHERE SALES GT 0;
WHERE COUNTRY IN ('ENGLAND', 'JAPAN') ;
ON TABLE SET STYLE *
TYPE=REPORT, GRID=OFF, FONT='Arial', SIZE=9, $
TYPE=TITLE, COLOR=NAVY, STYLE=BOLD, $
ENDSTYLE
ON TABLE HOLD AS HOLD1N FORMAT HTMTABLE
END
-RUN
TABLE FILE CAR
PRINT CAR
SALES
BY COUNTRY
WHERE SALES GT 0;
WHERE COUNTRY IN ('ENGLAND', 'JAPAN') ;
ON TABLE SET STYLE *
TYPE=REPORT, GRID=ON, FONT='Arial', SIZE=9, $
TYPE=TITLE, COLOR=NAVY, STYLE=BOLD, $
ENDSTYLE
ON TABLE HOLD AS HOLD1G FORMAT HTMTABLE
END
-RUN
SET PAGE = NOPAGE
-RUN
TABLE FILE CAR
PRINT CAR
SALES
BY COUNTRY
WHERE SALES GT 0;
WHERE COUNTRY IN ('ENGLAND', 'JAPAN') ;
ON TABLE SET STYLE *
TYPE=REPORT, GRID=OFF, FONT='Arial', SIZE=9, $
TYPE=TITLE, COLOR=NAVY, STYLE=BOLD, $
ENDSTYLE
ON TABLE HOLD AS HOLD2N FORMAT HTMTABLE
END
-RUN
TABLE FILE CAR
PRINT CAR
SALES
BY COUNTRY
WHERE SALES GT 0;
WHERE COUNTRY IN ('ENGLAND', 'JAPAN') ;
ON TABLE SET STYLE *
TYPE=REPORT, GRID=ON, FONT='Arial', SIZE=9, $
TYPE=TITLE, COLOR=NAVY, STYLE=BOLD, $
ENDSTYLE
ON TABLE HOLD AS HOLD2G FORMAT HTMTABLE
END
-RUN
SET PAGE = OFF
-RUN
TABLE FILE CAR
PRINT CAR
SALES
BY COUNTRY
WHERE SALES GT 0;
WHERE COUNTRY IN ('ENGLAND', 'JAPAN') ;
ON TABLE SET STYLE *
TYPE=REPORT, GRID=OFF, FONT='Arial', SIZE=9, $
TYPE=TITLE, COLOR=NAVY, STYLE=BOLD, $
ENDSTYLE
ON TABLE HOLD AS HOLD3N FORMAT HTMTABLE
END
-RUN
TABLE FILE CAR
PRINT CAR
SALES
BY COUNTRY
WHERE SALES GT 0;
WHERE COUNTRY IN ('ENGLAND', 'JAPAN') ;
ON TABLE SET STYLE *
TYPE=REPORT, GRID=ON, FONT='Arial', SIZE=9, $
TYPE=TITLE, COLOR=NAVY, STYLE=BOLD, $
ENDSTYLE
ON TABLE HOLD AS HOLD3G FORMAT HTMTABLE
END
-RUN
SET PAGE = ON
-RUN
TABLE FILE CAR
PRINT CAR
SALES
BY COUNTRY
WHERE SALES GT 0;
WHERE COUNTRY IN ('ENGLAND', 'JAPAN') ;
ON TABLE SET STYLE *
TYPE=REPORT, GRID=OFF, FONT='Arial', SIZE=9, $
TYPE=TITLE, COLOR=NAVY, STYLE=BOLD, $
ENDSTYLE
ON TABLE HOLD AS HOLD4N FORMAT HTMTABLE
END
-RUN
TABLE FILE CAR
PRINT CAR
SALES
BY COUNTRY
WHERE SALES GT 0;
WHERE COUNTRY IN ('ENGLAND', 'JAPAN') ;
ON TABLE SET STYLE *
TYPE=REPORT, GRID=ON, FONT='Arial', SIZE=9, $
TYPE=TITLE, COLOR=NAVY, STYLE=BOLD, $
ENDSTYLE
ON TABLE HOLD AS HOLD4G FORMAT HTMTABLE
END
-RUN
-HTMLFORM BEGIN
SET PAGE=NOLEAD |
!IBI.FIL.HOLD1N; | !IBI.FIL.HOLD1G; |
SET PAGE=NOPAGE |
!IBI.FIL.HOLD2N; | !IBI.FIL.HOLD2G; |
SET PAGE=OFF |
!IBI.FIL.HOLD3N; | !IBI.FIL.HOLD3G; |
SET PAGE=ON |
!IBI.FIL.HOLD4N; | !IBI.FIL.HOLD4G; |
-HTMLFORM END
This message has been edited. Last edited by: <Mabel>,