应用在我们的程序中的话，使用者只要输入或选择文件，不管什么文件 (当然是指在注册表中曾经注册过的文件类型)，都可以打印！

'以下是完成的模组：

Private Declare Function ShellExecuteAny Lib "shell32.dll" Alias "ShellExecuteA" (ByVal hwnd As Long, ByVal lpOperation As String, ByVal lpFile As String, ByVal lpParameters As Any, ByVal lpDirectory As Any, ByVal nShowCmd As Long) As Long

Const SW_SHOWMINNOACTIVE = 7

Sub PrintAnyFile(FileToPrint As String)
Dim Ret As Long
Ret = ShellExecuteAny(Me.hwnd, "print", FileToPrint, ByVal 0&, ByVal 0&, SW_SHOWMINNOACTIVE)
End Sub

'实际使用案例如下：

Private Sub Command1_Click()
PrintAnyFile Text1.Text
End Sub

其实上面这种打印文件的方式，它的作用方式，和我们直接将文件文件拖拉到打印机的图示上去打印文件是一样的道理！ (如果您之前尚不知道这个功能的话，您现在可以试试看将一份文件直接拖拉放到打印机的图示上，看看结果如何！)

(责任编辑：admin)

• ·Access 获取office的安装路径【函数】
• ·导入导出Excel(.Xlsx)或(.Xls)数据到SQ
• ·浅析Access与Office其他成员之间交流数
• ·Access2003设置压缩和修复数据库的方法
• ·Access2003设置启动窗体与恢复原始设置
• ·妙用Office合并列数据 快速完成报表
• ·对 Microsoft Office 命令栏进行更多编
• ·SQL Server日期计算
• ·SQL语法参考
• ·XLS与MDB文件格式互换全攻略
• ·在Access中调用Excel无法彻底关闭
• ·Access导出到Excel提速之法
• ·Access朗读任意文本/使Access真人发声
• ·解决ACCESS XP 粘贴数字到EXCEL XP会变
• ·用VBA代码下载网络上的文件
• ·把子窗体的内容复制到EXCEL（子窗体可