公式提示未定义自变量-目标超行换页打

anywhere99

求助大神，帮忙看看这个宏内容，哪里不对了，

目标：在自动打印的同时，超行自动换页打印
内容：

Sub 出库单打印()
    Dim arr, i&, j&, x, d, brr, n, kh, dh
    Set d = CreateObject("scripting.dictionary")
    arr = Sheets(1).[a1].CurrentRegion
    For i = 2 To UBound(arr)
        x = arr(i, 1): d(x) = ""
    Next
    For Each x In d.keys
        ReDim brr(1 To UBound(arr), 1 To 18)
        For i = 2 To UBound(arr)
            If arr(i, 1) = x Then
                kh = arr(i, 4): dh = x  'kh为客户名称，dh为单号
                n = n + 1
                brr(n, 1) = arr(i, 2): brr(n, 2) = arr(i, 3)
                For j = 3 To 4
                    brr(n, j) = arr(i, j + 2)
                Next j
                If n = 10 Or i = UBound(arr) Then
                      m = m + 1
                      With Sheet2
                           .[a5:g14] = ""
                           .[a5].Resize(n, 10) = brr
            End If
        Next
        With Sheets(2)
            .[a5:g14].ClearContents
            .[b3] = kh: .[g3] = dh
            .[a5].Resize(n, 18) = brr
            '.[a2:g18].PrintPreview
            .[a2:g18].PrintOut
        End With
        Erase brr
        n = 0
    Next
End Sub

anywhere99

自动满A5-G14行数据源满后，自动换页继续打印，怎么更新，还请大神支持内容的补充，谢谢。

laterite

附件都没有，大家只能靠猜了

anywhere99

请看文件，能否帮忙加多设置超行自动换页继续打印

谢谢

anywhere99

顶一下，求助大神助力，感谢感谢，加分~~

anywhere99

求解。。。。急等

半百

anywhere99

求解。。。。

anywhere99

求自动满页换页打印，，继续等

anywhere99

套打自动满31行自动换行，还请大神支持解决。