一段批量打印代码，有注解，可供新手学习

9lee

1. 
   
2. Sub printer()
   
3. With Application.FileSearch
   
4.     .LookIn = "X:\filename" '设置文件的搜索路径     这句可以按自己的需要修改
   
5.     .FileType = msoFileTypeExcelWorkbooks '设置要搜索的文件类型为工作簿   这句可以按自己的需要修改
   
6.     If .Execute > 0 Then '如果找到一个或多个文件
   
7.        For i = 1 To .FoundFiles.Count '设置打开工作簙的循环
   
8.          Workbooks.Open Filename:=.FoundFiles(i) '打开找到的每一个工作簙
   
9.          For j = 1 To Worksheets.Count '设置逐项选择工作表的循环
   
10.           Worksheets(j).Select '选择工作表
    
11.           With ActiveSheet.PageSetup '设置当前工作表的页面设置
    
12.            .PaperSize = xlPaperA4 '设置纸张大小为A4纸   这句可以按自己的需要修改
    
13.            .Zoom = False
    
14.            .FitToPagesWide = 1 '设置为1页宽   这句可以按自己的需要修改
    
15.            .FitToPagesTall = 1 '设置为1页高   这句可以按自己的需要修改
    
16.           End With
    
17.         Next j '选择下一张工作表
    
18.           ActiveWorkbook.PrintOut '打印整个工作簙
    
19.           ActiveWorkbook.Save '保存当前工作簙
    
20.           ActiveWorkbook.Close '关闭当前工作簙
    
21.        Next i '打开下一个工作簙
    
22.     Else
    
23.     MsgBox "没有找到任何工作簿文件" '提示没有找到任何工作簿文件
    
24.     End If
    
25. End With
    
26. End Sub

复制代码

老糊涂

{:35:}{:35:}

只身一人

密密麻麻的

hxgfkfb

看起来好复杂啊，多学习！！！

放浪形骸

好复杂啊，谢谢楼主的分享啊~~~

双飞叶

好复杂啊，谢谢楼主的分享啊~~~

小迷糊98

怎么联系你？

厦门行

看起来好复杂啊，多学习！！！

沉烟

晕晕的{:021:}

轩辕轼轲

以后用代码的方式发代码吧