Increase font size from SPOOL to PDF
Friday, 12 June 2009 14:25
suwatchai
Function Module : CONVERT_ABAPSPOOLJOB_2_PDF
Include : THSTXWFPL
*------------- for modify font size
decrease fontsze foncharacter will increase
fontsize = 120. <-- Change
fontsize = 100. or fontsize = 80
Depend on your logon lang. My case logon 'TH' or 2. I modified font ZCORDIA (refer CordiaNEW thai font)
*-----------------
if is_cascading is initial.
case language.
when '0'. "Serbian
font = 'COURCYR'. devtype = 'SAPWIN'.
when '1'. "simpl.Chinese
font = 'CNHEI'. devtype = 'CNSAPWIN'. cjklang = 'X'.
when '2'. "Thai
* font = 'THDRAFT'. devtype = 'THPDF'.
font = 'ZCORDIA'. devtype = 'ZMTHSWNU'.
* font = 'THANGSAN'. devtype = 'ZPDFUC'.
when '3'. "Korean
font = 'KPSAMMUL'. devtype = 'KPSAPWIN'. cjklang = 'X'.
when '4'. "Romanian
font = 'COURIER'. devtype = 'I2SWIN'.
when '5'. "Slovenian
font = 'COURIER'. devtype = 'I2SWIN'.
when '6'. "Croatian
font = 'COURIER'. devtype = 'I2SWIN'.
when '8'. "Ukranian
font = 'COURCYR'. devtype = 'SAPWIN'.
*-------------------
#### Add font Cordia Thai
SE73 --> Fon familia --> ZCORDIA
#### Load Font Cordia thai to system
SE38 --> RSTXPDF2UC
load CORDIA.TTF
SE73 --> printer font --> 'ZMTHSWNU'
Add ZCORDIA font and copy AFM Metric from = 'THDRAFT'. devtype = 'THPDF'.
Modify AFM
example
*------- OLD-------------
StartFontMetrics 2.0
sapFamily ZCORDIA
sapHeight 000
sapBold false
sapItalic false
StartCharMetrics 0183
WX 0500 ; N space ;
WX 0500 ; N exclam ;
WX 0500 ; N quotedbl ;
WX 0500 ; N numbersign ;
WX 0500 ; N dollar ;
WX 0500 ; N percent ;
WX 0500 ; N ampersand ;
*--------NEW----------
StartFontMetrics 2.0
sapFamily ZCORDIA
sapHeight 000
sapBold false
sapItalic false
StartCharMetrics 0183
WX 0375 ; N space ;
WX 0375 ; N exclam ;
WX 0375 ; N quotedbl ;
WX 0375 ; N numbersign ;
WX 0375 ; N dollar ;
WX 0375 ; N percent ;
WX 0375 ; N ampersand ;
Result : decrease space between character. Then Your PDF will have BIGGER FONT.
Last Updated ( Wednesday, 17 June 2009 14:20 )