求助补充代码（在批量打印的时候如何添加几句代码，达到打印的同时将“A1:J42”区....

djp1018

Sub 查询批量打印()
For i = Range("M8") To Range("O8")
Range("M7") = i
ActiveSheet.PrintOut
Next
End Sub

zjdh

莫名其妙！！

djp1018

目的：在批量打印的时候，如何添加几句代码？达到打印的同时将“A1:J42”区域的内容保存到本文件所在目录的新建文件夹里面，文件名为单元格C4&A4,请知晓的老师帮帮忙，感谢！回复#

djp1018

zjdh 发表于 2024-4-28 14:49
莫名其妙！！

能帮忙就帮忙，不能帮请勿言

zjdh

如此求助！不想帮你！！

维叶

参与一下，请测试

1. Sub 查询批量打印()
   
2. strpath = ThisWorkbook.Path & "\新建文件夹"
   
3. If Dir(strpath, vbDirectory) = "" Then MkDir strpath
   
4. For i = Range("M8") To Range("O8")
   
5.     Range("M7") = i
   
6.     ARR = ThisWorkbook.Sheets("通知书模板").Range("A1:J42")
   
7.     Workbooks.Add
   
8.     With ActiveWorkbook
   
9.         .ActiveSheet.Range("A1:J42") = ARR
   
10.         If Dir(strpath & "" & [c4] & [a4] & ".xlsx", vbNormal) = "" Then
    
11.             .SaveAs strpath & "" & [c4] & [a4] & ".xlsx"
    
12.             .Close
    
13.         End If
    
14.         ActiveSheet.PrintOut
    
15.     End With
    
16.     Next
    
17. End Sub
    

复制代码

djp1018

维叶 发表于 2024-4-28 17:48
参与一下，请测试

感谢老师的代码，可以生成新工作表了，“新文件夹”后补个“\”可以将生成的工作簿保存下来，但是新的工作表格式变了，能否麻烦老师再看看保留原格式不变呢？非常感谢！

wcj6376tcp

djp1018 发表于 2024-4-28 21:12
感谢老师的代码，可以生成新工作表了，“新文件夹”后补个“\”可以将生成的工作簿保存下来，但是新的工 ...

少了一个\
If Dir(strpath & "\" & [c4] & [a4] & ".xlsx", vbNormal) = "" Then
.SaveAs strpath & "\" & [c4] & [a4] & ".xlsx"

djp1018

wcj6376tcp 发表于 2024-4-28 21:22
少了一个\
If Dir(strpath & "\" & [c4] & [a4] & ".xlsx", vbNormal) = "" Then
.SaveAs strpath & "\ ...

老师：现在可以保存了，就是工作表的格式不能保留原来的模式，能否帮忙看看，感谢感谢

闻启学

djp1018 发表于 2024-4-28 21:32
老师：现在可以保存了，就是工作表的格式不能保留原来的模式，能否帮忙看看，感谢感谢

原来的模式所指 的是 本来文件是xlsx 文件 就保存xlsx

本来文件类型是什么 就保存什么类型