VBA里面，打印指定路径下的EXCEL文件，代码怎么写，不需要设定打印格式，就想直接打印

Question

VBA里面，打印指定路径下的EXCEL文件，代码怎么写，不需要设定打印格式，就想直接打印，谢谢大神们。

Answer 1

你一定要写VBA程序吗？
我建议安装Adobe Acrobat XI Pro软件，在菜单-创建-将多个文件创建PDF，选择你指定路径下的EXCEL文件文件，排序，合并文件，一次将内容全部打印即可 。追问

这是客户的要求，我没法要求客户去安装什么

追答

按Alt+F11，打开VBA编辑器，插入一个模块，把下面的代码贴进去，按F5执行

Sub prt()
Dim ws As Workbook, path$, d$
Application.ScreenUpdating = False
'path = ThisWorkbook.path & "\" '当前路径
path = "e:\file"    '指定路径
d = Dir(path & "*.xlsx")    '指定文件类型
Do While d <> "'"
    If d <> ThisWorkbook.Name Then
        Set ws = Workbooks.Open(path & d)    '打开文件
'      ws.Worksheets("sheet2").Select    '选择工作表
      ActiveSheet.PrintOut    '打印
        ws.Close False    '关闭文件
    End If
    d = Dir
Loop    '循环
Application.ScreenUpdating = True
End Sub

已测试通过。

Answer 2

Sub PrintExcel(FilePath As String)
    Dim xlsApp, bk, sht
    Set xlsApp = CreateObject("Excel.Application")
    Set bk = xlsApp.Workbooks.Open(FilePath, , True)
    For Each sht In bk.Worksheets
        sht.PrintOut
    Next
    Set sht = Nothing
    Set bk = Nothing
    xlsApp.Quit
    Set xlsApp = Nothing
End Sub


'调用方法 
PrintExcel "d:\abc\myxls.xlsx"

本回答被网友采纳