求excel高手,我要打印1000份抽奖卷,怎么办救我!!!
发布网友
发布时间：2022-04-25 12:55
共3个回答
热心网友
时间：2024-04-22 08:03
就在你做的这个EXCEL表里，录制一个空白宏 后把下面的内容放进去，执行，应该能解决你的问题。
Sub 批量打印()
'
' 从 1 打印到 1000 一张 8个
'
'
For i = 1 To 1000 Step 8
Range("A5") = "NO " & Right("0000" & i, 5)
Range("A12") = "NO " & Right("0000" & i + 1, 5)
Range("A19") = "NO " & Right("0000" & i + 2, 5)
Range("A26") = "NO " & Right("0000" & i + 3, 5)
Range("B5") = "NO " & Right("0000" & i, 5)
Range("B12") = "NO " & Right("0000" & i + 1, 5)
Range("B19") = "NO " & Right("0000" & i + 2, 5)
Range("B26") = "NO " & Right("0000" & i + 3, 5)
Range("D5") = "NO " & Right("0000" & i + 4, 5)
Range("D12") = "NO " & Right("0000" & i + 5, 5)
Range("D19") = "NO " & Right("0000" & i + 6, 5)
Range("D26") = "NO " & Right("0000" & i + 7, 5)
Range("E5") = "NO " & Right("0000" & i + 4, 5)
Range("E12") = "NO " & Right("0000" & i + 5, 5)
Range("E19") = "NO " & Right("0000" & i + 6, 5)
Range("E26") = "NO " & Right("0000" & i + 7, 5)
ActiveWindow.SelectedSheets.PrintOut Copies:=1, Collate:=True, _
IgnorePrintAreas:=False
yesno = MsgBox("继续打印，还是终止！！！", vbYesNo)
If yesno = vbNo Then i = 10000
Next i
End Sub
'代码结束，下面的不要复制
上面的代码会 打印一页会 暂停让你选择， 若不想暂停就删除代码段：
yesno = MsgBox("继续打印，还是终止！！！", vbYesNo)
If yesno = vbNo Then i = 10000
把这两句删除就会一下子打印出来
不过担心打印机会出问题。
代码不够完善，不能自动识别从没有打的开始，
不过你可以手动改一下 For i = 1 To 1000 Step 8 中的 i=1
想从哪个开始，就改成那个数字
@DUUKER
热心网友
时间：2024-04-22 08:04
上面的孩子 公司名称 春季订货会 用图片做，粘贴到单元格中，然后复制行，一行变两行 两行变4行直到你要的行； NO 0000x直接写在单元格里，在单元格格式中选择靠下居中，然后点住单元格右下角鼠标变成十字形的时候点住往下拖
热心网友
时间：2024-04-22 08:04
用公式应该很快，可以加Q好友，与此号同
