Inhalt einer Listbox ausdrucken ?

[Vader]

hallo,

wie kann ich den ganzen inhalt einer listbox ausdrucken :?


mfg vader

[TOC]

Kommt wohl drauf an was es für ´ne Listbox ist, also der Stiel ist das Problem. Wenns ´ne Standard-Listbox nur mit Zahlen/Text ist dann isses kein größeres Problem :drunken: , aber bei ´ner tabulierten Liste im Stiel 'lbOwnerDraw', die möglicherweise Grafiken enthält, ist das ein komplexes Problem. :cry:

Schreib mir mal genauer WAS Du ausdrucken möchtest. Wichtig ist die Anzahl der Einträge, also ob der Inhalt der Listbox auf eine Seite paßt oder über mehrere Seiten gehn soll. Das macht ´für´s Programm nämlich einen erheblichen Unterschied!

Ich schreib nach her mal zuhause ´n kleines Programm für ne einseitige Standard-ListBox und schicks Dir wenns fertig ist.Hab nur etwas Gedult!

Grüße von TOC!

[Luckie]

Damit er es eventuell schon mal selber probieren kann, hier mal wie es im Prinzip geht: Du musst einfach nur jeden Item mit TextOut oder wenn es etwas besser formatiert sein soll, mit DrawText, auf den Canvas des Drucjers zeichnen. Dann noch eon BeginDoc davor aufrufen und dan nach ein EndDoc und schon hast du deine Listbox ausgedruckt.

[Orbmu2k]

Also für reinen Text sollte das so passen:

Delphi-Quellcode:

uses
  Printers;

procedure PrintText(Text:TStrings; Font:TFont);
var
  i:Integer;
begin
  with Printer do
  begin
    BeginDoc;
    Canvas.Font.Assign(Font);
      for i := 0 to Text.Count-1 do
        Canvas.TextOut(5, (i*(Canvas.TextHeight(Text[i])+5))+50 , Text[i]);
    EndDoc;
  end;
end;

procedure TForm1.Button1Click(Sender: TObject);
begin
  PrintText(Listbox1.Items , Font);
end;

[Vader]

hallo,

danke für eure tipps der code von orbmu2k funzt,jetzt habe ich noch
eine frage er druckt das sehr klein aus, wie kann man in größerer
schrift ausdrucken ??
mfg vader

[Alex_ITA01]

ändere den Wert von Font.Size...
Das stellt die Schriftgröße dar

MFG Alex

[Vader]

hallo,

das mit font_size habe ich probiert, funzt nicht, ich kann einstellen was ich will der drucker
druckt immer die gleiche größe :?

mfg vader

[TOC]

Hi!

Hab ein kleines Progi für dich geschrieben. Du mußt der Funktion nur die Listbox übergeben. Druckt auch mehrere Zeilen, aber vorsicht mit dem Rechten Rand! Es muß auf die Seite passen!

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
  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.

Um es größer zu drucken mußt du Font.Size der Listbox vergrößern.
Ich hab damit grad gedruckt, es funkioniert!

Grüße von TOC!

[Vader]

hallo Toc,

super danke, es funzt :P

mfg vader

[Remote1]

ich würde dir noch raten, in mm zu drucken, dann bekommst du auch keine probleme, wenn du mal nen anderen drucker mit anderer auflösung verwendest (kannst im forum, mal nachschauen "in mm drucken" oder so)

[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! :cheers:

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.

Delphi-Quellcode:

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

Delphi-Quellcode:

Canvas.TextWidth(ListBox.Items[I])

bestimmen kann.