Советы по Delphi




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


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

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

    var Driver, 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]




Содержание  Назад  Вперед