Sub TestAutoAdjustColumnWidthBaseOnModel()Set ModelSheet = ThisWorkbook.Worksheets("单据模板")Set PrintSheet = ThisWorkbook.Worksheets("批量打印")AutoAdjustColumnWidthBaseOnModel ModelSheet, PrintSheet
End Sub
Sub AutoAdjustColumnWidthBaseOnModel(ByVal ModelSheet As Worksheet, ByVal PrintSheet As Worksheet, Optional modelCountInOnePage As Variant)Dim ModelRng As Range '模板单元格Dim modelColumnWidth() As Double '模板列宽数据Dim modelColumnCount As Long '模板行数Dim sumModelColumnWidth As Double '模板累计列宽Dim adjustScale As Double '调整比例'Dim modelCountInOnePage As Long '一页打印几个单据模板Dim BreakColumn As Long '垂直分页符位置Dim FirstPageSumColumnWidth As Double '累计首页列宽Dim ColumnsInOnePage  As Long  '每页打印多少行Dim i As Long, m As Long '行号With ModelSheetIf Application.WorksheetFunction.Count(.Cells) > 0 Then'计数防止计算行号发生错误EndRow = .Cells.Find("*", .Cells(1, 1), xlValues, xlWhole, xlByRows, xlPrevious).Row + 1EndCol = .Cells.Find("*", .Cells(1, 1), xlValues, xlWhole, xlByColumns, xlPrevious).Column'获取单据模板单元格区域Set ModelRng = .Range(.Cells(1, 1), .Cells(EndRow, EndCol))Debug.Print ModelRng.Address'获取模板单元格行数和累计列宽modelColumnCount = ModelRng.Columns.CountReDim modelColumnWidth(1 To modelColumnCount)sumModelColumnWidth = 0For i = 1 To modelColumnCountmodelColumnWidth(i) = ModelRng.Columns(i).ColumnWidthsumModelColumnWidth = sumModelColumnWidth + ModelRng.Columns(i).ColumnWidthNext iDebug.Print sumModelColumnWidth'记录列宽End IfEnd With'With PrintSheetDebug.Print "垂直分页符个数："; .VPageBreaks.Count'先判断是否有垂直分页符，如果没有则退出If .VPageBreaks.Count > 0 Then'获取第一页与第二页分页符所在的单元格BreakColumn = .VPageBreaks(1).Location.ColumnDebug.Print "首页分页符所在的行号："; BreakColumn'累计第一页所有行的高度i = 1Do While i < BreakColumnFirstPageSumColumnWidth = FirstPageSumColumnWidth + .Columns(i).ColumnWidthi = i + 1Loop'StopDebug.Print FirstPageSumColumnWidth'获取第一页最后一个成绩单末尾的空白行行号If IsMissing(modelCountInOnePage) ThenColumnsInOnePage = BreakColumnDo While Application.WorksheetFunction.Count(.Columns(ColumnsInOnePage)) > 0ColumnsInOnePage = ColumnsInOnePage - 1LoopDebug.Print "首页最后一个成绩单截止行号1："; ColumnsInOnePageColumnsInOnePage = Application.WorksheetFunction.Max(BreakColumn, modelColumnCount)Debug.Print "首页最后一个成绩单截止行号2："; ColumnsInOnePagemodelCountInOnePage = ColumnsInOnePage / modelColumnCountDebug.Print "每一页放置多少个单据："; modelCountInOnePageEnd If'计算调整比例adjustScale = FirstPageSumColumnWidth / (sumModelColumnWidth * modelCountInOnePage)Debug.Print adjustScale'调整EndCol = .Cells.Find("*", .Cells(1, 1), xlValues, xlWhole, xlByColumns, xlPrevious).Columnm = 0For i = 1 To EndColm = m + 1.Columns(i).ColumnWidth = modelColumnWidth(m) * adjustScaleIf m = modelColumnCount Then m = 0 '逐个单据调整Next iEnd IfEnd WithEnd Sub