Не Обновляется Содержимое Tprintdialog

pinkmouse

New member
06.08.2009
4
0
#1
Delphi 7. При выборе принтера в диалоговом окне TPrintDialog, принтер выбирается, но параметры печати беруться (размер бумаги, разрешение) от принтера по умолчанию и если в диалоге не нажать свойства" и не поставить правильные настройки на печать задание пойдет в выбранный принтер, но с настройками бумаги от принтера по умолчанию. Причем во всплывающем окне при нажатии кнопки"свойства" видны именно параметры от принтера по умолчанию. Так вот, как туда "подгрузить" настройки от выбранного в диалоговом окне принтера?
 

pinkmouse

New member
06.08.2009
4
0
#2
Я выяснил, такая хрень происходит не со всеми параметрами, а только с "особым форматом бумаги" , (это ленточный принтер этикеток), вместо него лепит А4. Как победить?
 

pinkmouse

New member
06.08.2009
4
0
#3
Короче он все формыты бумаги ставит по умолчанию, из настроек принтера их не берет.
 

pinkmouse

New member
06.08.2009
4
0
#4
Я так понял, что это компонент кривой, правильно считывает свойства принтера, если только принтер установлен по умолчанию. При выборе принтера из списка формат бумаги ставит первым в списке форматов принтера. Вордовский диалог печати такой болячкой не болеет. Может кто сталкивался, как лечить то?
 

sinkopa

Well-known member
17.06.2009
344
4
#5
Я так понял, что это компонент кривой, правильно считывает свойства принтера, если только принтер установлен по умолчанию. При выборе принтера из списка формат бумаги ставит первым в списке форматов принтера. Вордовский диалог печати такой болячкой не болеет. Может кто сталкивался, как лечить то?
Чего лечить то? :)
Tprintdialog ничего сам не делает. Как собственно и любой другой диалог... После закрытия диалога Вы должны взять параметры которые пользователь "накликал ручками" и назначить нужному принтеру.
Вот приблизительно так http://www.scalabium.com/faq/dct0020.htm
Нужный принтер выбирается установкой Printers.Printer.PrinterIndex;
Список принтеров можно получить из Printers.Printer.Printers
Короче... почитайте
Вот на вскидку несколько ссылок:

http://www.delphibasics.co.uk/RTL.asp?Name=TPrintDialog
http://www.delphidabbler.com/tips/104
http://delphi.about.com/cs/adptips2001/a/bltip1001_5.htm
Или Гугл :)