5,388
社区成员
发帖
与我相关
我的任务
分享在一台未安装打印机而安装了传真机的电脑，如何让它显示未安装打印机?
在一台未安装打印机而安装了传真机的电脑，如何让它显示未安装打印机?
用uses
Printers;
showmessage(Inttostr(Printer.Printers.Count));会找到传真机,把传真机当打印机
请问有其他方法没有?谢谢
用uses
Printers;
showmessage(Inttostr(Printer.Printers.Count));会找到传真机,把传真机当打印机
请问有其他方法没有?谢谢
...全文
请发表友善的回复…
发表回复
gan_lg 2002-09-25
- 打赏
- 举报
这个方法我用过，不行，因为安装了传真机，不会显示需要安装打印机，会默认传真机当打印机
dreamfan 2002-09-25
- 打赏
- 举报
试一下上面的方法，也许可以
haoqingqlm 2002-09-25
- 打赏
- 举报
教你一个烂招，但也管用，可以检测出本机是否已安装打印机
其中combobox.visible:=False;
uses Printers;
procedure TForm1.Button1Click(Sender: TObject);
begin
ComboBox1.Clear;
ComboBox1.Items.Assign(Printer.Printers);
if ComboBox1.Items.CommaText='' then
Messagedlg('你需要安装打印机才能打印！', mtError,[mbOk],0)
else .........
end;
其中combobox.visible:=False;
uses Printers;
procedure TForm1.Button1Click(Sender: TObject);
begin
ComboBox1.Clear;
ComboBox1.Items.Assign(Printer.Printers);
if ComboBox1.Items.CommaText='' then
Messagedlg('你需要安装打印机才能打印！', mtError,[mbOk],0)
else .........
end;
lance09 2002-09-25
- 打赏
- 举报
HEHE,关注中..................
