怎么批量打印多个工作簿中指定打印的1调查表

sy805981527

怎么批量打印多个工作簿中指定打印的1调查表，只打第一页调查表，求一个快捷的代码

半百

在要打印的文件所在文件夹内新建一个工作簿，在该工作簿内运行代码。
大概是这个意思吧
Sub 打印()
P = ThisWorkbook.Path & "\"
F = Dir(mypath & "*.xls*")
Do While F <> ""
    If F <> ThisWorkbook.Name Then
        Set wb = Workbooks.Open(P & F)
        wb.Sheets(1).PrintOut
        wb.Close
    End If
    F = Dir()
Loop
End Sub

sy805981527

半百 发表于 2019-9-9 10:48
在要打印的文件所在文件夹内新建一个工作簿，在该工作簿内运行代码。
大概是这个意思吧
Sub 打印()

是的，谢谢大佬

sy805981527

半百 发表于 2019-9-9 10:48
在要打印的文件所在文件夹内新建一个工作簿，在该工作簿内运行代码。
大概是这个意思吧
Sub 打印()

Sub 批量打印()
Dim p, n, st As Worksheet
p = "C:\Users\XXX\Desktop\碧海\"
n = Dir(p & "*.xls")
Do While n <> ""
Set wk = Workbooks.Open(p & n)
For Each st In wk.Sheets
If st.Name = "1调查表" Then st.PrintOut
Next st
Close
n = Dir
Loop
End Sub
    我用的这个可以打印了，不过打印好了打开的工作簿不能自动关闭，打开的工作簿多了就会卡死，请问下有什么好的解决办法吗？

liulang0808

Sub 批量打印()
Dim p, n, st As Worksheet
p = "C:\Users\XXX\Desktop\碧海\"
n = Dir(p & "*.xls")
Do While n <> ""
Set wk = Workbooks.Open(p & n)
For Each st In wk.Sheets
If st.Name = "1调查表" Then st.PrintOut:exit for
Next st
wk.Close false
n = Dir
Loop
End Sub

sy805981527

liulang0808 发表于 2019-9-10 13:22
Sub 批量打印()
Dim p, n, st As Worksheet
p = "C:%users\XXX\Desktop\碧海\"

谢谢，可以用了