打印工作表的设置

kouxuyao

我的工作薄有六张工作表，分别是；A，B，C，D，E，F，六张工作表，在A表W3单元格选择：全身麻醉时六张工作表全部打印，W3单元格选择其他麻醉方式时就打印A，B，C，D，E 五张工作表这个代码怎么写？盼老师们指导下

xd3210

kouxuyao

感谢！
感谢老师的指导

kouxuyao

xd3210 发表于 2023-5-16 21:56

这段代码也是请教老师您给出的，我的想法是让"麻醉记录单","手术室术前 术后护理访视记录","麻醉前访视","麻醉后随访","新麻醉知情同意书","麻醉镇静","药品清单"这 七 张工作表在麻醉记录单的   Y3  单元格显示  全身麻醉  的时候全打这 七 张表，在  Y3 单元格显示其他麻醉方式的时候就打印"麻醉记录单","手术室术前 术后护理访视记录","麻醉前访视","麻醉后随访","新麻醉知情同意书"这 五 张表格，但是麻醉方式是公式生成引用过来的，在  Y3  单元格显示的是   全身麻醉   但是实际是单元格引用的一个公式，但是每次只打印 五 张表，请教老师有没有办法解决

xd3210

kouxuyao 发表于 2024-5-15 00:17
这段代码也是请教老师您给出的，我的想法是让"麻醉记录单","手术室术前 术后护理访视记录","麻醉前访视", ...

一年前的贴子又翻出来了,下面代码供参考
function printtest(){
        let arr=["A","B","C","D","E","F","G"];
        let smode=Worksheets("资产").Range("w3").Formula;
        let imode=smode=="全身麻醉"?6:4;
        Application.EnableEvents=false;
        for(let i=0;i<imode;i++){
                Worksheets(arr).PrintOut();
        }
        Application.EnableEvents=true;
        
}