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

djp1018

闻启学 发表于 2024-4-28 21:35
原来的模式所指 的是 本来文件是xlsx 文件 就保存xlsx

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

老师看看图更清楚

djp1018

djp1018 发表于 2024-4-28 21:52
老师看看图更清楚

生成的表格行高、列宽、单元格格式（如文本变常规）等都和原模板不一样

闻启学

djp1018 发表于 2024-4-28 21:55
生成的表格行高、列宽、单元格格式（如文本变常规）等都和原模板不一样

明白了 生成结果要与模版一样一样啊  包含 字体大小  格式之类的

闻启学

djp1018 发表于 2024-4-28 21:55
生成的表格行高、列宽、单元格格式（如文本变常规）等都和原模板不一样

上传附件看看

wcj6376tcp

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

你模版里面使用了Wingdings 2字体造成的。可以改模板为=IF(ISBLANK(INDIRECT("预警数据!F"&($M$7+1))),"",IF(INDIRECT("预警数据!F"&($M$7+1))="是","√","×"))，就不会出现p o了

djp1018

wcj6376tcp 发表于 2024-4-29 07:47
你模版里面使用了Wingdings 2字体造成的。可以改模板为=IF(ISBLANK(INDIRECT("预警数据!F"&($M$7+1))),"" ...

感谢老师，P.O问题解决了，就差页面格式还是不能保留原页面格式，如行高、列宽等

djp1018

闻启学 发表于 2024-4-28 22:11
上传附件看看

附件及效果图都上传了，麻烦老师帮忙看看，非常感谢！

维叶

djp1018 发表于 2024-4-29 09:06
附件及效果图都上传了，麻烦老师帮忙看看，非常感谢！

修改了下代码，运行前需要你将这个文件前面加模版两字后放到新建文件夹下面，请测试

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

复制代码

维叶

维叶 发表于 2024-4-29 11:16
修改了下代码，运行前需要你将这个文件前面加模版两字后放到新建文件夹下面，请测试

请问版主，为什么我从EXCEL复制代码到贴子后"\"当中的\就没有了

.SaveAs strpath & "\" & [c4] & [a4] & ".xlsx"

djp1018

维叶 发表于 2024-4-29 11:16
修改了下代码，运行前需要你将这个文件前面加模版两字后放到新建文件夹下面，请测试

老师：您好！按您说的还是不能达到预期效果