在excel中打印客户信封,添加查询按钮的问题。

发布网友发布时间：2022-04-30 17:04

共1个回答

热心网友时间：2022-06-28 02:43

你是不是按顺序挨个打印啊？
若是的话，则有
Sub 按钮1_单击打印()
Sheets("信封打印").Select

ActiveWindow.SelectedSheets.PrintOut Copies:=1, Collate:=True '进入“信封打印”工作表并打印
Sheets("通讯录").Select
ActiveSheet.[E1] = ActiveSheet.[E1] + 1 '返回“通讯录”并递增数据
End Sub

说明：
1、对”通讯录“中的E1单元格赋值为0；
2、”新分打印“表中，D4=INDIRECT("'通讯录'!C"&('通讯录'!E1+2))
D5=INDIRECT("'通讯录'!A"&('通讯录'!E1+2))
D6=INDIRECT("'通讯录'!D"&('通讯录'!E1+2))
这样每次打印完成后，都会自动显示下一个要打印的内容追问不是批量打印的，因为基本上都是指定单独客户的，所以才麻烦了些。