VB中给DataReport指定打印机

VB中的DataReport报表工具虽然方便,但在打印时无法直接指定打印机。通过查阅Microsoft相关文章,可以在VB6 SP6 + Windows XP SP2环境下,利用注册表来解决这一问题。示例代码提供了一种简洁的解决方案,避免复杂的API和Printer对象操作。

摘要生成于 C知道 ,由 DeepSeek-R1 满血版支持, 前往体验 >

  DataReport是VB的报表工具,其简单方便快捷,解决常用的报表问题还是不错的。不过在打印功能上有一个非常大的弱点,就是在代码中不能通过相关属性或方法来指定打印机,只能用系统默认打印机来打印报表。这个问题也是论坛上常议的话题,在网上搜索一下,你可以找到解决方法(我没测试过),不过代码量不小,而且大量的API和Printer对象,令初学者望而却步。一直在找一个较为简单的解决方案,于是想到了注册表,查阅了Microsoft相关文章(http://support.microsoft.com/kb/271257/zh-cn),通过实践,终于解决,示例代码如下:

' 通过注册表修改默认打印机,来指定Rpt的打印


' 模块中的代码:

Option   Explicit

 
' 打开一个主键
Public   Declare   Function RegOpenKey Lib "advapi32.dll" Alias "RegOpenKeyA" _
( _
    
ByVal hKey As Long, _
    
ByVal lpSubKey As String, _
    
ByRef phkResult As Long _
As Long
    
'关闭一个主键
Public Declare Function RegCloseKey Lib "advapi32.dll" _
( _
    
ByVal hKey As Long _
As Long
    
'创建或改变一个键值,lpData应由缺省的ByRef型改为ByVal型
Public Declare Function RegSetValueEx Lib "advapi32.dll" Alias "RegSetValueExA" _
( _
    
ByVal hKey As Long, _
    
ByVal lpValueName 
评论
添加红包

请填写红包祝福语或标题

红包个数最小为10个

红包金额最低5元

当前余额3.43前往充值 >
需支付:10.00
成就一亿技术人!
领取后你会自动成为博主和红包主的粉丝 规则
hope_wisdom
发出的红包
实付
使用余额支付
点击重新获取
扫码支付
钱包余额 0

抵扣说明:

1.余额是钱包充值的虚拟货币,按照1:1的比例进行支付金额的抵扣。
2.余额无法直接购买下载,可以购买VIP、付费专栏及课程。

余额充值