以excel为例,你建立3个sheet,sheet1为要打印的格式,sheet2为需要打印的数据,sheet3存放参数。
在sheet1中,利用vlookup函数获取对应的数据,然后画一个按钮,按钮里的代码用循环的方法读取对应的记录并打印。
关键代码:
Dim x As Integer
x=1
Do While (Len(Sheet2.Cells(x, 1)) > 0)'检查下一行是否有内容
Sheet3.Cell(1,1)=Sheet2.Cell(x,1)'设置当前行的ID
ActiveWindow.SelectedSheets.PrintOut Copies:=1, Collate:=True '打印
x=x+1
Loop