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就会自动帮你实现内容的套打。