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

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

← →
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, хотя я ещё раз ответил?

---

← →
AlexanderMS ©   (2006-12-24 16:36) [4]

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

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

---

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

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



Память: 0.46 MB
Время: 0.029 c