您的位置: 首页 > EXCEL技巧 > ExcelVBA >

用VBA设置或取消打印区域

时间:2013-12-10 整理:docExcel.net

如果需要用VBA代码在Excel工作表中设置打印区域,可以用下面的方法。

一、设置打印区域

方法一:

用PageSetup.PrintArea属性。代码如下:

Sub SetPrintArea()
Sheet1.PageSetup.PrintArea = "A1:F15"
End Sub

上述代码将区域A1:F15设置为打印区域。如果要同时设置多个打印区域,可以将上述代码改为:

Sub SetPrintArea()
   Sheet1.PageSetup.PrintArea = "A1:F15,A20:F45"
End Sub

上述代码将区域A1:F15及A20:F45设置为打印区域,可以分两页来打印。

还可以使用变量来设置一个动态打印区域:

Sub SetPrintArea()
   PrintRow = 100
   Sheet1.PageSetup.PrintArea = "A1:G" & PrintRow
End Sub

通过改变变量PrintRow的值来设置不同的打印区域。

方法二:

用Names.Add方法。当在Excel中设置一个区域为打印区域后,Excel自动定义了一个名称“Print_Area",因而可以通过定义名称的方法来设置打印区域,代码如下:

Sub SetPrintArea()
   Sheet1.Names.Add "Print_Area", Sheet1.Range("B2:G12")
End Sub

设置动态打印区域:

Sub SetPrintArea()
   Sheet1.Names.Add "Print_Area", Sheet1.Range("B2").Resize(12, 8)
End Sub

上述代码将B2:I13区域设置为打印区域,通过改变Resize(12, 8)的参数来调整打印区域的大小。

二、取消打印区域

将PageSetup.PrintArea属性设置为空:

Sub ClearPrintArea()
   Sheet1.PageSetup.PrintArea = ""   '空字符串
End Sub

或删除已定义的“Print_Area”名称:

Sub ClearPrintArea()
   On Error Resume Next
   Sheet1.Names("Print_Area").Delete
   On Error GoTo 0
End Sub

如何取消excel中某一区域的锁定 问题:如何取消excel中某一区域的锁定
回答:不知道为什么 excel工作表中,我的工作区域被锁定了,如果插入图片,也只能在这一块显示,其它区域,什么 都做不了,如何才能让它全屏显示 呢??请高手帮忙解答一下哈。。。谢谢谢谢 参考回答: 1.全选表格,右键---设置...
Excel2003入门动画教程31:表格设置打印区域 问题:Excel2003入门动画教程31:表格设置打印区域
回答:...按钮就成了。 注:再次执行“文件→打印区域取消打印区域”命令,即要将设置的打印区域撤销。
07版excel怎么取消分页符 问题:07版excel怎么取消分页符
回答:...选中一行或一列,单击右键,再单击“插入分页符”。 取消分页符 将分页符拖出打印区域。若要取消所有的手动分页符,请用鼠标右键单击工作表的任意单元格,然后单击“重置所有分页符”。
excel如何换行 问题:excel如何换行
回答:...要换行的位置ALT+ENTER(回车)键就可以了参考回答2:1、取消自动换行2、加大列宽3、缩小字体参考回答3:取消自动换行或者把列宽拉大话题:Excel换行的遇问问题详情:    在Excel把第三行的资料与第七行对调,请问...
Excel表格中只打印图表以外区域的技巧 问题:Excel表格中只打印图表以外区域的技巧
回答:...表区格式”对话框中单击“属性”选项卡,然后取消选择复选框“打印对象”,如图2所示。 图2 取消选择复选框“打印对象” 3、单击“确定”按钮。取消对图表的选择(如果不取消选择图表,则不...
我的word和excel不能切换输入法了 问题:我的word和excel不能切换输入法了
回答:...统配置"下,把"关闭高级文字服务"前面的对号取消(看到下面的注释了没有,选中"会关闭语言栏"),单击"确定"按钮,输入法图标就回来了。方法3:点"开始→运行",键入"msconfig",单击
相关推荐: