Focal Point
<SOLVED> Font size when Printing Output

This topic can be found at:
https://forums.informationbuilders.com/eve/forums/a/tpc/f/7971057331/m/1157037096

August 31, 2018, 03:53 PM
rogerwilkouk
<SOLVED> Font size when Printing Output
We have a situation where we are simply printing an output (using the -TYPE command) and would like a way to control the font size of the output. Does anyone know if this is possible. So in the example below, we want the number of lines that's printed to be a font size of 20.
FILEDEF CAR2 DISK CAR2
TABLE FILE CAR
PRINT
     COUNTRY
     CAR
     MODEL
     BODYTYPE
WHERE COUNTRY EQ 'FRANCE';
ON TABLE SET PAGE-NUM NOLEAD
ON TABLE SET ASNAMES ON
ON TABLE NOTOTAL
ON TABLE HOLD AS CAR2 FORMAT ALPHA
ON TABLE SET XLSXPAGESETS ON
ON TABLE SET HTMLCSS ON
ON TABLE SET STYLE *
     INCLUDE = IBFS:/EDA/EDASERVE/_EDAHOME/ETC/endeflt.sty,
$
ENDSTYLE
END

TABLE FILE CAR2
PRINT
     COUNTRY
     CAR
     MODEL
     BODYTYPE
ON TABLE SET PAGE-NUM NOLEAD
ON TABLE SET ASNAMES ON
ON TABLE NOTOTAL
ON TABLE HOLD AS CAR3 FORMAT ALPHA
ON TABLE SET XLSXPAGESETS ON
ON TABLE SET HTMLCSS ON
ON TABLE SET STYLE *
     INCLUDE = IBFS:/EDA/EDASERVE/_EDAHOME/ETC/endeflt.sty,
$
ENDSTYLE
END

-TYPE  -------------------------
-TYPE &LINES
-TYPE  -------------------------
 

This message has been edited. Last edited by: rogerwilkouk,


WF 81.5, Windows7
AS/400 Database.
All Outputs

September 02, 2018, 05:25 PM
Waz
If you are printing from a browser, then you can use HTMLFORM to return the page.

Two examples here:
FILEDEF CAR2 DISK CAR2
TABLE FILE CAR
PRINT
     COUNTRY
     CAR
     MODEL
     BODYTYPE
WHERE COUNTRY EQ 'FRANCE';
ON TABLE SET PAGE-NUM NOLEAD
ON TABLE SET ASNAMES ON
ON TABLE NOTOTAL
ON TABLE HOLD AS CAR2 FORMAT ALPHA
ON TABLE SET XLSXPAGESETS ON
ON TABLE SET HTMLCSS ON
ON TABLE SET STYLE *
     INCLUDE = IBFS:/EDA/EDASERVE/_EDAHOME/ETC/endeflt.sty,
$
ENDSTYLE
END

TABLE FILE CAR2
PRINT
     COUNTRY
     CAR
     MODEL
     BODYTYPE
ON TABLE SET PAGE-NUM NOLEAD
ON TABLE SET ASNAMES ON
ON TABLE NOTOTAL
ON TABLE HOLD AS CAR3 FORMAT ALPHA
ON TABLE SET XLSXPAGESETS ON
ON TABLE SET HTMLCSS ON
ON TABLE SET STYLE *
     INCLUDE = IBFS:/EDA/EDASERVE/_EDAHOME/ETC/endeflt.sty,
$
ENDSTYLE
END

-HTMLFORM BEGIN
-------------------------
<br>
<font size=7>&LINES</font>
<br>
-------------------------
<br>
-HTMLFORM END


-HTMLFORM BEGIN
-------------------------
<br>
<div style="font-size:20px;">&LINES</div>
<br>
-------------------------
-HTMLFORM END



Waz...

Prod:WebFOCUS 7.6.10/8.1.04Upgrade:WebFOCUS 8.2.07OS:LinuxOutputs:HTML, PDF, Excel, PPT
In Focus since 1984
Pity the lost knowledge of an old programmer!

September 04, 2018, 04:26 PM
rogerwilkouk
That worked perfect.

Thanks


WF 81.5, Windows7
AS/400 Database.
All Outputs