| Новости | Поиск | FAQ | Статьи | Книги | Новости VCL | | Форумы ЧАТ | Орешник | KOL и MCK |
Форумы -» Основная («Начинающим»)/ Базы / WinAPI / Компоненты / Сети / Media / Игры / Corba и COM / KOL / FreePascal / .Net / Прочее / RSDN.ORG

	« предыдущая ветвь | форум | следующая ветвь »

Как распечатать TImage??? [D3, D4, D5, Win95/98, WinXP]

Alexy ©   (2002-06-10 12:22:00) 

Как его послать на принтер, на лист А4???

---

Song   (2002-06-10 14:04:00) [1]


BitMap:=TBitMap.Create;
BitMap.LoadFromFile("1.bmp");
With Printer Do
Begin
BeginDoc;
try
Canvas.Draw(10,10,BitMap);
finally
EndDoc;
end;
End;
BitMap.Free;


---

Alexy   (2002-06-10 13:57:00) [2]

Можно подробнее?? Draw - это картинку туда запихнуть???

---

Song   (2002-06-10 13:32:00) [3]

TPrinter.Canvas.Draw()

---

Alexy   (2002-06-10 12:52:00) [4]

Thanx!!!
А если не через Word?

---

Kudatsky   (2002-06-10 12:45:00) [5]

Я это делаю через Word: загружаю картину, устанавливаю размеры на экране, а затем печатаю:

Image1.Picture.SaveToFile("Sender.bmp");
V:=CreateOleObject("Word.Basic");
V.FileNew("Normal");
V.TogglePortrait;
V.InsertPicture("Sender.bmp",0);
V.AppMaximize;
V.AppShow;

---

Наверх