如何判断系统是否安装了打印机,在线等待!

jyqkr 2002-12-21 02:38:40

如何判断系统是否安装了打印机,

...全文

59 3 打赏收藏转发到动态举报

写回复

用AI写文章

3 条回复

切换为时间正序

请发表友善的回复…

发表回复

jyqkr 2002-12-21

打赏
举报

if Printer.Printers.count=0 then
Messagedlg('你需要安装打印机才能打印！',mtError,[mbOk],0);

谢谢提示,我找到了.

jyqkr 2002-12-21

打赏
举报

if Printer.Printers=0 then
Messagedlg('你需要安装打印机才能打印！',mtError,[mbOk],0);

能这样判断吗

happyzsl 2002-12-21

打赏
举报

首先在uses增加Printers，再准备一个列表框ComboBox1，其属性Visible设为FALSE，然后在打印之前执行下列语句，那么就可以检测到是否存在打印机了：

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