Software development, photography, jokes, ....

Sites by me

 
tas-logoTransportation Administration System
snoezelkussen-logo-kleinstSnoezelkussens voor verstandelijk gehandicapten
ikzoekeenbegeleider-logoBegeleiders voor gehandicapten
Laat uw hond het jaarlijkse vuurwerk overwinnen
logo 50x50Hey Vos! Je eigen naam@vos.net emailadres?
Kunst in huis? Nicole Karrèr maakt echt bijzonder mooie dingen
nettylogo2Kunst in huis? Netty Franssen maakt ook bijzonder mooie dingen
Salarisadministratie en belastingadvies bij De Zaak Loont
Zutphense Bomenstichting

Hosting Favorites

 
ANU Internet Services
XelMedia .internet Services
register.com

Blogroll

 
Bomenstichting
LassoSoft
MacFreak
Quality that computes
The Economy of Motion
Wheel 2.0
IntrAktv



Website Hosting bij Xel Media

Marc's Place

E$PRINT - Afdrukken van een regel tekst




Aanroep
 
xcall e$print ([vlag])
 
Common velden, logicals en/of symbols vóór aanroep
e$print
Een record met gegevens met betrekking tot het automatisch printen van kop- en voetregels, regel-blokken, etc. Zie E$LIB:E$PRINT.H voor de individuele velden en hun doel. De meesten dien van te voren van de juiste waarde te zijn voorzien.
e$p_pgsize
Deze variabele komt voor in E$PRINT.H maar heeft een een extra functie. Vullen met 999 houdt in dat er alleen kopregels worden afgedrukt als e$p_page = 0. En dat is over het algemeen op de eerste pagina, tenzij het pagina nummer geforceerd op nul wordt gezet. Er worden ook geen pagina-overgangen meer gemaakt. Dit is ideaal voor de uitvoer naar spread-sheets.
e$p_line
Deze variabele komt voor in E$PRINT.H maar heeft een een extra functie. Vullen met een waarde groter dan de waarde in e$p_pgsize, behalve als e$p_pgsize 999 bevat, houdt in dat er op de huidige pagina de eventueel aanwezige voetregels moeten worden afgedrukt, dat er dan naar een volgende pagina gesprongen moet worden en dat daar opnieuw kopregels moeten worden afgedrukt. De regelteller staat daarna op het aantal regels dat al is geprint op de nieuwe pagina.
Parameters te vullen bij aanroep
vlag (d1)
Forceer het afdrukken van voetregels, doe verder niets en keer ALTIJD naar het aanroepende programma terug.
Het afdrukken van de voetregels gebeurt alleen als deze zijn gedefinieerd en als er minimaal kopregels zijn afgedrukt.
Parameters gevuld bij terugkeer
*N/A
Common velden gevuld bij terugkeer
e$print
Een record met gegevens met betrekking tot het automatisch printen van kop- en voetregels, regel-blokken, etc. Zie E$LIB:E$PRINT.H voor de individuele velden en hun doel.
e$_err
Niet NUL betekent dan de gebruiker heeft aangegeven het afdrukken te willen afbreken, door het indrukken van de van ESC-, F3- of F12-toets of door het antwoorden van NEE bij het afdrukken naar het scherm.
Voorbeelden
 

Een voorbeeld waarbij een afdrukbestand wordt geopend via de Printer Definition File (PDF), er naar toe wordt geschreven en waarbij het wordt afgesloten en gequeued via de PDF. Van te voren worden de juiste parameters voor het afdrukken ingesteld:

e$p_chan = 99 ; kanaalnummer
e$p_pgsize = 56 ; bladhoogte in regels
e$p_line = 99 ; signaleer nieuw blad
e$p_date = e$_date ; af te drukken datum
e$p_datep = 56 ; positie van de datum in de regel
e$p_datef = 1 ; in footer[2] printen
e$p_pagep = 77 ; positie van het bladnummer in de reg
e$p_pagef = 1 ; in footer[2] printen
e$p_head[1] = 'BEDRIJFSNAAM ... ...'
e$p_headp[1]= 1 ; regelnummer voor head[1]
e$p_head[2] = 'ARTIKEL OMSCHRIJVING AANTAL ....'
e$p_headp[2]= 3 ; regelnummer voor head[2]
e$p_head[3] = '--------------------------------------- ....'
e$p_headp[3]= 4 ; regelnummer voor head[3]
e$p_foot[1] = '--------------------------------------- ....'
e$p_foot[2] = 'DATUM: ... ... BLAD:'
xcall e$popen
while .not.eof begin
...
e$p_buff = 'Af te drukken gegevens'
xcall e$print
...
end
xcall e$print (9) ; Forceer de voetregels
xcall e$pclose

De routine kan ook naar het beeldscherm afdrukken. In zo'n geval wordt er in e$popen een apart venster gecrëerd, wat in e$pclose weer gesloten wordt. Per pagina wordt er onderin het venster de vraag ' Meer... J/N' gesteld. Bij NEE wordt e$_err gevuld.

© 1997- Marc Vos (and others) Contact Me