Советы по Delphi

       

Ошибка диалога настройки принтера


Я разместил в своем приложении вызов диалога настройки принтера. Он вызывается из моего меню PrinterSetupDialog1.Execute ... пока вроде все нормально. Теперь вот что странно: мое приложение может вызвать его только один раз. При попытке вызвать его вторично ничего не происходит. Диалог не появляется.

Это "недавнообнаруженная" проблема. Для ее решения необходимо вызывать GetPrinter и SetPrinter перед каждым вызовом PrinterSetupDialog1.Execute:

varDriver, Device, Port: array[0..79] of Char;Mode: THandle;begin...GetPrinter(Driver, Device, Port, Mode);SetPrinter(Driver, Device, Port, 0);PrinterSetupDialog1.Execute;...end;

Та же проблема возникает при использовании кнопки "Setup" из диалога печати.

-Steve Schafer [000719]



Содержание раздела