冻结行作为打印标题

njwtg

我想实现一个功能，用户选中了某个区域
该区域如果有冻结，那就将冻结的行作为打印标题


谢谢老师！

风雨声点滴

Sub PrintSelectedAreaWithFrozenRowAsTitle()
    Dim selectedRange As Range, Rng As Range
    Dim frozenRowRange As Range, x As Range
    Dim s As String
    ' 获取冻结的行数和列数
    frozenRows = ActiveWindow.SplitRow
    frozenColumns = ActiveWindow.SplitColumn
    s = ActiveSheet.PageSetup.PrintArea '获取打印区域
    If frozenRows > 0 Or frozenColumns > 0 Then
    ' 设置冻结区域的范围
        Set Rng = Range(Cells(1, 1), Cells(frozenRows, frozenColumns))
    End If
        ' 检查是否有选中区域
        If Selection.Cells.Count > 1 Then
            ActiveSheet.PageSetup.PrintArea = Selection.Address '设置选中为打印区域
            Set selectedRange = Selection
            ' 检查选中区域是否包含冻结行
            If Not Intersect(selectedRange, Rng) Is Nothing Then
                Set x = Intersect(selectedRange, Rng)
                'MsgBox x.Address
                ActiveSheet.PageSetup.PrintTitleRows = x.Address    '设置选中区域与冻结交集区域为打印标题
                ActiveSheet.PrintOut    '执行默认设置打印
            End If
        End If
    ActiveSheet.PageSetup.PrintArea = s '恢复成之前的打印区域
End Sub

风雨声点滴

选中，打印都写进去了

njwtg

我想通过程序来自动设置打印标题，因为可以与其他程序一并设置，谢谢

风雨声点滴

njwtg 发表于 2024-3-16 19:28
我想通过程序来自动设置打印标题，因为可以与其他程序一并设置，谢谢

还在审核  已经发出了

风雨声点滴

审核要点时间，直接对着图片抄一样的。

njwtg

谢谢风雨声点滴老师