一聚教程网：一个值得你收藏的教程网站

ps教程| flash教程| 路由器设置| Jsp教程| 加入收藏

PHP教程 Css教程 操作系统 数据库 安卓下载

首页 游戏下载 软件下载 专题 资讯教程 php教程 asp.net教程 css教程 网页制作 网页特效 手机开发 办公数码
+ -
当前位置：一聚教程网 > 办公数码 > excel

推荐专题

最新下载

热门教程

Excel宏控制票据的连续打印方法

时间：2022-06-27 09:45:15 编辑：袖梨 来源：一聚教程网

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

相关文章

热门栏目

一聚教程网| 关于我们| 联系我们| 广告合作| 友情链接| 版权声明

copyRight@2007-2022 www.111CN.NET AII Right Reserved

网站内容来自网络整理或网友投稿如有侵权行为请邮件:[email protected] 我们24小时内处理