如何自动设置分页符，无论表格如何更改，都让除未页处每页内容自动填满A4纸

quqiyuan

510621666 发表于 2024-7-5 12:09
请把代码发给我试一下好吗

我发的文件里有啊。。。

510621666

quqiyuan 发表于 2024-7-5 12:30
我发的文件里有啊。。。

还是不行，能能自动调整合适的分页符

quqiyuan

510621666 发表于 2024-7-5 12:50
还是不行，能能自动调整合适的分页符

我发的附件我觉得OK的，那就不知道你的需求了，你的文件又不发上来。

510621666

quqiyuan 发表于 2024-7-5 12:53
我发的附件我觉得OK的，那就不知道你的需求了，你的文件又不发上来。

我如果横打，范围是A1:W1105呢，等一下我又插入几行，隐藏几列打印，能自动调调整分页符都是整页满的吗？

quqiyuan

510621666 发表于 2024-7-5 13:01
我如果横打，范围是A1:W1105呢，等一下我又插入几行，隐藏几列打印，能自动调调整分页符都是整页满的吗？ ...

你插入行以后，1105行就不对了吧，所以我的代码的r就是获取最后一行有数据，然后printarea设置打印区域，前面已经清除了分页符，重新设置打印区域后，会重新分页的。还有代码里有a列到h列（我原代码）会设置到一页里。

510621666

quqiyuan 发表于 2024-7-5 13:13
你插入行以后，1105行就不对了吧，所以我的代码的r就是获取最后一行有数据，然后printarea设置打印区域， ...

到我的工作簿用不了

quqiyuan

510621666 发表于 2024-7-5 14:08
到我的工作簿用不了

代码都备注了，你看着怎么搞吧。。。

Sub teat()
    With Sheet1
        r = .Cells(Rows.Count, 1).End(3).Row    '此处获取A列最后一行，请注意是A列，如果你认为是其他列为标准，请修改
        .ResetAllPageBreaks '重置全部分页符
        .PageSetup.PrintArea = "a1:w" & r
        .PageSetup.FitToPagesWide = 1   '所有列缩放到一页宽
        .PageSetup.Orientation = xlLandscape   '打印纸方向：横向。xlPortrait代表纵向
    End With
    ActiveWindow.View = xlPageBreakPreview  '视图模式设置为分页预览
End Sub

lss001

510621666 发表于 2024-7-5 14:08
到我的工作簿用不了

'表格包含隐藏单元格区域如何添加水平与垂直分页符？
'************************************
Sub 添加水平与垂直分页符并打印()
    Dim i&, j&, x&, y&, hp%, vp%, r As Range, c As Range
   
    With Sheet1  '指定打印表格
        '设置水平左对齐，垂直上对齐
        .UsedRange.HorizontalAlignment = xlLeft
        .UsedRange.VerticalAlignment = xlTop
   
        x = .Cells(Rows.Count, 1).End(3).Row '获取最大行列
        y = .Cells(1, Columns.Count).End(1).Column
        
        Set Rng = .Range(.Cells(1, 1), .Cells(x, y))
        .ResetAllPageBreaks '重置所有分页符
        
        i = 0 '初始化i
        hp = 26 '指定水平分页符行数：25+1
        For Each r In Rng
            '判断是否隐藏行
            If r.EntireRow.Hidden = False Then
                i = i + 1
                '判断是否等于指定水平分页符：行数
                If i = hp Then
                    '添加水平分页符
                    .HPageBreaks.Add r
                    hp = hp + 25
                End If
            End If
        Next
        
        j = 0 '初始化j
        vp = 11 '指定垂直分页符列数：10+1
        For Each c In Rng
            '判断是否隐藏列
            If c.EntireColumn.Hidden = False Then
                j = j + 1
                '判断是否等于指定垂直分页符：列数
                If j = vp Then
                    '添加垂直分页符
                    .VPageBreaks.Add c
                    vp = vp + 10
                End If
            End If
        Next
       .PrintOut '打印
    End With
End Sub

510621666

quqiyuan 发表于 2024-7-5 15:50
代码都备注了，你看着怎么搞吧。。。

Sub teat()

运行后没有任何反应