Форум: "Основная";
Текущий архив: 2002.08.12;
Скачать: [xml.tar.bz2];
Вниз
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 вся ветка
Форум: "Основная";
Текущий архив: 2002.08.12;
Скачать: [xml.tar.bz2];
Память: 0.44 MB
Время: 0.008 c
