| 网站首页 | 业界新闻 | 群组 | 交易 | 人才 | 下载频道 | 博客 | 代码贴 | 在线编程 | 编程论坛
共有 121 人关注过本帖
标题:VB如果批量打印pdf文件。
只看楼主 加入收藏
xingming022
Rank: 1
等 级:新手上路
帖 子:86
专家分:9
注 册:2015-1-26
结帖率:52.38%
  已结贴   问题点数:20  回复次数:3   
VB如果批量打印pdf文件。
pdf文件放到指定的文件夹里面,如何进行批量打印?
2019-05-14 09:12
wufuzhang
Rank: 4
来 自:广州
等 级:业余侠客
威 望:1
帖 子:56
专家分:272
注 册:2017-8-9
  得分:7 
回复 楼主 xingming022
先将pdf文件有规律的命名,如XXX1,XXX2,XXX3。。。
然后用ShellExecute 函数执行打印命令,一个一个文件进行打印。

不经历千百遍的调试,怎能体会成功时那一刹那的喜悦。
2019-05-15 09:37
xingming022
Rank: 1
等 级:新手上路
帖 子:86
专家分:9
注 册:2015-1-26
  得分:0 
回复 2楼 wufuzhang
找到一个下面的代码,可以连续打印其它格式文件,但excel文件不能连续批量打印。麻烦给指导下。例如有很多excel文件,仅仅只能打印出一个文件。

Private Sub Command3_Click()
    Dim RetVal As Long
    Dim ShExInfo As SHELLEXECUTEINFO
   
    Dim I As Integer
    Dim Mypathname As String
    For I = 0 To List1.ListCount - 1
            Mypathname = List1.List(I)

            With ShExInfo
                .cbSize = Len(ShExInfo)
                .fMask = &H40
                .hwnd = 0
                .lpVerb = "print"
                .lpFile = Mypathname
                .lpParameters = ""
                .lpDirectory = vbNullChar
                .nShow = 0
            End With
            
            RetVal = ShellExecuteEx(ShExInfo)
            
            If RetVal = 0 Then
                Exit Sub
            End If
    Next
End Sub


Public Type SHELLEXECUTEINFO
     cbSize As Long
     fMask As Long
     hwnd As Long
     lpVerb As String
     lpFile As String
     lpParameters As String
     lpDirectory As String
     nShow As Long
     hInstApp As Long
     lpIDList As Long
     lpClass As String
     hkeyClass As Long
     dwHotKey As Long
     hIcon As Long
     hProcess As Long
 End Type
2019-05-15 13:30
风吹过b
Rank: 20Rank: 20Rank: 20Rank: 20Rank: 20
等 级:版主
威 望:245
帖 子:4387
专家分:26894
注 册:2008-10-15
  得分:7 
你要有一个 支持 命令打印的PDF的软件。
然后 使用 ShellExecute 或 CMD 调用这个程序,以文件名和直接打印的命令 做为参数。


授人于鱼,不如授人于渔
早已停用QQ了
2019-05-15 16:34







关于我们 | 广告合作 | 编程中国 | 清除Cookies | TOP | 手机版

编程中国 版权所有,并保留所有权利。
Powered by Discuz, Processed in 0.136135 second(s), 8 queries.
Copyright©2004-2019, BCCN.NET, All Rights Reserved