Форум: "Основная";
Текущий архив: 2002.04.01;
Скачать: [xml.tar.bz2];
Вниз
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.
← →
madburro (2002-03-19 23:22) [4]thanx
Страницы: 1 вся ветка
Форум: "Основная";
Текущий архив: 2002.04.01;
Скачать: [xml.tar.bz2];
Память: 0.44 MB
Время: 0.005 c
