ListBox Drucken??

[JSB]

Wie kann ich die Einträger einer ListBox Standart-Delphi-Komponente ausdrucken lassen? :gruebel:

[Luckie]

Von Hand jeden Eintrag auf den Canvas des Druckers ausgeben.

[JSB]

:wiejetzt:

[JSB]

Zitat:

Zitat von Luckie

Von Hand

Zitat:

Zitat von Luckie

auf den Canvas des Druckers

von Hand??? = Einzelnd??
Canvas des Druckers????
Canvas=???
:cry: *HILF!* :cry:

[HaZe]

hi

gut das niemand weiss, das ich google heiss :)

http://www.softgames.de/forum/viewtopic.php?t=47831


cya

HaZe

[JSB]

Zitat:

Zitat von HaZe

hi

gut das niemand weiss, das ich google heiss :)

Wenns so wär bräuchte keiner ein Forum... :lol:
Dank trotzdem... :mrgreen:

[HaZe]

Zitat:

Wie poste ich richtig?
Nachdem ich mit Google oder einer ähnlichen Suchmaschine und der Forensuche nichts gefunden habe, erstelle ich ein neues Thema in dem passenden Unterforum, mit einem treffenden Titel und deutlichem Text, unter dem sich jeder etwas vorstellen kann.

*Zungerausstreck* :mrgreen:

[Sascha_OW]

Kann mir einer sagen wie ich Listboxen drucken kann wenn ich mehrere habe die mit Tabulatoren gedruckt werden sollen. Sprich ich habe 4 Listboxen und die sollen auf dem Druck in 4 Spalten vom Blatt eingetragen werden. Ich kann ich das am besten lösen
Meine Druck Functuon kommt von www.visualbasic5.de

Delphi-Quellcode:

procedure PrintTextboxContent(Source: TStrings);
        // TStrings : TStrings is the base class for objects that represent a list of strings.
var
        (*
          A file is an ordered set of elements of the same type. Standard I/O
          routines use the predefined TextFile or Text type, which represents a
          file containing characters organized into lines.
        *)
        filetype: TextFile;
        n: Word;   // *** Laufvariable : Word   0..65535 unsigned 16-bit
begin
        // *** Assigns a text-file variable to the printer.
        AssignPrn(filetype);
        try
                // Rewrite : Creates a new file and opens it.
                Rewrite(filetype);
        try
                // for n ... Anzahl der Zeilen in dem Textfeld Memo1
                for n := 0 to Source.Count -1 do
                // Writes to a text file and adds an end-of-line marker
                writeln(filetype, Source.Strings[n]);

        finally
                // Terminates the association between file variable and an
                // external disk file.
                CloseFile(filetype);
        end;
        except
                (* EInOutError = EInOutError is the exception class for file
                input/output errors.
                *)
                on EInOutError do
                        MessageDlg('Error...', mtError, [mbOk], 0);
        end;
end;