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

Вниз

Как распечатать TImage???   Найти похожие ветки 

← →
Alexy   (2002-06-10 12:22) [0]

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

---

← →
Kudatsky   (2002-06-10 12:45) [1]

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

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

---

← →
Alexy   (2002-06-10 12:52) [2]

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

---

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

TPrinter.Canvas.Draw()

---

← →
Alexy   (2002-06-10 13:57) [4]

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

---

← →
Song   (2002-06-10 14:04) [5]


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


---

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

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

Наверх

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