Скачать: CL | DM;

Printer.Canvas.CopyRect   Найти похожие ветки 

← →
idr   (2002-07-30 14:15) [0]

Уважаемый народ!
Либо я глуповат, либо не знаю что :((
Делаю печать следующим образом, через Canvas принтера:

var dest:TRect;
...
dest:=Rect(10,10,100,100);
...
Printer.BeginDoc;
Printer.Canvas.CopyMode:=cmSrcCopy;
Printer.Canvas.CopyRect(dest,PaintBox1.Canvas,dest);
Printer.EndDoc;

Перед этим в PaintBox1.Canvas рисуем, например, круг.
При выполнении запускается спулер, ничего не пепчатается (хотя документ в очереди есть), выдается через пару секунд окно с сообщением: "Ошибка записи в порт USB001 для принтера (hp LaserJet 1000). Неверно задан параметр."
Что делаю не так - не пойму второй день.
З.Ы. Пробовал вместо CopyRect BitBlt - та же картина.

---

← →
idr   (2002-07-30 16:14) [1]

Помогите пожалуйста,Уважаемые мастера!!!
Не могу избавиться от ощущений полного идиота (:((((() в связи с этим вопросом...

---

← →
Dmk ©   (2002-07-31 00:01) [2]

У меня все работает

Printer.Copies := 1;
Printer.Title := outRec.fgFileName;
Printer.BeginDoc;
//...
SetStretchBltMode(prnDC,ColorOnColor);
Res := StretchDIBits(prnDC,
DestX, // Dest X
DestY, // Dest Y
Word(DestWidth), //
Word(DestHeight), //
0, // Src X
0, // Src Y
Word(outRec.fgWidth), // Src width
Word(outRec.fgHeight), // Src height
outRec.fgEntry, //Bits pointer
iInfo, //Bmp info
DIB_Colors, //Pixel usage
SRCCOPY);
//...
Printer.EndDoc;

---

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

Скачать: CL | DM;



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