郑州电脑维修 Win7粉丝 网站地图
您的位置:IT服务网办公软件WPS浏览正文

【VBA For ET 教材连载系列】八十

2011-10-31 10:20:53 浏览次数:0 评论 0

【VBA For ET 教材连载系列】八十这篇文章的内容如下:

Sheets对象应用案例详解 (七)

本节演示与工作表打印相关案例,包括打印工作表已用区域、批量打印工作表和批量设置页脚。

一:打印工作表已用区域

案例要求:

打印活动工作表的已用区域。

知识要点:PrintArea \PrintOut

实现步骤:

1).单击菜单【插入】\【模块】;

2).在模块代码窗口输入以下代码:

________________________________________________

Sub 打印工作表已用区域()

'设置打印区域

ActiveSheet.PageSetup.PrintArea = ActiveSheet.UsedRange.Address

ActiveSheet.PrintOut'打印数据

End Sub

________________________________________________

3)光标置于代码中任意位置,并按F5键执行代码,活动工作表的已用区域将立即开始打印。

语法补充:

1.PageSetup.PrintArea 代表以要打印的区域,String 类型,可读写。即通过Msgbox语句可以获得当前表的打印区域址,而直接对它赋值则可以实现设置新的打印区域。

2.PrintOut代表打印,它有9个可选参数,各参数含义见下表:

名称

说明

From

打印的开始页号。如果省略此参数,则从起始位置开始打印。

To

打印的终止页号。如果省略此参数,则打印至最后一页。

Copies

打印份数。如果省略此参数,则只打印一份。

Preview

如果为 True,Microsoft Excel 将在打印对象之前调用打印预览。如果为 False(或省略该参数),则立即打印对象。

ActivePrinter

设置活动打印机的名称。

PrintToFile

如果为 True,则打印到文件。如果没有指定 PrToFileName,Microsoft Excel 将提示用户输入要使用的输出文件的文件名。

Collate

如果为 True,则逐份打印多个副本。

PrToFileName

如果 PrintToFile 设为 True,则该参数指定要打印到的文件名。

IgnorePrintAreas

如果为 True,则忽略打印区域并打印整个对象。

二:批量打印工作表

案例要求:

当打活动工作簿中所有工作表。

知识要点:PrintOut

实现步骤:

1).单击菜单【插入】\【模块】;

2).在模块代码窗口输入以下代码:

________________________________________________

Sub 打印总表以外的工作表()

Dim sht As Worksheet '声明一个工作表变量

For Each sht In Worksheets '遍所有工作表

If Not IsEmpty(sht.UsedRange) Then '如果不是空表

sht.PrintOut '打印工作表

End If

Next

End Sub

________________________________________________

3)光标置于代码中任意位置,并按F5键执行代码,活动工作簿中所有非空表都会瞬间打印出来

语法补充:

1.UsedRange代表工作表的已用区域,如果已用区域是空白的,那么通过IsEmpty判断时将返回True。

三:批量设置页脚

案例要求:

瞬间设置所有工作表的页脚,包括日期和页安适

知识要点:PageSetup

实现步骤:

1).单击菜单【插入】\【模块】;

2).在模块代码窗口输入以下代码:

________________________________________________

Sub 批量设置页脚()

Dim sht As Object'声明对象变量,只能用Object,否则遇到图表会出错

For Each sht In Sheets'遍历所有表

If sht.Name 总表" Then '如果不是"总表"

With sht.PageSetup'页面设置

.LeftFooter = "&D"'左边显示日期

.RightFooter = "第&P页 总&N页"'右边显示页数

End With

End If

Next

End Sub

________________________________________________

3)光标置于代码中任意位置,并按F5键执行代码,所以工作表都将自动添加页脚。下图是预览状态下的页脚。

\

图80.1 页脚预览

语法补充:

1.PageSetup代表页面设置,它有很多子对象,可以完成“页面设置”对话框中的所有功能设置。

2.LeftFooter和RightFooter分别代表页脚的左端和右键,设置项“"&D"”表示当前日期,如果需要时间则改用“"&T"”;“"第&P页 总&N页" ”中的“P”代表当前页的编号,而参数“N”代表总页数。



本文地址:http://www.itfw5.com/office/WPS/9751.html
  • IT服务网,同时还提供提供郑州数据恢复,郑州硬盘数据恢复,郑州内存卡数据恢复;
    请自觉遵守相关政策法规,严禁发布色情/暴力/反动言论。

    相关广告

    WPS推荐文章