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

yangqianming

根据基础信息表的相关信息，自动填入到打印模板，
填好一个打印一个，照片在照片文件夹，
打印成功的信息表保存在打印文件夹中，用姓名命名。
实例.rar (70.29 KB, 下载次数: 10)

2024-4-27 21:18 上传

点击文件名下载附件

chengyunpan

参与一下！！！！！！！

yangqianming

chengyunpan 发表于 2024-4-28 20:47
参与一下！！！！！！！

这个应该是个vba通用打印模板，还不清楚怎么用，我需要个js的，一则学习一下，二是能解决打印生成新文件。感谢您把这么牛的工具无私奉献！

chengyunpan

yangqianming 发表于 2024-4-29 14:54
这个应该是个vba通用打印模板，还不清楚怎么用，我需要个js的，一则学习一下，二是能解决打印生成新文件 ...

在设置里面，转换一下按键功能，就能生成（拆分）文件

yangqianming

这个问题用js写估计有点儿难度，但我还是希望有大佬能帮忙实现一下为谢！

哒哒哒是的撒多

做了下填入数据并生成文件

孙森峰

根据ctp_119老师的方法，将图片嵌入到单元格中
        var arr=Sheets("基础信息").Range("a1:f"+Cells(Rows.Count,1).End(xlUp).Row).Value2.slice(1);
        var path=ThisWorkbook.Path;
        for(var ar of arr){
                Sheets("打印模板").Cells(3,2).Value2=ar[0];
                Sheets("打印模板").Cells(4,2).Value2=ar[3];
                Sheets("打印模板").Cells(5,2).Value2=ar[2];
                Sheets("打印模板").Cells(6,2).Value2=ar[5];
                Sheets("打印模板").Cells(3,4).NumberFormat="@";
                Sheets("打印模板").Cells(3,4).Value2=ar[1];
                Sheets("打印模板").Cells(4,4).Value2=ar[4];
                Sheets("打印模板").Copy();
//                ActiveSheet.Shapes.AddPicture(path+"\\照片\\"+ar[0]+".jpg", msoFalse, msoTrue, 420, 45, 80, 100);
                Sheets("打印模板").Cells(3,5).RangeEx.InsertCellPicture(path+"\\照片\\"+ar[0]+".jpg");
                ActiveWorkbook.SaveAs(path+"\\打印\\"+ar[0]+".xlsx");
                ActiveWorkbook.Close();
        }

yangqianming

yangqianming 发表于 2024-4-30 15:40
这个问题用js写估计有点儿难度，但我还是希望有大佬能帮忙实现一下为谢！

插入图片存在问题

孙森峰

6楼的代码没有问题，只是用的是绝对路径，7楼修改了一下，可以的

yangqianming

孙森峰 发表于 2024-5-11 20:49
6楼的代码没有问题，只是用的是绝对路径，7楼修改了一下，可以的

可以了感谢两位老师！