Главная страница
Top.Mail.Ru    Яндекс.Метрика
Текущий архив: 2004.07.18;
Скачать: CL | DM;

Вниз

Как определить наличие принтера в системе   Найти похожие ветки 

 
Вася   (2004-06-03 13:17) [0]

Добрый день всем.
Программа распечатывает содержимое TMemo. Как определить наличие принтера в системе, чтобы программа не зависала .
Почему данный код не вылавливает исключений при печати:

procedure TForm1.PrintMemo(Sender: TObject);
var
  Line: Integer;
  PrintText: TextFile;
begin
 try
   AssignPrn(PrintText);
   Rewrite(PrintText);
   Printer.Canvas.Font := Memo1.Font;
   for Line := 0 to Memo1.Lines.Count - 1 do
   Writeln(PrintText, Memo1.Lines[Line]);
   CloseFile(PrintText);
 except
    MessageBox(Self.Handle, "Ой", "",  MB_OK);
    exit;
 end;

end;



 
Vlad Oshin ©   (2004-06-03 13:25) [1]

EnumPrinters(Flags, nil, 2, nil, 0, Count, NumInfo);
if Count = 0 then Exit; //no printer



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

Текущий архив: 2004.07.18;
Скачать: CL | DM;

Наверх




Память: 0.46 MB
Время: 0.034 c
1-1088663857
Галинка
2004-07-01 10:37
2004.07.18
Печать из Memo


14-1088502398
ДудушкаКо
2004-06-29 13:46
2004.07.18
Портрет К Маркса большой ссылка или на мейл


4-1086505717
SPeller
2004-06-06 11:08
2004.07.18
Исправить дамп РЕ чтоб запускался


3-1087345149
Смертник
2004-06-16 04:19
2004.07.18
Помогите пожалуйста с DBGrid.


1-1088882723
oleg_SYS
2004-07-03 23:25
2004.07.18
HTML из буфера обмена