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

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

← →
Vadia   (2002-11-03 15:49) [0]

Как бы мне разобраться с печатью тмемки? Вот текст процедуры:
procedure TForm1.Print(Sender: TObject);
begin
with Printer do
Begin
BeginDoc;
Memo1.PaintTo(Handle,10,10);
EndDoc;
End;
end;
В результате мой принтер печатает TMemo. Всё хорошо, но печатает он её очень мелко в левом верхнем углу. Как изменить масштаб или растянуть эту мему на весь лист A4?

---

← →
BOA_KAA ©   (2002-11-03 17:01) [1]

procedure TFormI.ButtonlClick(Sender: TObject);
var
Y,dY,k: Integer;
begin
if Memol.Lines.Count=0 then Exit;
Screen.Cursor := crHourGlass;
with Printer do
begin
BeginDoc;
with Printer.Canvas do
begin
Font := Memol.Font;
dY := TextHeight("1"); // Определяем высоту строки
Y := 2*dY; // Отступ от верхнего края листа
for k := 0 to Memol.Lines.Count-1 do
begin
//Выводим очередную строку TextOut(О,Y,Memol.Lines[k]);
//Смещаемся на следующую строку листа
inc(Y,dY) ;
if PageHeight-Y<2*dY then
// Нижний край листа?
begin //Да
NewPage; //Переход на новый лист
// Выводим номер страницы
TextOut(0,0,"с."+IntToStr(PageNumber)) ;
Y := 2*dY
end;
end;
end;
EndDoc;
end;
Screen.Cursor := crDefault;
end;

Всего лишь пример из книги...

---

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

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



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