Inhalt einer Listbox ausdrucken ?

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