怎解决打印出错

Question

try 了
你用一下printer 对象就行了
但是form.print 可能
不太好
你一定要用的话试一下
try
printer.begindoc
except
....
end;

Answer 1

是呀
～
try
  Printer.BeginDoc
except
  ShowMessage(‘打印机没有准备好！’)；
end; 

Answer 2

var
  ssLL : TStringList;
begin
  ssLL := TStringList.Create;
  ssLL.Assign(printer.Printers);
  if ssLL.Count>0 then begin
  {有打印机}
  end else begin
  {无打印机}
  end;
  ssLL.Free;
end;