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

Вниз

Распечатать   Найти похожие ветки 

← →
md   (2006-01-23 15:52) [0]

В моей программе есть объект TImage на котором нарисована графика и текст. Как всё это распечатать на принтере ?

---

← →
Ega23 ©   (2006-01-23 15:59) [1]


try
 with Printer do
  begin
   BeginDoc;
   StretchBlt(Canvas.Handle,0,0,PageWidth,PageHeight,FrontImage.Canvas.Handle,
              0,0,FrontImage.Width,FrontImage.Height,SRCCOPY);
   EndDoc;
  end;
except
 ModalResult:=mrAbort;
end;


FrontImage : TBitmap;

---

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

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

Наверх

Память: 0.44 MB
Время: 0.043 c