Print

← →
madburro © (2002-03-18 23:15) [0]

На форме есть Image1 и Memo1. Как мне сделать так, что бы на принтере отпечаталась картинка из Image1, под ней текст из Memo1? Спасибо :)

← →
Song © (2002-03-19 08:42) [1]

Form1.Print;

← →
madburro © (2002-03-19 21:54) [2]

У меня на форме и другие вещи есть. А мне надо что бы выехал лист с картинкой, а под ней текст.

← →
Song © (2002-03-19 23:06) [3]

Очень упрощённый пример, который я просто привёл чтобы дать направление, в котором нужно копать. Будет работать, если рисунок+строка текста поместятся на одной странице документа и по горизонтали и по вертикали. Никаких переносов и дополнительных проверок не делается.

With Printer Do Begin BeginDoc; With Canvas Do Begin Draw(10,10,Image1.Picture.BitMap); TextOut(10,10+Image1.Picture.BitMap.Height+10,Memo1.Lines.Text); End; EndDoc; End;

Кроме того, масштабирование для лазерных принтеров сделайте ручками. Как, читайте help по TPrinter.

thanx

Print Найти похожие ветки