Советы по 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]
