Question

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

在 Excel 中编辑宏,怎样实现打印当前工作表的第1页，请大侠帮忙。

Answer 1

利用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 2

Workbooks(1).PrintOut(1,1) 类似这样就可以了

Workbook.PrintOut 方法
打印对象。
语法

表达式.PrintOut(From, To, Copies, Preview, ActivePrinter, PrintToFile, Collate, PrToFileName, IgnorePrintAreas)

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

参数

名称 必选/可选 数据类型 说明
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 3

亲，试一下这个：
ActiveSheet.PrintOut From:=1, To:=1