|
[广告] VBA代码宝 - VBA编程加强工具 · VBA代码随查随用 · 内置多项VBA编程加强工具 ★ 免费下载 ★ ★ 使用手册★
- Sub test连续打印()
- Dim x%, y%, x1%, y1%, i%, a
- On Error Resume Next
- x = InputBox("请输入页面打印开始序号:", "打印设置")
- y = InputBox("请输入页面打印结束序号:", "打印设置")
- x1 = InputBox("请输入类别打印开始序号:", "打印设置")
- y1 = InputBox("请输入类别打印结束序号:", "打印设置")
- a = MsgBox("确定打印吗?", vbOKCancel, "提示")
- If a = 1 Then
- For i = x To y
- For j = x1 To y1
- Cells(1, 8) = i
- Cells(2, "H") = j
- ActiveWindow.SelectedSheets.PrintOut From:=1, to:=1, copies:=1, Collate:=True
- Next
- Next
- End If
- End Sub
复制代码 请测试代码 |
|