作者:mobiledu2502901287 | 来源:互联网 | 2023-05-17 07:57
某个EXCEL需要套打,而这个EXCEL中的所有数据都是某应用系统自动用某个EXCEL模版导出来,导出的结果EXCEL表格需要实现套打功能,那么如何设置套打?EXCEL套打就是自动根据内容大小
某个EXCEL需要套打,而这个EXCEL中的所有数据都是某应用系统自动用某个EXCEL模版导出来,导出的结果EXCEL表格需要实现套打功能,那么如何设置套打?
EXCEL套打就是自动根据内容大小设置打印区域的问题。
举例:
1.打开EXCEL模版
2.在SHEET名称(最下面的SHEET名没有取名的话默认是sheet1)上鼠标右键,选“查看代码”。
3.进入VBA编程环境中后,在VBAProject中双击ThisWorkBook。
4.在过程中敲入你的设置打印区域的代码保存即可,例如我的代码:
Dim iCount As Integer
Dim MyPrintArea As String
iCount = ActiveWindow.ActiveSheet.UsedRange.Rows.Count //取得EXCEL总行数
MyPrintArea = "$A$8:$G$" & (iCount - 4) //打印区域止倒数第五行止
Range("$A$8:$G$" & (iCount - 4)).Select
Range("A8").Select
Range("A15") = MyPrintArea
ActiveSheet.PageSetup.PrintArea = "$B$3,$B$4," & MyPrintArea //打印区域有三个分别是B3,B4与自动内容
5.保存后,一旦此EXCEL自动导出数据被打开的瞬间,那么DBA就会自动帮你实现内容的套打。