| 网站首页 | 业界新闻 | 小组 | 威客 | 人才 | 下载频道 | 博客 | 代码贴 | 在线编程 | 编程论坛
欢迎加入我们,一同切磋技术
用户名:   
 
密 码:  
共有 1157 人关注过本帖
标题:VB如何将多个EXCEL(每个EXCEL文件中含多页)文件批量打印?
只看楼主 加入收藏
xingming022
Rank: 1
等 级:新手上路
帖 子:103
专家分:9
注 册:2015-1-26
结帖率:50%
收藏
 问题点数:0 回复次数:0 
VB如何将多个EXCEL(每个EXCEL文件中含多页)文件批量打印?
Private Sub Command6_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)
            Sleep (1000)
            If RetVal = 0 Then
                Exit Sub
            End If
    Next
End Sub
这个代码只能打印出EXCEL文件中第一页。
搜索更多相关主题的帖子: VB EXCEL 文件 打印 Dim 
2019-05-31 18:24
快速回复:VB如何将多个EXCEL(每个EXCEL文件中含多页)文件批量打印?
数据加载中...
 
   



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

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