Excel精英培训网

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

[已解决]怎样实现批量打印

[复制链接]
发表于 2015-12-22 08:15 | 显示全部楼层 |阅读模式
求助各位大神,帮我写个代码,要求在“箱号由”的单元格输入任意的数字,可以是一位数,也可以是两位数,三位数或者四位数,然后在第一个装箱箱唛的箱号处显示出来,第二个装箱箱唛的箱号处等于第一个箱号加1.在打印张数处输入需要打印的张数,点击“开始打印”,就能批量的打印出来,并且要求箱号是一直循环以步长1递增,(比如输入22,打10张,打印出来就是22,23....31)还有就是输入奇数时,第二个箱唛不打印出来。
最佳答案
2015-12-22 10:42
代码为调试模式,用打印预览。如果没问题直接用printout代替printpreview(代码中注释部分)
  1. Sub 打印()
  2.     qs = [I1]: zs = [I2] '起始、张数
  3.     If zs Mod 2 = 0 Then zs1 = zs Else zs1 = zs - 1
  4.     For i = 1 To zs1 Step 2      '打印到偶数张
  5.         [e4] = qs + i - 1: [e19] = qs + i
  6.         ActiveSheet.PrintPreview
  7.         'ActiveSheet.PrintOut
  8.     Next
  9.     If zs > zs1 Then      '奇数张,最后打印半张
  10.         [e4] = qs + zs - 1
  11.         [a16:e24] = ""   '清空下半张
  12.         ActiveSheet.PrintPreview
  13.         'ActiveSheet.PrintOut
  14.         [a1:e9].Copy [a16:e24]    '恢复下半张
  15.     End If
  16. End Sub
复制代码

A.rar

7.93 KB, 下载次数: 22

excel精英培训的微信平台,每天都会发送excel学习教程和资料。扫一扫明天就可以收到新教程
发表于 2015-12-22 08:19 | 显示全部楼层
很简单啊
录制一下打印
加一个循环就可以了
回复

使用道具 举报

发表于 2015-12-22 10:42 | 显示全部楼层    本楼为最佳答案   
代码为调试模式,用打印预览。如果没问题直接用printout代替printpreview(代码中注释部分)
  1. Sub 打印()
  2.     qs = [I1]: zs = [I2] '起始、张数
  3.     If zs Mod 2 = 0 Then zs1 = zs Else zs1 = zs - 1
  4.     For i = 1 To zs1 Step 2      '打印到偶数张
  5.         [e4] = qs + i - 1: [e19] = qs + i
  6.         ActiveSheet.PrintPreview
  7.         'ActiveSheet.PrintOut
  8.     Next
  9.     If zs > zs1 Then      '奇数张,最后打印半张
  10.         [e4] = qs + zs - 1
  11.         [a16:e24] = ""   '清空下半张
  12.         ActiveSheet.PrintPreview
  13.         'ActiveSheet.PrintOut
  14.         [a1:e9].Copy [a16:e24]    '恢复下半张
  15.     End If
  16. End Sub
复制代码

A.rar

7.93 KB, 下载次数: 84

评分

参与人数 1 +1 收起 理由
lidayu + 1 学习一下

查看全部评分

回复

使用道具 举报

发表于 2017-5-23 19:56 | 显示全部楼层
666666666666666666666666666666666666666666666666666666666666666666666666666666666666666666666666666
回复

使用道具 举报

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

本版积分规则

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

GMT+8, 2024-3-28 21:17 , Processed in 0.339408 second(s), 16 queries , Gzip On, Yac On.

Powered by Discuz! X3.4

Copyright © 2001-2020, Tencent Cloud.

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