根据信息表按模板生成打印表并打印

Again123456

1. function ptf(){
   
2.         Sheets("基础信息").UsedRange.Value2.slice(1).forEach(v=>{
   
3.                 let picPath = ThisWorkbook.Path + "\\照片\",
   
4.                     pdfPath = ThisWorkbook.Path + "\\打印\",
   
5.                     sht = Sheets("打印模板")
   
6.                 sht.Range("b3:b4,d3:d4,e3,b5:e6").Value2 = null;
   
7.                 ["b3","d3","b5","b4","d4","b6"].forEach((c,i) => sht.Range(c).Value2 = i == 1 ? "'" +v[i] : v[i])
   
8.                 try{sht.Range("e3").RangeEx.InsertCellPicture(picPath + v[0] + ".jpg")}
   
9.                 catch{}
   
10.                 sht.ExportAsFixedFormat(xlTypePDF,pdfPath + v[0] + ".pdf" ,xlQualityStandard)
    
11.                 Shell("cmd  /c start " + pdfPath + v[0] + ".pdf",jsHide)
    
12.         })
    
13. }

复制代码

Again123456

Again123456

实例.7z (67.88 KB, 下载次数: 9)

2024-5-11 23:11 上传

点击文件名下载附件

孙森峰

转换成PDF非常好，学习了

孙森峰

11楼的路径少了个转义符“\"，应修改为
                let picPath = ThisWorkbook.Path + "\\照片\\",
                    pdfPath = ThisWorkbook.Path + "\\打印\\",

yangqianming

孙森峰 发表于 2024-5-11 20:31
根据ctp_119老师的方法，将图片嵌入到单元格中
        var arr=Sheets("基础信息").Range("a1:f"+Cells(Rows.Cou ...

当张6没有照片就傻了，能否让它跳过执行下一步呢？

yangqianming

Again123456 发表于 2024-5-11 23:11

不知为什么我写的最后一个文件还是张五的照片，感觉是没有张6，张5没清除，加了清除内容也不对。

实例.rar (77.28 KB, 下载次数: 2)

2024-5-12 17:34 上传

点击文件名下载附件

孙森峰

没有照片的另存为表格文件，在表格中替换照片
        let arr=Sheets("基础信息").Range("a1").CurrentRegion.Value2.slice(1)
        let path=ThisWorkbook.Path;
        for(let ar of arr){
                with(Sheets("打印模板")){
                        Cells(3,2).Value2=ar[0]
                        Cells(4,2).Value2=ar[3]
                        Cells(4,4).Value2=ar[4]
                        Cells(5,1).Value2=ar[2]
                        Cells(6,2).Value2=ar[5]                        
                        Cells(3,4).Value2="'"+ar[1]
                        Cells(3,5).ClearContents;
                        try{
                                Cells(3,5).RangeEx.InsertCellPicture(path+"\\照片\\"+ar[0]+".jpg")
                                UsedRange.Select();
                                Selection.ExportAsFixedFormat(xlTypePDF,path +"\\保存\\"+ ar[0] + ".pdf" ,xlQualityStandard)                                
                        }
                        catch{
                                Debug.Print(ar[0]+'无照片')        
                                Application.DisplayAlerts = false
                                ActiveWorkbook.SaveAs(path+"\\保存\\"+ar[0]+".et")
                                Application.DisplayAlerts = true                        
                        }
                }
//                ActiveWorkbook.Close()
        }

孙森峰

怎么删除照片，问问ctp_119老师

yangqianming

孙森峰 发表于 2024-5-12 20:46
怎么删除照片，问问ctp_119老师

Again123456老师写的代码里面有这句，刚才找到了。谢谢！老师们的帮助！