Include "DruckNT.int"
' ---------------------------------------------------------------------------
' Funktionen, die auf Events reagieren
' Eine Kopfzeile
function OnPrintHeader()
SetHeaderMargin( 200, 200, 290, 300)
SetFont("Arial", 14, FONT_BOLD, COLOR_BLACK)
DrawHorzLine(LINE_BOTTOM)
TL( "Kopfzeile" )
end function
SetEventHandler(EVENT_PRINT_HEADER, OnPrintHeader)
' Eine Fu▀zeile
SetFooterMargin( 200, 200, 800, 500)
function OnPrintFooter()
SetFont("Arial", 8, FONT_NORMAL, COLOR_BLACK)
SetTabs("R")
DrawHorzLine(LINE_TOP)
TL("(C) Lexware GmbH & Co. KG 1999\t" + FormatDate("%d.%m.%Y", Now()) )
end function
SetEventHandler(EVENT_PRINT_FOOTER, OnPrintFooter)
' EVENT_START_PAGE: Wechsel der Druckereinstellungen nach Auswertung der aktuellen Seitenzahl
function OnStartPage()
if GetPageNumber() = 2 then
SetPrintDevice(2)
end if
end function
SetEventhandler(EVENT_START_PAGE, OnStartPage)
' -------------------------------------------------------------------------
' Ausgabe des Seiteninhalts
' Druckereinstellungen fⁿr die erste Seite
' WICHTIG: Hiervor dⁿrfen keine Druckbefehle stehen, sonst
' erfolgte ein ⁿberflⁿssiger Seitenwechsel!
SetPrintDevice(1)
SetBodyMargin( 200, 420, 150, 500 )
' Erzeugen einer Zahlenkolonne
' (Bei Erreichen von Seite 2 werden aufgrund der Funktion OnStartPage() die
' Druckereinstellungen geΣndert)
Dim i as numeric
while i < 80 do
TL(FormatNumeric("%.2f", i))
i = i + 1
end while