怎样用宏打印

2024-12-27 11:02:17
推荐回答(1个)
回答1:

以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