Allgemeine Fragen zur PROFAN Programmierung

Views (Heute): 249397 (10833)

| Suchen
| Zurück zur Übersicht

Autor | Thema: Listbox drucken
Horst Horn
| 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 ?
Sebastian Sprenger
| 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
Horst Horn
| Datum:21.10.01 14:19 (privat@horsthorn.de) |
Danke für die schnelle Auskunft Da ich Windows-ME habe, hat es funktioniert ;o))
Rolanmd G. Hülsmann
| 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
Horst Horn
| 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

| Zurück zur Übersicht