求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好友，与此号同