如何用vba设置工作表的打印顶端标题行和重复打印列？

要用vba设置工作表的打印顶端标题行和重复打印列，可以使用PageSetup对象的PrintTitleColumns属性和PrintTitleRows属性。

以下VBA代码举例设置工作表的打印顶端标题行和重复打印列：

Sub QQ1722187970()
    Excel.Application.ScreenUpdating = False
    Excel.Application.Calculation = xlCalculationManual
    Dim oWK As Worksheet
    For Each oWK In Excel.ThisWorkbook.Worksheets
        With oWK.PageSetup
            '设置为打印重复行
            .PrintTitleRows = "$1:$1"
            '设置打印重复列
            .PrintTitleColumns = "$A:$D"
            '设置为空字符取消打印标题行设置
            .PrintTitleRows = ""
            '设置为False同样取消之前的设置
            .PrintTitleColumns = False
        End With
    Next
    Excel.Application.ScreenUpdating = True
    Excel.Application.Calculation = xlCalculationAutomatic
End Sub