ListView Daten ausdrucken?

[Master_BB]

Heya,
ich hab derzeit das Problem das die listview komponente keine print procedure hat wie es beispielsweise
die RichEdit Komponente hat.
Ich hatte bisher nur einmal eine Druckenfunktion geschrieben und das war halt durch RichEdit.Print(pfad)
jedoch hat die ListView das nicht.
weiß ein wie ich das sonst ordentlich drucken lassen kann ohne die ganzen Datensätze in
irgenteine andere komponente einfügen zu lassen oder so?

Greetz
Master_BB

[Nicodius]

könntest dus theoretisch nicht ins eine andere reinladen (wie zb TRichedit) ?

[Master_BB]

genau das wollte ich vermeiden da dann ein krasses durcheinander entsteht und meine tabelle dann nicht
mehr so hübsch aussieht

[Nicodius]

und die tabelle in ne html datei speichern und nach über einen druckdialog drucken?

[Master_BB]

ja denke ich auch gerade drüber nach ist das einzigst einfache was anscheinend geht.
aber ich wollte eingentlich wenn cih bei meinem programm auf drucken drücke
das einfach gedruckt wird.

[Mattin]

Hallo Master_BB

versuch es doch mal so

Delphi-Quellcode:

uses Printers;

var
 PrintText   : TextFile;
 i           : Integer;
begin
   // Schrift und Schriftgrösse angeben 
   Printer.Canvas.Font.Name :='Courier'; 
   Printer.Canvas.Font.Size := 10;      
   if PrintDialog1.Execute then
   begin
    {$I-}
    AssignPrn(PrintText);
    Rewrite(PrintText);

    Writeln(PrintText, 'Mein erster Ausdruck vom ' + FormatDateTime('dd.mm.yyyy',Date()));
    Writeln(PrintText, '');

    for i := 0 to ListView1.Items.Count -1 do
    begin
      Writeln(PrintText, ListView1.Items.Item[i].Caption + char(09) + ListView1.Items[i].SubItems[0]);
    end;

   end;
    CloseFile(PrintText);
   {$I+}
end;

[Master_BB]

yeah THX es funktioniert
kannst du mir auch sagen was char(09) bedeutet?

[Mattin]

Hallo Master_BB

Zitat:

kannst du mir auch sagen was char(09) bedeutet?

Bedeutet das zwischen den ListView.Items ein Tab erzeugt wird.Eben ein Trenner zwischen den Items
so das die Einträge nicht aneinander gedruckt werden.

Delphi-Quellcode:

  // Trennung mit Leerzeichen
  Writeln(PrintText, ListView1.Items.Item[i].Caption + ' ' + ListView1.Items[i].SubItems[0]);
  // Trennung mit Tab
  Writeln(PrintText, ListView1.Items.Item[i].Caption + char(09) + ListView1.Items[i].SubItems[0]);

Das wars auch schon.

[Master_BB]

kann ich mit der zahl in der klammer die tabgröße beeinflussen?
beim probieren hatte cih merkwürdige ergebnisse erhalten das komische vierecke dafür dastanden usw

[MrKnogge]

Die größe kannst du nur in sofern beeinflussen, dass du mehrmals Char(09) nimmst.

Char(09) entspricht der Tab-Taste deiner Tastatur.