Autor | Thema: Listbox drucken | | Datum:21.10.01 11:11 
(privat@horsthorn.de) | |
Hallo an Alle
Grosse Frage:
Wie kann ich den Inhalt einer Listbox, deren Text mit
Addstring "...
Addstring "...
erstellt wurde, ausdrucken ?
|
| | Datum:21.10.01 13:01 
(prof.chaos@netcologne.de) | |
Hallo, die Befehle assign und rewrite können auch den Drucker ansprechen:
declare a%,a$
clearlist
addstring "Eintrag 1"
addstring "Eintrag 2"
addstring "Eintrag 3"
assign #2,"PRN"
rewrite #2
let a%=0
whilenot equ(a%,%getcount)
let a$=listboxitem$(a%)
let a$=ansitooem$(a$)
print #2,a$
inc a%
endwhile
print #2,chr$(12)
close #2
Das Beispiel funktioniert allerdings nicht unter Windows NT und Windows 2000. (wie immer?)
Gruß, Sebastian
|
| | Datum:21.10.01 14:19 
(privat@horsthorn.de) | |
Danke für die schnelle Auskunft
Da ich Windows-ME habe, hat es funktioniert ;o))
|
| | Datum:22.10.01 08:44 
(rgh-soft@t-online.de) | |
Nur ein Hinweis: Auch unter Windows XP wird es nicht mehr so funktionieren, da es ebenso wie Windows 2000 auf Windows NT aufbaut und dieses aus Sicherheitsgründen keinen direkten Zugriff auf die Hardware unterstützt. Und danmit fällt auch der bisher im Betriebssystem verankerte "Dateiname" für den Drucker flach.
Es sollte aber kein Problem sein, das Beispiel zur Ausgabe über StartPrint, Drawtext, Endprint umzuschreiben.
Gruß Roland
|
| | Datum: 22.10.01 09:07 
(privat@horsthorn.de) | |
Hallo Roland
Danke für den Hinweis. Da ich mir so in der Art was gedacht habe, speichere ich jetzt den Inhalt der Listbox nach dem Beispiel in einer temporären Datei ab und lasse die dann ausdrucken. Klappt im Moment perfekt und ich denke mal, das wird unter ...XP auch funktionieren ...und Tschüss
|
|
|