伙食收据打印单

yangqianming

LIUZHU 发表于 2024-6-15 18:08
是生成很多个工作表，不是生成很多个工作簿

在您的提示下解决了，Agen(331682051) 的帮助下解决了！谢谢！

1. function 打印(){
   
2.         let path=ThisWorkbook.Path;
   
3.         let arr=Worksheets("数据源").Range("a1").CurrentRegion.Value().slice(1);
   
4.         arr.map(e=>{               
   
5.                 Worksheets("打印页").Cells(3,2).Value2=e[1];
   
6.                 Worksheets("打印页").Cells(4,2).Value2=e[0]+"2024年春学生伙食预收费";
   
7.                 Worksheets("打印页").Cells(7,11).Value2=Number(e[2]);
   
8.                 Dir(path,jsDirectory)
   
9.                 if(Dir(`${path}/${e[1]}`,jsDirectory)==""){
   
10.                         MkDir(`${path}/${e[1]}`)
    
11.                         ActiveWorkbook.SaveAs(`${path}/${e[1]}/${e[0]}.xls`)
    
12.                 }else{ActiveWorkbook.SaveAs(`${path}/${e[1]}/${e[0]}.xls`)}               
    
13.         })       
    
14. }

复制代码

Again123456

yangqianming 发表于 2024-6-15 19:41
在您的提示下解决了，Agen(331682051) 的帮助下解决了！谢谢！

伙食费收据.7z (10.37 KB, 下载次数: 8)

2024-6-15 20:27 上传

点击文件名下载附件

Again123456

yangqianming

Again123456 发表于 2024-6-15 20:27

这个太厉害了，我还没有看懂，估计好多我也看不懂！感谢！

yangqianming

yangqianming 发表于 2024-6-15 21:01
这个太厉害了，我还没有看懂，估计好多我也看不懂！感谢！

今天试着打印了一下，从模板中打印好好的，但从班级页面打印位置就不对了，想是不是要加分页符，又不知怎么加，单据就是打印区域那么大一点。折腾了几个小时都不行。

yangqianming

yangqianming 发表于 2024-6-15 21:01
这个太厉害了，我还没有看懂，估计好多我也看不懂！感谢！

分页符加上了，明天去测试看看是否可以，麻烦了哈！

Again123456

不知道你这是要打到收据条上啊
应该要设页边距，和插分页符吧

Again123456

伙食费收据.7z (10.56 KB, 下载次数: 8)

2024-6-19 21:30 上传

点击文件名下载附件

Again123456

你这功能，根本都不用新建工作表。在模板里插一个数据验证下拉框，选择一个学校，点打印，循环输出就行了，多简单的事啊 伙食费收据.7z (8.64 KB, 下载次数: 5)

2024-6-19 21:47 上传

点击文件名下载附件

yangqianming

Again123456 发表于 2024-6-19 21:33
你这功能，根本都不用新建工作表。在模板里插一个数据验证下拉框，选择一个学校，点打印，循环输出就行了， ...

这个想法好,感谢!