PC Toledo

Código: Selecionar todos

Procedure Test
	Use Test
	LOAD REPORT Test
	EXECUTE REPORT Test PREVIEW SELECTPRINTER
	Use
Return

Código: Selecionar todos

DEFINE REPORT TEMPLATE

	BEGIN LAYOUT 
		PAPERSIZE	PRINTER_PAPER_A4
		ORIENTATION	PRINTER_ORIENT_PORTRAIT 
	END LAYOUT

	BEGIN HEADER

		BANDHEIGHT	25

		BEGIN LINE
			FROMROW		23
			FROMCOL		10
			TOROW		23
			TOCOL		200 - IF(IsWinNT(), 0, 5)
			PENWIDTH	0.1
		END LINE

		BEGIN TEXT
			EXPRESSION	'Report Header'
			ROW		13	
			COL		10	
			WIDTH		100	
			HEIGHT		10	
			FONTNAME	'Arial'
			FONTSIZE	20	
		END TEXT

		BEGIN PICTURE
			VALUE		'hmg.jpg'
			ROW		10	
			COL		189 - IF(IsWinNT(), 0, 7)
			WIDTH		11	
			HEIGHT		11	
			STRETCH		.F.
		END PICTURE

	END HEADER

	BEGIN DETAIL

		BANDHEIGHT	6

		BEGIN TEXT
			EXPRESSION	Test->Code
			ROW		2	
			COL		18	
			WIDTH		10	
			HEIGHT		10	
			FONTNAME	'Arial'
			FONTSIZE	12	
		END TEXT

		BEGIN TEXT
			EXPRESSION	Test->First
			ROW		2	
			COL		40	
			WIDTH		100
			HEIGHT		10	
			FONTNAME	'Arial'
			FONTSIZE	12	
		END TEXT

		BEGIN TEXT
			EXPRESSION	Test->Last
			ROW		2	
			COL		130	
			WIDTH		100	
			HEIGHT		10	
			FONTNAME	'Arial'
			FONTSIZE	12	
		END TEXT

	END DETAIL

	BEGIN FOOTER

		BANDHEIGHT	27

		BEGIN LINE
			FROMROW		4
			FROMCOL		10	
			TOROW		4	
			TOCOL		200 - IF(IsWinNT(), 0, 7)
			PENWIDTH	0.1	
		END LINE

		BEGIN TEXT
			EXPRESSION	'Page. No:' + Str(_PageNo)
			ROW		7	
			COL		11	
			WIDTH		100	
			HEIGHT		10	
			FONTNAME	'Arial'
			FONTSIZE	12	
		END TEXT

		BEGIN TEXT
			EXPRESSION	Date()
			ROW		7	
			COL		177 - IF(IsWinNT(), 0, 5)
			WIDTH		30	
			HEIGHT		10	
			FONTNAME	'Arial'
			FONTSIZE	12	
		END TEXT

	END FOOTER

	BEGIN SUMMARY

		BANDHEIGHT	50

		BEGIN TEXT
			EXPRESSION	'Total Records: ' + Str(RecCount()) + chr(13) + 'Total Pages: '  + Str(_PAGENO) 
			ROW		10
			COL		20	
			WIDTH		100	
			HEIGHT		30
			FONTNAME	'Arial'
			FONTSIZE	12	
			FONTBOLD	.T.
		END TEXT

	END SUMMARY

END REPORT