Excel表格一张纸打印多页

Xia0lin

有的大型打印机能够在打印机设置里面找到相关选项
Hp家用机就没有这个功能了
以下代码使用有局限性
我是用来把广联达GBQ4.0生成的主材分析表合并成一张纸3页
代码仅供参考，结合自己实际情况再修改



Sub 干活()
'
' 干活 Macro
'
' 快捷键: Ctrl+z
'Dim i
Dim Count
Dim PageNumber
Count = 0
PageNumber = 1
For i = 1 To 8122 Step 1
    If Range("A" & i).Borders(xlEdgeLeft).Weight = xlMedium Then
        If Range("A" & i).Borders(xlEdgeBottom).Weight = xlMedium Then
            Count = Count + 1
        End If
    End If
    If Count = 3 Then
        Set Worksheets(1).HPageBreaks(PageNumber).Location = Worksheets(1).Range("A" & i + 1)
        Count = 0
        PageNumber = PageNumber + 1
    End If
Next
End Sub

判断原理：每一页都是黑色边框包起来
因为每页的行数是不一定的，我就判断左下角的单元格边框是左黑下黑

LangQueS

建议上传压缩附件