Sub 打印文件夹内的全部文件()
Dim ljm As String
Dim wjm As String
Dim gzb As Worksheet
ljm = ThisWorkbook.Path & "\打印\"
wjm = Dir(ljm & "*.xls*")
Do While wjm <> ""
Workbooks.Open ljm & wjm
For Each gzb In Worksheets
If gzb.Visible = True Then
gzb.PrintOut
End If
Next
ActiveWorkbook.colse False
wjm = Dir()
Loop
End Sub
VBA打印文件夹内的全部文件
最新推荐文章于 2024-09-15 09:47:04 发布