Excel精英培训网

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

[已解决]批量打印

[复制链接]
发表于 2011-12-29 20:26 | 显示全部楼层 |阅读模式
如何批量打印标签的问题。
最佳答案
2011-12-30 19:37
本帖最后由 zjdh 于 2012-1-2 20:11 编辑

打印标签.rar (8.48 KB, 下载次数: 79)

打印标签.rar

7.57 KB, 下载次数: 46

发表于 2011-12-30 17:47 | 显示全部楼层
回复

使用道具 举报

 楼主| 发表于 2011-12-30 18:59 | 显示全部楼层
回复

使用道具 举报

发表于 2011-12-30 19:37 | 显示全部楼层    本楼为最佳答案   
本帖最后由 zjdh 于 2012-1-2 20:11 编辑

打印标签.rar (8.48 KB, 下载次数: 79)
回复

使用道具 举报

发表于 2011-12-31 18:41 | 显示全部楼层
有个样本,看能用的着没。

连续打印.rar

26.99 KB, 下载次数: 50

回复

使用道具 举报

 楼主| 发表于 2012-1-2 18:28 | 显示全部楼层
感谢楼上各位老师。4楼的老师还希望能将代码改一下:1、不要预览,点按钮后能直接打印。能节约时间。2、打印区域只限有表的区域。不能把按钮和说明都打印上去。再次感谢。
回复

使用道具 举报

 楼主| 发表于 2012-1-2 18:57 | 显示全部楼层
zjdh 发表于 2011-12-30 19:37

如果每张纸打印4个标签(二行二列)又将如何设定?
回复

使用道具 举报

发表于 2012-1-2 20:03 | 显示全部楼层
liutqj 发表于 2012-1-2 18:28
感谢楼上各位老师。4楼的老师还希望能将代码改一下:1、不要预览,点按钮后能直接打印。能节约时间。2、打印 ...

1.  我的宏里已将打印和浏览都写入了,只是为了显示效果,注销了打印语句,若需要打印只要打开打印语句,不要浏览就注销浏览语句即可,我以为你会设置的。如下设置。
      ActiveSheet.PrintOut
     'ActiveSheet.PrintPreview
2.  只要设置打印区域,这是基本操作,所以未在宏中写入相关语句,具体操作:
    选定打印区域----菜单----文件----打印区域----设置打印区域
回复

使用道具 举报

发表于 2012-1-2 20:07 | 显示全部楼层
liutqj 发表于 2012-1-2 18:57
如果每张纸打印4个标签(二行二列)又将如何设定?

打印几行几列都能解决,这要与工作表情况相匹配,没有附件没法交流!
回复

使用道具 举报

 楼主| 发表于 2012-1-2 20:09 | 显示全部楼层
Sub TEST()
  For I = Range("J7") To Range("J9") Step 4
      For J = 0 To 1
     Cells(J * 9 + 2, 2) = I + J * 2
     Cells(J * 9 + 2, 6) = I + J * 2 + 1
    Next
     Range("a1:g35").PrintOut copies:=1
      Next
End Sub

帮我注释一下,特别是 如何将数值显示到指定的位置不明白,望指教。
  
回复

使用道具 举报

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

本版积分规则

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

GMT+8, 2024-3-29 07:21 , Processed in 0.425690 second(s), 10 queries , Gzip On, Yac On.

Powered by Discuz! X3.4

Copyright © 2001-2020, Tencent Cloud.

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