大神，谁帮我写下批量打印代码

eva2021

根据这个表单顺序

打印的内容

需求就是，根据图一的内容（设置打印按钮），自动从文件夹选取文件打印，每个文件只有一个工作表

eva2021

就是需要按照我的指定文件名称打印（这个后期可能去调整）），可以是个列表

eva2021

遍历文件，打开，再打印。
好像这个思路可以，但是我不会写，大神帮帮忙

eva2021

路径是这样的

lisongmei

1. Sub print_print()
   
2. Application.ScreenUpdating = False '禁用屏幕刷新
   
3. Dim wk As Workbook
   
4. Dim i As Integer
   
5. For i = 2 To Range("b2").End(xlDown).Row '循环单元格区域
   
6. Set wk = Workbooks.Open([color=Red]ThisWorkbook.Path[/color] & Application.PathSeparator & Range("b" & i).Value & ".xlsx") '打开对应表格,地址（红色部分，最后处别带\号）请修改为你存放表格的地址
   
7.     wk.PrintOut Copies:=1, Collate:=True, IgnorePrintAreas:=False '打印表格
   
8.     wk.Close '关闭表格
   
9. Next
   
10. Application.ScreenUpdating = True
    
11. End Sub

复制代码

eva2021

lisongmei 发表于 2021-9-12 16:14

路径写哪里？麻烦帮我孔号标注下，我直接替换地址

lisongmei

Sub print_print()
Application.ScreenUpdating = False '禁用屏幕刷新
Dim wk As Workbook
Dim i As Integer
For i = 2 To Range("b2").End(xlDown).Row '循环单元格区域
Set wk = Workbooks.Open(ThisWorkbook.Path & Application.PathSeparator & Range("b" & i).Value & ".xlsx") '打开对应表格
    wk.PrintOut Copies:=1, Collate:=True, IgnorePrintAreas:=False '打印表格
    wk.Close '关闭表格
Next
Application.ScreenUpdating = True
End Sub

aidunsoft

你可以用插件把工作薄里指定的工作表合并到一个工作薄里，再多选工作表打印就是

q2793

Sub print_print()
Application.ScreenUpdating = False '禁用屏幕刷新
Dim wk As Workbook
Dim i As Integer
For i = 2 To Range("b2").End(xlDown).Row '循环单元格区域
Set wk = Workbooks.Open(ThisWorkbook.Path & Application.PathSeparator & Range("b" & i).Value & ".xlsx") '打开对应表格,地址（红色部分，最后处别带\号）请修改为你存放表格的地址
    wk.PrintOut Copies:=1, Collate:=True, IgnorePrintAreas:=False '打印表格
    wk.Close '关闭表格
Next
Application.ScreenUpdating = True
End Sub

q2793

Sub print_print()
Application.ScreenUpdating = False '禁用屏幕刷新
Dim wk As Workbook
Dim i As Integer
For i = 2 To Range("b2").End(xlDown).Row '循环单元格区域
Set wk = Workbooks.Open(ThisWorkbook.Path & Application.PathSeparator & Range("b" & i).Value & ".xlsx") '打开对应表格,地址（红色部分，最后处别带\号）请修改为你存放表格的地址
    wk.PrintOut Copies:=1, Collate:=True, IgnorePrintAreas:=False '打印表格
    wk.Close '关闭表格
Next
Application.ScreenUpdating = True
End Sub