Allgemeine Fragen zur PROFAN Programmierung
Views (Heute): 242994 (4430)
  Suchen
 Zurück zur Übersicht
 AutorThema: Listbox drucken ?
Horst Horn
Datum:06.05.02 20:10 Antwortenals Email verschicken (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 Antwortenals Email verschicken (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 Antwortenals Email verschicken (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 Antwortenals Email verschicken (info@web-treffpunkt.de) 


Grossen Dank an RoKo ;o))
Klappt perfekt !
mfG
horst


 Zurück zur Übersicht