VBA批量打印excel文件

ceocool

利用filesystemobject批量打印excel文件


Public Sub 地址指定()
n = 0
t = Timer
With Application.FileDialog(msoFileDialogFolderPicker)    '小胡程序
    If .Show Then
       mypath = .SelectedItems(1)
    Else
       Exit Sub
    End If
End With

If mypath <> "" Then mypath = mypath & ""
Call 批量打印(mypath, n)
MsgBox "小主人我已经打印完毕，打印了" & n & "个表，共用了" & Timer - t & "秒"
End Sub

Public Sub 批量打印(mypath, n)
Dim i%, h%
Application.ScreenUpdating = False
Application.DisplayAlerts = False
Set fo = CreateObject("scripting.filesystemobject").getfolder(mypath)
    For Each f In fo.Files
      If Not (f.Name Like "~$*.xls*") Then
        If f.Name Like "*.xls*" Then
           Workbooks.Open (f)
           ActiveSheet.PrintOut
           ActiveWorkbook.Close
           n = n + 1
        End If
      End If
    Next
Application.ScreenUpdating = True
Application.DisplayAlerts = True

End Sub

excel6687

请问，VBA能够按照规定格式像程序那样自动打印报表吗

ceocool

可以的呀，但是你得上附件