[英]VBA excel setting print area
我正在使用命名范围设置打印区域,因为它是一个表格并且会不断增长。 当我执行时,标题将不会打印。 如何调整它以打印命名范围(表3)和标题?
我试过了; ActiveSheet.PageSetup.PrintArea = Range("Table3{Headers}").Address
但仅打印标题。
Application.Dialogs(xlDialogPrinterSetup).Show
Application.PrintCommunication = False
With ActiveSheet.PageSetup
.PrintTitleRows = ""
.PrintTitleColumns = ""
End With
Application.PrintCommunication = True
ActiveSheet.PageSetup.PrintArea = Range("Table3").Address
Application.PrintCommunication = False
With ActiveSheet.PageSetup
我要打印标题和Table3。
表是ListObject
。 使用ListObject.Range
属性可返回表所引用的Range
(包括标头)。
Dim myTbl as ListObject
Set myTbl = ThisWorkbook.Sheets("mysheetname").ListObjects("Table3")
...
ThisWorkbook.Sheets("mysheetname").PageSetup.PrintArea = myTbl.Range.Address
根据需要更改工作表名称。
声明:本站的技术帖子网页,遵循CC BY-SA 4.0协议,如果您需要转载,请注明本站网址或者原文地址。任何问题请咨询:yoyou2525@163.com.