第1个回答 2012-04-04
你这种设计无法完成批量打印.介绍一种批量打印的方法,但要使用VBA代码.
1、制作两张表。一张为产品信息表,一张为打印表。产品信息表保存产品信息,打印表用于调用产品信息表内容进行打印。
2、代码
Sub 批量打印()
Dim i, j, n As Integer
j = InputBox(prompt:="请输入要打印的起行数字")
n = InputBox(prompt:="请输入要打印的止行数字")
For i = j To n
Sheets("打印表").Cells(*,*) = Sheets("产品信息表").Cells(i, *)
。
。
。
'打印
Sheets("打印表").select
Sheets("打印表").PrintOut Copies:=1, Collate:=True
Next
End Sub本回答被提问者采纳