Inhalt einer Listbox ausdrucken ?

[TOC]

Hi!

Kleiner Fehler in meiner Source!
Man sollte abfragen ob die ListBox LEER ist! Sonst macht der Drucker ein FormFeed und druckt ein leeres Blatt aus. Is mir nicht aufgefallen weil in meinem Beispiel die ListBox ja nit grad leer war, HiHi!

Wir müßen nur eine Zeile einfügen, direkt am Anfang:

Delphi-Quellcode:

unit Unit1;

interface

uses
  Windows, Messages, SysUtils, Classes, Graphics, Controls, Forms, Dialogs,
  StdCtrls, Printers;

type
  TForm1 = class(TForm)
    ListBox1: TListBox;
    Button1: TButton;
    procedure Button1Click(Sender: TObject);
  private
    Procedure PrintListBox(ListBox: TListBox);
  public
  end;

var
  Form1: TForm1;

implementation

{$R *.DFM}

procedure TForm1.Button1Click(Sender: TObject);
begin
  PrintListBox(ListBox1);
end;

Procedure TForm1.PrintListBox(ListBox: TListBox);
Var
  I,LinesPerPage,Count,FontHeight:Cardinal;
Begin
  // Neue Zeile!
  If Listbox.Items.Count=0 then Exit;
  With Printer do Begin
    Canvas.Font.Assign(ListBox.Font);
    FontHeight:=Canvas.TextHeight('X');
    LinesPerPage:=PageHeight div FontHeight;
    BeginDoc;
      Count:=0;
      For I:=0 to ListBox.Items.Count-1 do Begin
        Canvas.TextOut(0,Count*FontHeight,ListBox.Items[I]);
        Inc(Count);
        If Count=LinesPerPage then Begin
          Count:=0;
          NewPage;
        End;
      End;
    EndDoc;
  End;
End;

end.

Man könnte noch ein PrinterDialog einführen mit dem der Benutzer zwischen Hoch- und Quer-Format wählen kann.

Freut mich, wenn ich Dir helfen konnte!

Grüße von TOC!

[Vader]

hallo,

danke nocheinmal für eure hilfe
mfg vader

[Rainsnow]

Hallo ich hätte zu diesem Thema noch eine Frage.Ist es möglich das auf dem ausgedruckten Blatt als Überschrift immer das Wort "Rechnung" zu haben und die Listbox zentral unter der Überschrift zu haben.

[himitsu]

Da hier manuell auf dem Printer.Canvas rumgemalt wird, kannst du natürlich auch selber noch etwas drauf malen.
(Printer.Canvas.TextOut und das einmal am Anfang und vielleicht auch nochmal nach NewPage)
Und die Position des hier gemalten sollte sich durch einfügen eines Offset problemlos verschieben lassen den man auf alle Zeichen-/Textoperationen drauf rechnet.
LeftOffset := (Printer.PageWidth - BreiteDesGemalten) div 2
PS: Wenn du noch was drüber schreibst, dann nicht vergessen auch ein Offset von Oben zuzugeben. (oder einfach "Count" nicht bei 0 beginnen lassen)

Da z.B. in #11 nur Text gemalt wird, wär hier die "BreiteDesGemalten" somit der längste Text,
den man vorher mit einer Schleife und Canvas.TextWidth(ListBox.Items[I]) bestimmen kann.