[Delphi] Jak wydrukować ListView

[Delphi] Jak wydrukować ListView
AA
  • Rejestracja: dni
  • Ostatnio: dni
  • Postów: 59
0

Cześć
Wszyscy piszą jak wydrukować zawartość tego zaj....... komponentu ale niestety nikt chyba nie wie jak to zrobić bo wszystko co piszecie to bzdety bo nie działają.
Dryobates napisał mi w gg abym zrobił coś takiego

with Printer do begin
var
x, j: Integer;
begin
for x := 0 to ListView1.Columns.Count-1 do
Printer.Canvas.TextOut(10+10x, 0, ListView1.Columns.Items[x].Caption);
for x := 0 to ListView1.Items.Count-1 do
begin
Printer.Canvas.TextOut(10, 10+x
20, ListView1.Items[x].Caption);
for j := 0 to ListView1.Items[x].SubItems.Count - 1 do
Printer.Canvas.TextOut(20+20j, 10+x20, ListView1.Items[x].SubItems[j]);
end;
end;

Dla 3 kolumn
ale u mnie to nie działa
Proszę napiszczie jak to wydrukować
NARA [browar]

Szymek
  • Rejestracja: dni
  • Ostatnio: dni
0

Ale czy źle drukuje, niedrukuje, bład kompilacji?

--
;) Szymek

AA
  • Rejestracja: dni
  • Ostatnio: dni
  • Postów: 59
0

Nie drukuje!!!
Jeżeli ktoś ma jakieś źródełko z komponentem ListView i z drukowaniem go to bym prośił na maila tommit@o2.pl [browar]

Vogel
  • Rejestracja: dni
  • Ostatnio: dni
0

na początku: Printer.BeginDoc
na końcu: Printer.EndDoc

--
Vogel [kylix.3.oe@slackware.8.1.0.1]

Life is just a dream, you know...
[Cowboy Bebop]

Zarejestruj się i dołącz do największej społeczności programistów w Polsce.

Otrzymaj wsparcie, dziel się wiedzą i rozwijaj swoje umiejętności z najlepszymi.