高手都到那里去了........................

macrowei 2001-06-17 11:41:00
请问我如何在打印之前检测是否安装有打印机,以及打印机是否准备好
急!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!

...全文
64 6 打赏 收藏 转发到动态 举报
写回复
用AI写文章
6 条回复
切换为时间正序
请发表友善的回复…
发表回复
h_lj 2001-06-20
  • 打赏
  • 举报
回复
用showmessage不好,因为我们的目的是在没有打印机的时候能跳出打印过程,所以要用 raise execption。无论你怎样嵌套调用,都可经直接跳出。
mingyezi 2001-06-18
  • 打赏
  • 举报
回复
use里加上 printers,对楼上的补充
with TPrinter.Create do
try
if Printers.Count =0 then
showmessage('没有安装打印机');
finally
Free;
end;
kmask 2001-06-18
  • 打赏
  • 举报
回复
系统中的打印机列表

printer.printers
h_lj 2001-06-17
  • 打赏
  • 举报
回复
with TPrinter.Create do
try
if Printers.Count =0 then
raise Exception.Create('没有安装打印机');
finally
Free;
end;
airhorse 2001-06-17
  • 打赏
  • 举报
回复
EnumPrinterDrivers 枚举指定系统中已安装的打印机驱动程序
EnumPrinters 枚举系统中安装的打印机
EnumPrintProcessorDatatypes 枚举由一个打印处理器支持的数据类型
EnumPrintProcessors 枚举系统中可用的打印处理器

kilix 2001-06-17
  • 打赏
  • 举报
回复
用异常处理就行了

5,392

社区成员

发帖
与我相关
我的任务
社区描述
Delphi 开发及应用
社区管理员
  • VCL组件开发及应用社区
加入社区
  • 近7日
  • 近30日
  • 至今
社区公告
暂无公告

试试用AI创作助手写篇文章吧