excel制作的标签批量打印时自动加序号

姚强

用EXCEL制作了标签，需要多份打印，希望实现一键指定默认打印机，打印区域，打印数量并且每打印一张指定单元格序号加一，打印完成序号归零。

hzruziniu

1. Private Sub CommandButton1_Click()
   
2.     Dim i%
   
3.     ActiveSheet.PageSetup.PrintArea = "$O$12:$U$22"
   
4.     For i = 1 To Range("t17") + 2
   
5.         Range("U21") = i
   
6.         ActiveSheet.PrintPreview               '打印预览
   
7.        ' ActiveSheet.PrintOut                   '直接打印
   
8.     Next
   
9.     Range("U21") = ""
   
10. End Sub

复制代码

姚强

hzruziniu 发表于 2016-10-12 00:29

谢谢，老师半夜还辛苦回复。您的VBA代码我试了可以实现打印一张，预览一张，一张一张打印。能否将代码修改为执行控件即跳过预览直接将T17+2的数量打印完成并且任然是每张序号加1？再次辛苦不胜感激

hzruziniu

姚强 发表于 2016-10-12 12:38
谢谢，老师半夜还辛苦回复。您的VBA代码我试了可以实现打印一张，预览一张，一张一张打印。能否将代码修 ...

ActiveSheet.PrintPreview               '打印预览
       ' ActiveSheet.PrintOut                   '直接打印
这二句代码你可任选一句，把前面有撇号绿色的一句的撇号去掉，把打印预览的一句删掉。

hzruziniu

Private Sub CommandButton1_Click()
    Dim i%
    ActiveSheet.PageSetup.PrintArea = "$O$12:$U$22"
    For i = 1 To Range("t17") + 2
        Range("U21") = i
        ActiveSheet.PrintOut                   '直接打印
    Next
    Range("U21") = ""
End Sub

姚强

hzruziniu 发表于 2016-10-12 15:48
Private Sub CommandButton1_Click()
    Dim i%
    ActiveSheet.PageSetup.PrintArea = "$O$12:$U$22"
...

非常感谢，已经完全实现了我的要求，太感谢了。向您学习。同时再请教一个问题，我有如附件一样相同格式的工作簿上千个，怎么能将上面的打印代码批量应用到同一文件夹下所有的工作簿中，如果不能也非常感谢。

focuson1

好方法，学习！

hzruziniu

姚强 发表于 2016-10-12 18:42
非常感谢，已经完全实现了我的要求，太感谢了。向您学习。同时再请教一个问题，我有如附件一样相同格式的 ...

是同一工作簿内的多工作表，还是同一文件夹内的多工作簿下的指定工作表

姚强

hzruziniu 发表于 2016-10-12 23:10
是同一工作簿内的多工作表，还是同一文件夹内的多工作簿下的指定工作表

同一文件夹内的多工作簿下的sheet1

绿色心情小天使

hzruziniu 发表于 2016-10-12 15:48
Private Sub CommandButton1_Click()
    Dim i%
    ActiveSheet.PageSetup.PrintArea = "$O$12:$U$22"
...

代码中如果要指定一台打印机打印，代码如何写？