本文作者:office教程网

excel利用VBA设置或取消打印区域

office教程网 2024-10-03 03:05:10
后台-系统设置-扩展变量-手机广告位-内容正文顶部
摘要: 如果需要用VBA代码在Excel工作表中设置打印区域,可以用下面的方法。
一、设置打印区域
方法一:
用PageSetup.PrintArea属性。代码如下:
Sub SetPrintArea() Sheet1.PageSetup.Pr...

如果需要用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的值来设置不同的打印区域。

利用Excel做个秒表计时器实例教程

有时候我们想知道在Excel中做一件事情需要多长时间,可以用VBA在Excel中做一个秒表计时器,在做之前启动秒表,做完后停止秒表看用了多长时间,如图。这个秒表在单元格中显示时间,可以实

方法二:

用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

如何利用VBA隐藏Excel2003菜单栏和工具栏

在Excel2003中,有时需要限制用户的操作,例如当用户打开某个指定的工作簿时,Excel2003菜单栏和工具栏被隐藏起来。而当关闭该工作簿重新打开其他工作簿后,菜单栏和工具栏又恢复正常。用

后台-系统设置-扩展变量-手机广告位-内容正文底部
未经允许不得转载:

作者:office教程网,原文地址:excel利用VBA设置或取消打印区域发布于2024-10-03 03:05:10
转载或复制请以超链接形式并注明出处 演示站

分享到:

觉得文章有用就打赏一下文章作者

支付宝扫一扫打赏

微信扫一扫打赏

留言与评论(共有 0 条评论)
   
验证码: