Excel精英培训网

 找回密码
 注册
数据透视表40+个常用小技巧,让你一次学会!
查看: 1714|回复: 7

[已解决]批量打印

[复制链接]
发表于 2013-6-24 07:35 | 显示全部楼层 |阅读模式
批量打印.zip (26.69 KB, 下载次数: 10)
发表于 2013-6-24 07:56 | 显示全部楼层
Sub 批量打印()
Sheets("2").Select
Dim x As Integer
For x = 2 To 9 Step 4
  With Sheets("3")
    Range("k7") = .Cells(x, "d")
    Range("M7") = .Cells(x, "E")
    Range("k15") = .Cells(x + 1, "d")
    Range("M15") = .Cells(x + 1, "E")
    Range("k23") = .Cells(x + 2, "d")
    Range("M23") = .Cells(x + 2, "E")
    Range("k31") = .Cells(x + 3, "d")
    Range("M31") = .Cells(x + 3, "E")
    .PrintOut
  End With
Next x
End Sub
回复

使用道具 举报

发表于 2013-6-24 08:56 | 显示全部楼层
本帖最后由 zjdh 于 2013-6-24 09:03 编辑

Sub test()
    ARR = Sheets(3).Range("D2:E" & Sheets(3).Range("D65536").End(3).Row + 1)
    For I = 0 To UBound(ARR) - 1 Step 4
        With Sheets(2)
            If I + 1= UBound(ARR) Then Exit Sub
            For J = 1 To 4
                If ARR(I + J, 1) = "" Then GoTo 10
                .Cells(J * 8 - 1, 11) = ARR(I + J, 1)
                .Cells(J * 8 - 1, 13) = ARR(I + J, 2)
           Next
10          '.PrintOut    '打印
            .PrintPreview '预览
        End With
    Next
End Sub
回复

使用道具 举报

发表于 2013-6-24 09:00 | 显示全部楼层
本帖最后由 zjdh 于 2013-6-24 09:04 编辑

批量打印.rar (24.44 KB, 下载次数: 7)
回复

使用道具 举报

 楼主| 发表于 2013-6-24 13:16 | 显示全部楼层
zjdh 发表于 2013-6-24 09:00

批量打印.zip (9.2 KB, 下载次数: 6)
回复

使用道具 举报

发表于 2013-6-24 16:25 | 显示全部楼层
批量打印2.rar (25.34 KB, 下载次数: 5)
回复

使用道具 举报

 楼主| 发表于 2013-6-24 17:20 | 显示全部楼层
zjdh 发表于 2013-6-24 16:25

批量打印.zip (9.2 KB, 下载次数: 2)
回复

使用道具 举报

发表于 2013-6-24 18:31 | 显示全部楼层    本楼为最佳答案   
只为打印!有啥折腾的??!!
批量打印3.rar (8.8 KB, 下载次数: 50)
回复

使用道具 举报

您需要登录后才可以回帖 登录 | 注册

本版积分规则

小黑屋|手机版|Archiver|Excel精英培训 ( 豫ICP备11015029号 )

GMT+8, 2024-3-29 15:50 , Processed in 0.713305 second(s), 10 queries , Gzip On, Yac On.

Powered by Discuz! X3.4

Copyright © 2001-2020, Tencent Cloud.

快速回复 返回顶部 返回列表