安装Adobe reader,在vb->project->References下加载Adobe安装目录下ActiveX组件C:\Program Files\Adobe\Acrobat 7.0\ActiveX\acropdf.dll。Private Sub Command1_Click()
‘选择打印机
Dim PrinterName As String
PrinterName = SelectPrinter
If PrinterName = "" Then
Exit Sub
End If
Dim pdf1 As New AcroPDF
pdf1.src = "d:\2.pdf"
'pdf1.LoadFile "d:\2.pdf"
pdf1.printAll
'pdf1.printWithDialog
End Sub上述代码中pdf1的print方法都没有任何响应。why?谁知道pdf文件不用打开,直接发送到打印机打印改如何处理吗?多谢
‘选择打印机
Dim PrinterName As String
PrinterName = SelectPrinter
If PrinterName = "" Then
Exit Sub
End If
Dim pdf1 As New AcroPDF
pdf1.src = "d:\2.pdf"
'pdf1.LoadFile "d:\2.pdf"
pdf1.printAll
'pdf1.printWithDialog
End Sub上述代码中pdf1的print方法都没有任何响应。why?谁知道pdf文件不用打开,直接发送到打印机打印改如何处理吗?多谢
解决方案 »
- 有没有在VB中使用第天方控件SPREAD的的高手,急!!!
- 有没有对.inf文件操作的函数??
- 请问如何在VB中访问EXCEL中的checkBox控件啊?请大家帮帮忙,现谢了。
- 怎样在程序中弹出ADODC控件的属性页对话框?急~~~~~~~~~
- IP输入框,这样的控件该怎么做呢?
- 关于数字金字塔的算法问题,高手请进!!!!!!
- 调查:关于VB 6.0中文专业版
- 在线求教:将SQL数据库转为ACCESS数据库出现的问题
- 一个关于VB中通讯的问题
- VB.NET EXCEL数据导入ACCESS 日期问题
- 希望提供一个思路,如何编程实现:获得从闪存盘读取数据的速度。
- 计算两日期之间的工作日?(急,急,急)
selectprinter 是选择打印机得一个函数而已,返回所选择的打印机的名称,可以不用理会。调试运行到print代码出,没有任何问题,直接执行过去,但是没有任何效果。注意:acropdf.dll如果通过vb->project->Components加载,会出现一个可视化控件acroPDF,如果添加该控件到form上,程序自动创建其对象(而不是New一个),则printWithDialog方法可行,关键问题是我不能采用控件得方式,因为我不需要有form