摘要：Sub testCopyModelRange() Set ModelSheet = ThisWorkbook.Worksheets("单据模板") Set PrintSheet = ThisWorkbook.Worksheets("批量打印") CopyModelRange ModelSheet, PrintSheet, 2 End Sub Public Sub Copy... 阅读全文

摘要：Sub TestAutoAdjustColumnWidthBaseOnModel() Set ModelSheet = ThisWorkbook.Worksheets("单据模板") Set PrintSheet = ThisWorkbook.Worksheets("批量打印") AutoAdjustColumnWidthBaseOnModel ModelSheet, P... 阅读全文

只有注册用户登录后才能阅读该文。

摘要：'自动设置行高 传入工作表Sht 和 每页打印的行数RowsInOnePage Public Sub AutoSetRowHeight(ByVal Sht As Worksheet, Optional RowsInOnePage As Variant) Dim BreakRow As Range '水平分页符位置 Dim SumHeight As Double '累计首页行高 ... 阅读全文