VFP中有没有办法得到系统缺省打印机的名称？

[YECH]

如题，高手帮忙啊

[YECH]

PRTINFO里面没有打印机名称的。
getprint()会跳出选择窗口，我不要这个窗口。
aprin 函数只能列出所有打印机，缺省的不知道是哪个。

大家想想办法啊。

[westbulls]

建议你最好使用windows api,到底是那一个函数，我帮你查查，看能否查到！

[westbulls]

1.use　你的报表.frx
2.wait window "Printer device='"+SUBSTR(expr,AT('DEVICE',expr)+7,AT('OUTPUT',expr)-AT('DEVICE',expr)-7)+"'"
这只是一个不得以而为之的方法，不一定合适，但你可以看看中否可用。

[westbulls]

好象只有这个windows api可以用了：
Declare Function EnumPrinters Lib "winspool.drv" Alias "EnumPrintersA" (ByVal flags As Long, ByVal name As String, ByVal Level As Long, pPrinterEnum As Byte, ByVal cdBuf As Long, pcbNeeded As Long, pcReturned As Long) As Long
说明
枚举系统中安装的打印机

[magnetmoon]

=APRINTERS(ArrayName)
?ArrayName(3,1)

[xiolig]

To 明月：
为什么一定是 3 呀？

[wwle]

To 明月：
笨蛋，想骗分！
那个函数不行！
她只是列出多有打印机而已！

getprint() ->返回打印机名称 但好像也不对呀！
等！

[wwle]

用prtinfo(n,n)实施颗返回好多值！
太多了，自己喳喳取！--〉

[YECH]

问题已经解决，谢谢各位的帮助。
最后用了GetProfileString api
declare INTEGER GetProfileString in kernel32.dll string lpAppName,string lpKeyName,string lpDefault,string @lpReturnedString ,integer nSize

这个api也是在看EnumPrinters时看到的，所以特别感谢westbulls

调用
GetProfileString("windows","device",0,@rtstring,250)
缺省打印机的名字在rtstring中了
98,me,2000,xp都可以用，呵呵。

[hzk99]

查下VFP帮助就有了,我用过,但删除了,我再帮你查查.
等等...