哪位大神知道EXCEL工作表怎么设置“批量打印”通知书按钮吖

2024-11-08 08:59:35

推荐回答（3个）

回答1：

以下代码是我之前做的一个关于连续打印发票的代码，基本上适用：
Private Sub CommandButton1_Click()
num = Sheets("sheet1").Range("h11")
sta = Sheets("sheet1").Range("f11")
For i = sta To num
Sheets("cash").Select
ActiveWindow.SelectedSheets.PrintOut Copies:=1, Collate:=True
Sheets("sheet1").Range("f11") = Sheets("sheet1").Range("f11") + 1
Next i
End Sub

Sheets("sheet1").Range("f11")就是开始那个序号所在单元格，
Sheets("sheet1").Range("h11")是结束那个序号所在单元格，打印的是cash工作表，cash工作表的内容可以根据开始序号从另外的工作表中自动取数，你可以根据你自己需要更改一下代码。

回答2：

按键激活一段vba代码，执行打印操作。

回答3：

这个要用到VBA代码才行