A-A+

使用Excel宏实现票据的连续打印示例

2014年06月13日 软件 评论 1 条 阅读 6,409 次

今天单位需要根据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
标签:

1 条留言  访客:0 条  博主:0 条

  1. avatar 常乐猫blog.clmao.com

    这个功能不错

给我留言