Re: Inhalt einer Listbox ausdrucken ?
Liste der Anhänge anzeigen (Anzahl: 1)
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:
Man könnte noch ein PrinterDialog einführen mit dem der Benutzer zwischen Hoch- und Quer-Format wählen kann.
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. Freut mich, wenn ich Dir helfen konnte! :cheers: Grüße von TOC! |
Re: Inhalt einer Listbox ausdrucken ?
hallo,
danke nocheinmal für eure hilfe :) mfg vader |
AW: Inhalt einer Listbox ausdrucken ?
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.
|
AW: Inhalt einer Listbox ausdrucken ?
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:
bestimmen kann.
Canvas.TextWidth(ListBox.Items[I])
|
Alle Zeitangaben in WEZ +1. Es ist jetzt 23:47 Uhr. |
Powered by vBulletin® Copyright ©2000 - 2024, Jelsoft Enterprises Ltd.
LinkBacks Enabled by vBSEO © 2011, Crawlability, Inc.
Delphi-PRAXiS (c) 2002 - 2023 by Daniel R. Wolf, 2024 by Thomas Breitkreuz