Excel使用VBA动态设置打印区域

说明:本设置是实现Excel在一打开的瞬间便实现自动设置打印区域功能。

 

 

假设本Excel的格式是:

1.标题是从第一行至第七行;列是从第A列至L列

2.从第八行开始,便是动态变化的行数据

 

那么,要设置本动态Excel的打印区域:

1.打开Excel,鼠标右键Sheet名,点选“查看代码”。

2.双击“ThisWorkBook”字样,光标进入了代码编辑区。

3.可直接贴入如下代码:

Private Sub Workbook_Open()
   Dim iCount As Integer
   Dim MyPrintArea As String
  
  
   iCount = ActiveWindow.ActiveSheet.UsedRange.Rows.Count
   MyPrintArea = "$A$1:$L$" & iCount
   Range("$A$1:$L$" & iCount).Select
   Selection.Columns.AutoFit
   Range("A8").Select
   ActiveSheet.PageSetup.PrintArea = MyPrintArea
End Sub

 

4.保存xls,关闭VBA即可。

 

若还有其它好办法,请各位赐教。

 

 

  • 1
    点赞
  • 28
    收藏
    觉得还不错? 一键收藏
  • 1
    评论
评论 1
添加红包

请填写红包祝福语或标题

红包个数最小为10个

红包金额最低5元

当前余额3.43前往充值 >
需支付:10.00
成就一亿技术人!
领取后你会自动成为博主和红包主的粉丝 规则
hope_wisdom
发出的红包
实付
使用余额支付
点击重新获取
扫码支付
钱包余额 0

抵扣说明:

1.余额是钱包充值的虚拟货币,按照1:1的比例进行支付金额的抵扣。
2.余额无法直接购买下载,可以购买VIP、付费专栏及课程。

余额充值