Jak wydrukowaś zawortość ListView

Cześć
mam pytanko jak wydrukowaś zawortość TListView

Moze to Cie zadowoli :)
http://www.4programmers.net/forum/index.php?action=show&id=9960--Pozdrawiam {hello}
Tomasz K.

jezeli progamujesz w delphi to do uses piszemy sloweczko "Printers" a kod drukujacy to:

with Printer do
begin
BeginDoc;
ListView1.PaintTo(Handle,10, 10);
EndDoc;
end;

p.s. sorka ale nie sprawdzalem czy dziala

--
-=-=[ Delphi 3, 6 ]=-=-
-=-=-==[ LKS ]==-=-=-
-=[ [email protected] ]=-

Po wydrukowaniu czcionka jest bardzo mała jak ją zwiększyć na wydruku nie zmieniając wielkości czcionki w programie????

a probowales cos takiego ?

with Printer do
begin
BeginDoc;
Canvas.Font.Size := 20;
ListView1.PaintTo(Handle,10, 10);
EndDoc;
end;

p.s. nie jestem pewien czy zadziala
p.s.2. dzis pierwszy raz dopisalem do uses slowko "Printers" :)
p.s.3. cos nie dziala? nacisnij F1, pozdrowionka dla pq :)

-=-=[ Delphi 3, 6 ]=-=-
-=-=-==[ LKS ]==-=-=-
-=[ [email protected] ]=-

Już wiem jak wydrukować listę z listview ale wychodzi bardzo mała
to jest kod na wydruk!!!!
with Printer do
begin
BeginDoc;
ListView1.PaintTo(Handle,10, 10);
EndDoc;
end;
Teraz jak go przekształcić próbowałem już
with Printer do
begin
BeginDoc;
Canvas.Font.Size := 20;
ListView1.PaintTo(Handle,10, 10);
EndDoc;
end;

i

with Printer do
begin
BeginDoc;
Listview1.Canvas.Font.Size := 20;
ListView1.PaintTo(Handle,10, 10);
EndDoc;
end;

{hello}
jak przesłać do drukarki obraz z listview nie używając PaintTo(Handle,10, 10);

Macie jakieś sugestie?????