楼主 houtian23 |
应该有不少人碰过,要对数据有效性的每一个条件打印,但这个得一个个选择,有效性条件多的时候容易遗漏,而且费时又费力,那有没有简单点的办法呢? 方法:添加VBA代码
ActiveSheet.PrintOut Copies:=1, Collate:=True, IgnorePrintAreas:=False,这句代码可参考PrintOut帮助改成你需要的打印参数,录制一个宏,复制替换掉这句代码即可搞定 附PrintOut方法帮助 Sheets.PrintOut 方法 打印对象。 语法 表达式.PrintOut(From, To, Copies, Preview, ActivePrinter, PrintToFile, Collate, PrToFileName, IgnorePrintAreas) 表达式 一个代表 Sheets 对象的变量。 参数 名称 必选/可选 数据类型 说明 From 可选 Variant 打印的开始页号。如果省略此参数,则从起始位置开始打印。 To 可选 Variant 打印的终止页号。如果省略此参数,则打印至最后一页。 Copies 可选 Variant 打印份数。如果省略此参数,则只打印一份。 Preview 可选 Variant 如果为 True,Microsoft Excel 将在打印对象之前调用打印预览。如果为 False(或省略该参数),则立即打印对象。 ActivePrinter 可选 Variant 设置活动打印机的名称。 PrintToFile 可选 Variant 如果为 True,则打印到文件。如果没有指定 PrToFileName,Microsoft Excel 将提示用户输入要使用的输出文件的文件名。 Collate 可选 Variant 如果为 True,则逐份打印多个副本。 PrToFileName 可选 Variant 如果 PrintToFile 设为 True,则该参数指定要打印到的文件名。 IgnorePrintAreas 可选 Variant 如果为 True,则忽略打印区域并打印整个对象。 返回值 Variant 说明 From 和 To 所描述的“页”指的是要打印的页,并非指定工作表或工作簿中的全部页。 数据有效性批量打印.rar |
2楼 李欣Nina |