一次性打印工作簿下所有工作表的方法

1. Private Sub Workbook_Open()
   
2.    ActiveWorkbook.PrintOut Copies:=1, Collate:=True, IgnorePrintAreas:=False
   
3. End Sub
   

复制代码

免费版企业版均适用。

这个免费版怎么用？

yaer 发表于 2017-9-5 16:23
这个免费版怎么用？

免费版也可以这么使用，打印预览的时候会执行workopen事件的代码。

hessen 发表于 2017-9-7 14:12
免费版也可以这么使用，打印预览的时候会执行workopen事件的代码。

那这个代码写在什么地方？

写入Excel中导入快表，打印预览时，就会执行。

这个免费版怎么用？

yaer 发表于 2017-9-5 16:23
这个免费版怎么用？

免费版也可以这么使用，打印预览的时候会执行workopen事件的代码。

hessen 发表于 2017-9-7 14:12
免费版也可以这么使用，打印预览的时候会执行workopen事件的代码。

那这个代码写在什么地方？

写入Excel中导入快表，打印预览时，就会执行。