[Delphi] Jak wydrukować ListView

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]

0

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

--
;) Szymek

0

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

0

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

--
Vogel [[email protected]]

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

1 użytkowników online, w tym zalogowanych: 0, gości: 1