今天单位需要根据Excel中的数据连续打印票据,故写了下面的vba简单示例。
Sheet2中是要打印的票据模板,Sheet3中A列存放着要打印的数据。
需要自动将Sheet2中某个单元格设置为Sheet3中A列单元格的数据,每设置一次,打印一张。
下面看具体代码吧。
Sub 连续打印() ' ' 连续打印 宏 ' ' 定义变量i Dim i ' 循环十五次 For i = 1 To 15 ' Sheet3 Ai数据不等于空 If Sheets("Sheet3").Range("A" & i) <> "" Then ' 将Sheet2中A1的数据设置为Sheet3中Ai数据 Sheets("Sheet2").Range("A1").Value = Sheets("Sheet3").Range("A" & i) ' 打印Sheet2 Sheets("Sheet2").PrintOut Copies:=1, Collate:=True GoTo nexti End If nexti: Next End Sub