Форум: "Основная";
Поиск по всему сайту: delphimaster.net;
Текущий архив: 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




Форум: "Основная";
Поиск по всему сайту: delphimaster.net;
Текущий архив: 2002.04.01;
Скачать: [xml.tar.bz2];




Наверх





Память: 0.72 MB
Время: 0.019 c
1-252             Dok_3D                2002-03-20 14:36  2002.04.01  
Как программно удалить COM+ приложение ?


14-289            Almas                 2002-02-15 15:01  2002.04.01  
Проблемы с установкой Дельфи


1-192             Yakudza               2002-03-17 20:19  2002.04.01  
ChekListBox и Record


14-316            mr_X                  2002-02-13 17:24  2002.04.01  
Кто подскажет, кто расскажет где можно взять файлы ресурсов, иконки всякие bmp-шки и т. п.


4-343             yus                   2002-01-30 22:28  2002.04.01  
Как отформатировать диск А: не выводя окна