Example Array
Previous Top Next

# REPORTS.MOD This Line Will be ignored!
[Declare]80/PREV
SET UNITS MM
SET JOB NAME [SqLite Print demo]
SET SPLASH TO S'il vous plaît attendre Il imprime en cours.
SET PAPERSIZE DMPAPER_A4
SET ORIENTATION Portrait
SET CHARSET ANSI_CHARSET
DEFINE BRUSH BP1 STYLE BS_HATCHED COLOR LAVENDER HATCH HS_CROSS
DEFINE BRUSH B1 STYLE BS_HATCHED COLOR AQUA HATCH HS_DIAGCROSS
DEFINE PEN P1 STYLE PS_SOLID WIDTH 1
DEFINE PEN P12 Ps_INSIDEFRAME WIDTH 0.2 COLOR 0,0,255
DEFINE FONT "xX" NAME [COURIER NEW] SIZE 12 UNDERLINE BOLD
SELECT FONT F0
ONEATLEAST 1
[HEAD]8
SET TEXTCOLOR BLACK
@(1*lstep),12 SAY [Pag.] FONT ARIAL SIZE 10 ;(1*lstep) 25 SAY trans(m->npag,[999]) FONT ARIAL SIZE 10
@(1*lstep+3),105 SAY [SQLITE PRINT DEMO] FONT ARIAL SIZE 16 BOLD ITALIC align center
@(1*lstep),178 SAY date() font [COURIER NEW] SIZE 10 BOLD align CENTER
@(2*lstep),178 SAY Time() FONT [COURIER NEW] SIZE 10 BOLD align CENTER
@(2*lstep+4),105 SAY [ Report Interpreter, a better way to print] FONT ARIAL SIZE 16 BOLD ITALIC align center
@(4*lstep),11,(4*lstep),203 LINE
@(5*lstep),17 SAY [Code  Name] font [COURIER NEW] SIZE 10 BOLD
@(6*lstep),11 ,(6*lstep),203 LINE
SET TEXT ALIGN LEFT
@(55*lstep),133 PRINT [Report Interpreter] FONT [COURIER NEW] SIZE 16 BOLD
@(58*lstep),135 SAY [Generation      ] FONT [COURIER NEW] SIZE 16 BOLD UNDERLINE color lightsalmon
@(58*lstep),170 SAY [IV] FONT [COURIER NEW] SIZE 24 BOLD ITALIC color lightsalmon
set backcolor white
@(2*lstep+3),130,(4*lstep+4),145 DRAW IMAGELIST ILIST1 ICON 15 BACKGROUND WHITE
@(52*lstep ),120,( ((maxRow)-1 ) ),(maxcol)-1 RECTANGLE pen p1 brush b1

[BODY]50
@ (nline*lstep),17 PUTARRAY m->aRtv len {8,80} FONT ARIAL SIZE 10 COLOR Blue NOFRAME
//You can use memosay instead of putarray as the following line
//@nline*lstep,10 memosay (aRtv) len {15,80} FONT [COURIER NEW] SIZE 10 BOLD COLOR BLUE

[FEET]4
@((eline+3)*lstep), 9 SAY if(last_pag,[Bye bye ]+ [End of DEMO],[]) FONT ARIAL SIZE 16 BOLD ITALIC color red
[END]


     
Continued on page  Thanks