怎样表示默认打印机？

[8341]

我在打印前，想判断系统是否有打印机（不想通过对话框），该怎么做？

[goodhazel]

printer.printers可以得到打印机列表
printer.printerINDEX可以设当前打印机
printer.printerINDEX:=-1可以恢复默认打印机

[Brune]

其中w i n d o w s节的d e v i c e键中指明了当前系统中默认打印机的信息。可以通过Windows API
函数G e t P r o f i l e S t r i n g获取该信息。函数G e t P r o f i l e S t r i n g的原型如下：
DWORD GetProfileString(
LPCTSTR lpAppName, // 指定节名的字符串
LPCTSTR lpKeyName, // 指定键名的字符串
LPCTSTR lpDefault, // 没有找到键名时返回的字符串
LPTSTR lpReturnedString, // 在键名找到时返回的字符串
DWORD nSize // lpReturnedString的字节数
) ;

[Fengzh418]

if printer.PrinterIndex=0 then showmessage('未安装打印机，不能打印');

[8341]

为什么printer出错？未定义！在USES里加什么？

[8341]

推

[8341]

printer出错啊！应该uses什么单元？

[funboy88]

uses printers;