Скачать: CL | DM;

Печать   Найти похожие ветки 

← →
Ivolg ©   (2004-04-15 14:48) [0]

Помогите! Как можно текст из Мемо вивисти на принтер для печати!
Или Как можно напичатать текст который находится в МЕМО

---

← →
Фикус ©   (2004-04-15 14:54) [1]

Хелп читать!

This example uses a button and a memo on a form. When the user clicks the button, the content of the memo is printed, with a 200-pixel border around the page. To run this example successfully, you must add the Printers unit to the uses clause of your unit.

procedure TForm1.Button1Click(Sender: TObject);

begin
 with Printer do
 begin
   BeginDoc;
   Canvas.TextRect(Rect(200,200,PageWidth-200,PageHeight-200),
                   200, 200, Memo1.Lines.Text);
   EndDoc;
 end;

end;

---

← →
Ivolg ©   (2004-04-15 15:12) [2]

Фикус

Спасибо!А как можно сменить параметры печати!

---

← →
Тимохов ©   (2004-04-15 15:14) [3]

> Ivolg ©   (15.04.04 15:12) [2]

Какие параметры вас интересуют!!!

---

← →
Anatoly Podgoretsky ©   (2004-04-15 15:38) [4]

WriteLn(F, Memo1.Lines[I])
или
WriteLn(F, Memo1.Lines.Text)

второй вариант не проверял

---

Страницы: 1 вся ветка

Скачать: CL | DM;



Память: 0.45 MB
Время: 0.02 c