jak wydrukować zawartość Label.caption ?
...lub jak wydrukować tekst z ListBox, ale konkretną pozycję...
...za pomoc dziękuję.
procedure TForm1.Button1Click(Sender: TObject);
begin
with Printer do
begin
BeginDoc;
Canvas.TextRect(Rect(200,200,PageWidth-200,PageHeight-200),
200, 200, ListBox1.Items[ListBox1.ItemIndex]); // lub Label1.Caption
EndDoc;
end;
end;--Vogel [Delphi 6 PE]
Life is just a dream, you know...
[Cowboy Bebop]
no dooobra..... działa ....
tylko dlaczego obcina dłuższe zdania? a nie zawija wiersza .....
drukuje tylko do końca kartki i dalej nic .....pomocy....
Zbych napisał:
tylko dlaczego obcina dłuższe zdania? a nie zawija wiersza .....
drukuje tylko do końca kartki i dalej nic .....pomocy....
A to już twoja głowa, żeby sprawdzić czy tekst nie jest za długi (TextWidth) i w razie potrzeby powstawiać znaki końca lini (^J).--Jest jeszcze jeden błąd ... :)
Apel: Piszcie w tematach o jaki język programowania chodzi np. : [Delphi], [C++], itp.
dzięki