Allgemeine Fragen zur PROFAN Programmierung

Views (Heute): 242994 (4430)

| Suchen
| Zurück zur Übersicht

Autor | Thema: Listbox drucken ?
Horst Horn
| Datum:06.05.02 20:10 (info@web-treffpunkt.de) |
Hallo an Alle Wie kann ich den Inhalt einer Listbox drucken ? Der Text der Box ist in einer INCLUDE-Datei mit Addstring "...." usw. vorhanden und soll bei Bedarf vom Anwender ausgedruckt werden. CU horst horn
Rolf Koch
| Datum:06.05.02 21:03 (webmaster@rokosoft.de) |
Hi Horst so ungefähr ;)
    '********************** HINWEISE ********************************
    ' CODE ERZEUGT MIT ROKO'S OBJECT CREATOR V 2.5
    ' DATUM  06.05.2002    um  20:49 Uhr

    SETTRUECOLOR 1
    DECLARE ENDE%,zahl%
    DECLARE LISTBOX1%,x%,y%
    DECLARE GROUPBOX1%
    DECLARE BUTTON1%
    DECLARE BUTTON2%
    WINDOWSTYLE 31
    WINDOW 22,20-333,344
    WINDOWTITLE "Neues Fenster"
    CLS @RGB(212,208,200)
    USEFONT "MS Sans Serif",13,0,0,0,0
    SETDIALOGFONT 1

    ' Hier kann ggf. Ihr Menü hin

    LISTBOX1% =CREATE("LISTBOX",%HWND,"LISTBOX1",0046,0036,0234,0179)
    GROUPBOX1% =CREATE("GROUPBOX",%HWND,"",0020,0013,0281,0281)
    BUTTON1% =CREATE("BUTTON",%HWND,"Drucken",0052,0235,0070,0030)
    BUTTON2% =CREATE("BUTTON",%HWND,"Ende",0200,0235,0070,0030)
    DRAWICON "DRUCKER",0137,0234
    AddFiles "*.prf" 'ZUM TESTEN DER LISTBOX
    MoveListToList(listbox1%)
    ClearList
    WHILENOT ENDE%
    WAITINPUT
    zahl%=0
    x%=40	'AUF PAPIER X START
    y%=10   'AUF PAPIER Y START
       If @EQU(%KEY,2)
          LET ENDE%= 1
       ELSEIF GETFOCUS(LISTBOX1%) 'LISTBOX

       ELSEIF GETFOCUS(BUTTON1%) 'BUTTON
            startprint	'WENN MEHR TEXT SIEHE IN PROFANHILFE NEXTPAGE
    	Whilenot equ(zahl%,@GetCount(listbox1%))
               drawtext x%,y%,@GetString$(listbox1%,zahl%)
               inc zahl%
               y%=add(y%,25)
            wend
            endprint
       ELSEIF GETFOCUS(BUTTON2%) 'BUTTON
    	Let ENDE%=1
       ENDIF
    WEND
Rolf
Rolf Koch
| Datum:06.05.02 21:06 (webmaster@rokosoft.de) |
Ach und nicht vergessen y% auf 0 für neuen Druck zu setzen - dies gilt auch bei einer neuen Seite Nextpage. Rolf
Horst Horn
| Datum: 07.05.02 16:15 (info@web-treffpunkt.de) |
Grossen Dank an RoKo ;o)) Klappt perfekt ! mfG horst

| Zurück zur Übersicht