VB中给DataReport指定打印机

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

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


' 模块中的代码：

Option   Explicit

  ' 打开一个主键
Public   Declare   Function RegOpenKey() 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()Function RegCloseKey Lib "advapi32.dll" _
( _
    ByVal hKey As Long _
) As Long
    
'创建或改变一个键值,lpData应由缺省的ByRef型改为ByVal型
Public Declare Function RegSetValueEx()Function RegSetValueEx Lib "advapi32.dll" Alias "RegSetValueExA" _
( _
    ByVal hKey