[已解决]按自定义的行数分页打印

dyzx · 发表于 2013-11-12 15:14

本帖最后由爱疯于 2013-11-13 17:10 编辑

将SHEET1中数据对应到SHEET2固定样式的表格中打印，每页分两栏共60人打印一页纸（最好每页打印人数可以自定），满一页就打印第二页，第二页满就打印第三页，依此类推，希望各位老师指教，多谢。

最佳答案

月排行榜 / 总排行榜

爱疯

2013-11-13 16:16

本帖最后由爱疯于 2013-11-13 16:17 编辑

Sub test()
Dim A, B(1 To 30, 1 To 9), n, i, x, y, c, z, r, p

A = Sheets(1).Range("A1").CurrentRegion
n = UBound(B)
Sheets(2).Select

For i = 2 To UBound(A)
      '参考值
      x = i - 1             '序号
      y = x \ n             '商
      z = x Mod n          '余数
      r = IIf(z = 0, n, z) '行
      If z = 0 Then          '列
         c = IIf(y Mod 2 = 0, 5, 0)
      Else
         c = IIf(y Mod 2 = 0, 0, 5)
      End If

      '装入
      B(r, c + 1) = x
      B(r, c + 2) = A(i, 1)
      B(r, c + 3) = A(i, 2)
      B(r, c + 4) = A(i, 3)

      '打印
      If x Mod (n * 2) = 0 Or i = UBound(A) Then
         Range("a3:i65536").ClearContents
         Range("a3").Resize(UBound(B), UBound(B, 2)) = B
         p = x \ (n * 2)
         p = IIf(x Mod (n * 2) = 0, p, p + 1)  '页号
         Range("d34") = "第 " & p & " 页"
         ActiveSheet.PrintOut
         Erase B
      End If
Next i
End Sub

批量打印2.rar (17.17 KB, 下载次数: 37)

dongqing1998 · 发表于 2013-11-13 02:19

请楼主测试

轻松 · 发表于 2013-11-13 06:39

这个好，适用。

dyzx · 发表于 2013-11-13 09:52

本帖最后由 dyzx 于 2013-11-13 16:13 编辑

dongqing1998 发表于 2013-11-13 02:19
请楼主测试

多谢老师，就是这个结果。最好能选择每页打印多少行。

爱疯 · 发表于 2013-11-13 16:16

本帖最后由爱疯于 2013-11-13 16:17 编辑

Sub test()
Dim A, B(1 To 30, 1 To 9), n, i, x, y, c, z, r, p

A = Sheets(1).Range("A1").CurrentRegion
n = UBound(B)
Sheets(2).Select

For i = 2 To UBound(A)
      '参考值
      x = i - 1             '序号
      y = x \ n             '商
      z = x Mod n          '余数
      r = IIf(z = 0, n, z) '行
      If z = 0 Then          '列
         c = IIf(y Mod 2 = 0, 5, 0)
      Else
         c = IIf(y Mod 2 = 0, 0, 5)
      End If

      '装入
      B(r, c + 1) = x
      B(r, c + 2) = A(i, 1)
      B(r, c + 3) = A(i, 2)
      B(r, c + 4) = A(i, 3)

      '打印
      If x Mod (n * 2) = 0 Or i = UBound(A) Then
         Range("a3:i65536").ClearContents
         Range("a3").Resize(UBound(B), UBound(B, 2)) = B
         p = x \ (n * 2)
         p = IIf(x Mod (n * 2) = 0, p, p + 1)  '页号
         Range("d34") = "第 " & p & " 页"
         ActiveSheet.PrintOut
         Erase B
      End If
Next i
End Sub

批量打印2.rar (17.17 KB, 下载次数: 37)

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

[已解决]按自定义的行数分页打印

评分