在 Excel 中编辑宏,怎样实现打印当前工作表

Question

在工作簿中有31个工作表，每个工作表中有3页打印内容，“31个工作表"代表每个月的31天，"工作表中有3页打印内容"代表上午、下午、晚上,汇总好后打印出来，要求：超过3页打印内容，弹出消息框（请重新编辑），点按钮，实现只打印活动工作表的第1页或第2页、第3页。请帮忙，谢谢

Answer 1

1.利用Worksheet.PrintOut(1, 1, 1, false, , false, false, false, true)即可打印出当前工作表的第一页。
2.Worksheet.PrintOut 方法 打印对象。
语法
表达式.PrintOut(From, To, Copies, Preview, ActivePrinter, PrintToFile, Collate, PrToFileName, IgnorePrintAreas)
4.表达式 一个代表 Worksheet 对象的变量。
5.参数
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，则忽略打印区域并打印整个对象。
返回值。

Answer 2

利用Worksheet.PrintOut(1, 1, 1, false, , false, false, false, true)即可打印出当前工作表的第一页。

Worksheet.PrintOut 方法 打印对象。
语法
表达式.PrintOut(From, To, Copies, Preview, ActivePrinter, PrintToFile, Collate, PrToFileName, IgnorePrintAreas)

表达式 一个代表 Worksheet 对象的变量。

参数
名称 必选/可选 数据类型 描述

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 所描述的“页”指的是要打印的页，并非指定工作表或工作簿中的全部页。

示例

此示例打印当前活动工作表。

ActiveSheet.PrintOut

Answer 3

excel 宏实现打印 代码提供本回答被提问者采纳