[Inhalt] [Zurück] [Weiter] [Thema] [Index]

Funktionen auf Page und Report


Folgende Konstanten sind vordefiniert


[Inhalt] [______] [______] [Thema] [Index]

Beispiel


 
# Beispielprogramm zu den Funktionen NewPage, LinesOnPage, TextOnPage, 
# TextCenterOnPage, DrawOnPage, PrintPage, ClearPage und den Konstanten DINA4, 
# LANDSCAPE, NORMAL, BOLD, UNDERLINE, BIG

AZUR ()
	max_spalte := 112
	page := NewPage (max_spalte, DINA4, LANDSCAPE)
	lines := LinesOnPage (page)
	Print ("Anzahl der Zeilen : ", lines)
	
	TextCenterOnPage (page, 4, "Tabelle", BOLD+UNDERLINE+BIG)
	breit := max_spalte - 2
	hoch  := lines - 2
	
	DrawOnPage (page, 8,15, breit,15, 0.02)
	i := 15 
	zeilennr := 1
	WHILE (i < hoch)
		DrawOnPage (page, 8,i, breit,i, 0.01)
		TextOnPage (page, 5,i+1, Str (zeilennr), NORMAL)
		zeilennr := zeilennr+1
		i := i+3
	ENDWHILE
	DrawOnPage (page, 10,14, 10,hoch, 0.02)
	j := 10
	spaltennr := 1
	WHILE (j < breit)
		DrawOnPage (page, j,14, j,hoch, 0.01)
		TextOnPage (page, j+5,12, Str (spaltennr), NORMAL)
		spaltennr := spaltennr+1
		j := j+10
	ENDWHILE
	
	PrintPage (page, "thepage.ps", "PS")
	ClearPage (page)
	PrintPage (page, "emptypage.ps", "PS")
END


toposoft GmbH 21. Juli 2014