Форум: "Основная";
Текущий архив: 2004.05.02;
Скачать: [xml.tar.bz2];
Вниз
Печать Найти похожие ветки
← →
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 вся ветка
Форум: "Основная";
Текущий архив: 2004.05.02;
Скачать: [xml.tar.bz2];
Память: 0.45 MB
Время: 0.041 c
