Скачать: CL | DM;

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]

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

---

← →
Darvin ©   (2007-03-26 14:32) [4]

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

---

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

> [4] Darvin ©   (26.03.07 14:32)

А Printer.Printers.Count что говорит? не хочу удалять принтеры для проверки....

---

Страницы: 1 вся ветка

Скачать: CL | DM;



Память: 0.46 MB
Время: 0.029 c