Печать из Delphi, Как печатать на сетевой принтер? Опции

[YurKaluga]

Задача такая:
к компу может быть подсоединен принтер (LPT или USB), а может быть только сетевой принтер.
Выбрать принтер, из установленных в системе, можно через PrintDialog. А как быть дальше?
Печатать нужно содержимое TStrings или TStringList, причем с определенным шрифтом и его размером.
Есть ли разница, и какая, при работе с сетевым принтером?
Да, и еще: текст в кодировке DOS.

Сообщение отредактировано: YurKaluga - 13.01.2006 17:59

[hiv]

причем с определенным шрифтом и его размером.
Есть ли разница, и какая, при работе с сетевым принтером?
Да, и еще: текст в кодировке DOS.

Разницы в принципе никакой, тем более что 90% принтеров продаваемых у нас в стране не руссифицированы или не позволяют печатать из DOS. Поэтому перед печатью страницы ее нужно нарисовать в канве Printer.Canvas. Рисовать текст можно предварительно установив нужный шрифт и цвет у объекта Printer.Canvas. Текст выводится методом Printer.Canvas.TextOut(int X, int Y, const WideString Text); только кодировка текста должна быть win cp1251.
Удачи!

[YurKaluga]

Спасибо!
Попёрло!!!

Просто с первого раза применение TPrinter вызывало ошибку чтения с нулевого адреса, а сегодня тот же пример пошел нормально. Почему не знаю...

[hiv]

Можно не создавать отдельный экземпляр объекта TPrinter, а воспользоваться готовой переменной (объектом) Printer. Но правильнее будет, если его выбирать из списка установленных принтеров.