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

以下代码是我之前做的一个关于连续打印发票的代码，基本上适用：
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工作表的内容可以根据开始序号从另外的工作表中自动取数，你可以根据你自己需要更改一下代码。

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

这个要用到VBA代码才行