M marco_hsu Unregistered / Unconfirmed GUEST, unregistred user! 2003-05-15 #1 突然短路,急需答案,如何判断系统中是否安装有打印机??搞定就结!
C ccdos Unregistered / Unconfirmed GUEST, unregistred user! 2003-05-15 #2 烂招,自己优化 首先在uses增加Printers,再准备一个列表框ComboBox1, 其属性Visible设为FALSE,然后在打印之前执行下列语句, 那么就可以检测到是否存在打印机了: ComboBox1.Clear; ComboBox1.Items.Assign(Printer.Printers); if ComboBox1.Items.CommaText = ',' then Messagedlg('你需要安装打印机才能打印!', mtError, [mbOk], 0);
烂招,自己优化 首先在uses增加Printers,再准备一个列表框ComboBox1, 其属性Visible设为FALSE,然后在打印之前执行下列语句, 那么就可以检测到是否存在打印机了: ComboBox1.Clear; ComboBox1.Items.Assign(Printer.Printers); if ComboBox1.Items.CommaText = ',' then Messagedlg('你需要安装打印机才能打印!', mtError, [mbOk], 0);
M marco_hsu Unregistered / Unconfirmed GUEST, unregistred user! 2003-05-15 #3 谢谢答复,其实只要判断PRINTER.PRINTERS.COUNT>0就可以了,不过还是要谢谢你