求助关于打印的需求，谢谢。

马小呆

数据太多了话，不晓得会不会太卡呢？

清风竹-

方法：设置打印标题行、打印区域。调整行高。

马小呆

清风竹- 发表于 2024-10-10 09:39
方法：设置打印标题行、打印区域。调整行高。

谢谢你，附件中没有代码吗？

清风竹-

马小呆 发表于 2024-10-10 09:41
谢谢你，附件中没有代码吗？

没有代码。根据自己需求，设置打印标题行、打印区域。调整行高。

马小呆

清风竹- 发表于 2024-10-10 09:49
没有代码。根据自己需求，设置打印标题行、打印区域。调整行高。

用代码可以做到吗？

quqiyuan

参与一下，由于格式比较统一，每页间隔相同，还是比较好处理的，仅供参考。。。

quqiyuan

代码如下。。。
缩放比例62%，刚刚好，所于使用楼主缩放比例
Sub test()
    Dim rng_find As Range, rng As Range
    With Me
        .ResetAllPageBreaks
        r = .Cells(.Rows.Count, "d").End(3).Row
        n = 0
        With .PageSetup
            .PrintArea = "d5:x" & r + 2
            .PrintTitleRows = "$5:$10"
            .CenterFooter = "第 &P 页，共 &N 页"
            .RightFooter = "- 1.1【生】计划统计表（A） - &D - &T - "
            .TopMargin = Application.InchesToPoints(0.15748031496063)
            .BottomMargin = Application.InchesToPoints(0.236220472440945)
            .Zoom = 62
            .CenterVertically = True
            .Orientation = xlLandscape
        End With
        Windows(ThisWorkbook.Name).View = xlPageBreakPreview
        x = .HPageBreaks.Count
        For i = 41 To r Step 30
            n = n + 1
            Set .HPageBreaks(n).Location = .Cells(11 + n * 30, 4)
        Next
        .PrintPreview    '打印预览，想直接打印改为   PrintOut
    End With
    Beep
End Sub