Почему принтер не печатает, хотя...

← →
AlexanderMS © (2006-12-23 19:25) [0]

...для вывода на экран и на принтер я использовал одну и ту же процедуру. Только параметр в первом случае - Printer.Canvas, во втором - PaintBox1.Canvas. Разрешение принтера учёл.
Бумага проходит через принтер, но как будто белым по белому печатается: ничего нет, пустой лист. А на экране всё хорошо. Целый час с принтером возился и с кодом. Не знаю, может есть противопоказания использованного мною универсального метода (одна процедура)... Помогите, пожалуйста, я уже не знаю, что делать!

← →
tesseract © (2006-12-23 20:14) [1]

гм, может с координатами начудил?

← →
AlexanderMS © (2006-12-24 11:21) [2]

Не знаю, проверял в пошаговом режиме - вроде всё теоретически печатается.

1) Случайно DrawText с параметром DT_CalcRect ничего не портит?
2) Может, здесь не так:

ScaleX := GetDeviceCaps(Printer.Handle, LogPixelsX); ScaleY := GetDeviceCaps(Printer.Handle, LogPixelsY); ClientRect := Bounds(0, 0, Printer.PageWidth * ScaleX, Printer.PageHeight * ScaleY); // область рисования

← →
AlexanderMS © (2006-12-24 15:45) [3]

Удивительно! Почему вопрос не поднялся вверх! И указано, что ответов 1, хотя я ещё раз ответил?

Спасибо, разобрался. Произведение на ScaleX было так велико, что выезжало "за лист". Пришлось его поделить на 70, чтобы всё было ОК.

1) Почему шрифт не устанавливается, хотя он поддерживается принтером?
2) А как сделать точный WYSIWYG ? Что на экране, то и на принтере?

Почему принтер не печатает, хотя... Найти похожие ветки