| Форумы
ЧАТ |
Орешник |
|
| Форумы -» | Основная («Начинающим»)/ Базы / WinAPI / Компоненты / Сети / Media / Игры / Corba и COM / KOL / FreePascal / .Net / Прочее / RSDN.ORG |
|
| ||
|
|
Новости |
Поиск |
FAQ |
Статьи |
Книги |
Новости VCL
| | Форумы ЧАТ |
Орешник |
|
| |||
| |||
| |||
« предыдущая ветвь | форум | следующая ветвь »
TPrintDialog + отсутствие принтеров в системе [D7, XP]
Darvin © (2007-03-26 14:02:00)Здравствуйте!
У меня таким образом организован процесс печати:
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:44:00) [1]> [4] Darvin © (26.03.07 14:32)
А Printer.Printers.Count что говорит? не хочу удалять принтеры для проверки....
Darvin (2007-03-26 14:32:00) [2]Обращение к Printer.PrinterIndex в этой ситуации также выдает ошибку.
Darvin (2007-03-26 14:11:00) [3]а диалог это сам не отрабатывает?
RASkov (2007-03-26 14:08:00) [4]или Printer.PrinterIndex проверять....
RASkov (2007-03-26 14:07:00) [5]Printer.Printers.Count
| |
