求救—在线等！ ( 积分: 22 )

在打印报表时如何检测系统中是否安装了打印机？

在打印报表时如何检测系统中是否安装了打印机？

好像通过print有一个叫什么得到当前打印机的函数，你可以试试！

try
FPrinterSetting:=TPrinterSetting.Create;
FPrinterSetting.Printer:=printer;
except
MessageDlg('打印机未安装！',mtWarning,[mbOk],0);
end;

好像不行！

procedure TForm1.Button1Click(Sender: TObject);
begin
ComboBox1.Clear;
ComboBox1.Items.Assign(Printer.Printers);
if ComboBox1.Items.CommaText=''then
Messagedlg('你需要安装打印机才能打印！',mtError,[mbOk],0)
else
ShowMessage('Ok');
end;

试试，看行不

在 uses 中加上 Printers
检测时可以用如下的代码:
if Printer.Printers.IndexOf('aaa')=-1 then
MessageBox(handle,'你需要安装打印机才能打印!','信息提示',mb_Ok or mb_iconerror)
else
MessageBox(handle,'OK!已安装了打印机驱动!','信息提示',mb_ok or mb_iconwarning);
注意:这只是检测是否存在名称为'aaa'的打印机
==============================================================
判断是否安装了打印机可以用:
if Printer.Printers.Count=0 then
MessageBox(handle,'你需要安装打印机才能打印!','信息提示',mb_Ok or mb_iconerror)
else
MessageBox(handle,'OK!已安装了打印机驱动!','信息提示',mb_ok or mb_iconwarning);
注意: Printer.Printers.Count=0没有安装打印机