沙发我来坐，按照图片方法就可以实现由Excel推送打印了，具体还要在改改，应用句柄后要释放

walabva 发表于 2017-11-10 10:04
沙发我来坐，按照图片方法就可以实现由Excel推送打印了，具体还要在改改，应用句柄后要释放

感谢，我试试看

PrintOut 方法
请参阅 应用于 示例 特性
打印指定对象。

expression.PrintOut(From, To, Copies, Preview, ActivePrinter, PrintToFile, Collate, PrToFileName)

expression   必需。该表达式返回“应用于”列表中的一个对象。

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，则本参数指定要打印到的文件名。

说明
From 参数和 To 参数所描述的“页”指的是要打印的页，并非指定工作表或工作簿中的全部页。

楼主，我按照这个却是能打印，但是打出来的只有数据，没有EXCEL表格。请问您遇见这个问题了吗？

打开自动化报错了：无法创建所指定对象。