TPrintDialog + отсутствие принтеров в системе

← →
Darvin © (2007-03-26 14:02) [0]

Здравствуйте!
У меня таким образом организован процесс печати:
if PrintDialog.Execute then begin
try
Printer.BeginDoc;
try
...
<Прорисовка на канве принтера>
...
finally
Printer.EndDoc;
end;
end;
except
<Сообщение об ошибке при печати>
end;

Когда принтер подсоединен, все прекрасно работает, но когда в системе нет ни одного принтера, при вызове PrintDialog.Execute возникает ошибка: There is no default printer currently selected и программа "вылетает". Как сделать корректно обработку подобной ситуации с PrintDialog?

← →
RASkov (2007-03-26 14:07) [1]

Printer.Printers.Count

← →
RASkov (2007-03-26 14:08) [2]

или Printer.PrinterIndex проверять....

← →
Darvin © (2007-03-26 14:11) [3]

а диалог это сам не отрабатывает?

Обращение к Printer.PrinterIndex в этой ситуации также выдает ошибку.

← →
RASkov (2007-03-26 14:44) [5]

TPrintDialog + отсутствие принтеров в системе Найти похожие ветки