麻烦大神们帮我看看vba公式哪里哪里有错

yukiaikou1988 · 发表于 2022-5-15 15:50

Sub 连续打印()

Dim arr, brr(1 To 11, 1 To 11), i%, j%, n, m

arr = Sheet1.Range("A5").CurrentRegion

For i = 2 To UBound(arr)

n = n + 1

For j = 1 To 11

brr(n, j) = arr(i, j)

Next j

If n = 11 Or i = UBound(arr) Then

m = m + 1

With Sheet2

.[a7:p17] = ""

.[a7].Resize(n, 11) = brr

.[a1:m20].PrintOut

End With

n = 0

End If

Next i

End Sub

公示哪里有错误，请能帮我改一下么

3190496160 · 发表于 2022-5-15 16:34

你需要做什么？每11个人打印一份？？？

wangwq · 发表于 2022-5-15 17:14

Sub 连续打印()
Dim arr, brr(1 To 11, 1 To 11), i%, j%, n, m
arr = Sheet1.Range("A5").CurrentRegion
      For i = 1 To UBound(arr)
         n = n + 1
         For j = 1 To 8
               brr(n, j) = arr(i, j)
         Next j
         If n = 11 Or i = UBound(arr) Then
            m = m + 1
            With Sheet2
                  .[a7:p17] = ""
                  .[a7].Resize(n, 11) = brr
               .[a1:m20].PrintPreview
               ' .[a1:m20].PrintOut
            End With
               n = 0
         End If
      Next i
End Sub

yukiaikou1988 · 发表于 2022-5-15 19:06

3190496160 发表于 2022-5-15 16:34
你需要做什么？每11个人打印一份？？？

对，11个人一页

3190496160 · 发表于 2022-5-16 14:07

, brr(1 To 11, 1 To 11), i%, j%, n, m
arr = Sheet1.Range("A5").CurrentRegion
For i = 2 To UBound(arr)
n = 0
For s = i To i + 10
      If s <= UBound(arr) Then
         If Trim(arr(i, 1)) <> "" Then
            n = n + 1
            For j = 1 To UBound(arr, 2)
                  brr(n, j) = arr(i, j)
            Next j
         End If
      End If
Next s
With Sheet2
      .[a7:p17] = ""
      .[a7].Resize(n, 11) = brr
      .[a1:m20].PrintOut
End With
Next i
End Sub

yukiaikou1988 · 发表于 2022-5-16 19:34

收到，谢谢您

yukiaikou1988 · 发表于 2022-5-16 19:35

3190496160 发表于 2022-5-16 14:07
, brr(1 To 11, 1 To 11), i%, j%, n, m
arr = Sheet1.Range("A5").CurrentRegion
For i = 2 To UBound(a ...

收到谢谢您就是能问一下这些公式是啥意思么

		自动登录	找回密码
密码			免费注册