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

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

首页游戏下载软件下载专题资讯教程 php教程 asp.net教程 css教程网页制作网页特效手机开发办公数码

+ -

当前位置：一聚教程网 > 办公数码 > excel

推荐专题

最新下载

1

钢琴魔术贴
122.26M 类型： 休闲益智
2

风流霸业
104.77M 类型： 角色扮演
3

植物大战僵尸QV
49.34M 类型： 策略塔防
4

教练巴士驾驶
62.32M 类型： 休闲益智
5

猫猫惊魂4
108.31M 类型： 动作冒险
6

笑容的炼金术师
125.48M 类型： 角色扮演
7

被尘封的故事2026
103.69M 类型： 动作冒险
8

弹珠英雄
116.21M 类型： 动作冒险
9

虚拟女友：大学生活
132.36M 类型： 模拟经营
10

幸存者冒险生存岛
220.53M 类型： 动作冒险

热门教程

1

诛仙2鬼王怎么加点鬼王加点推荐
时间：2025-08-20 类型： 游戏攻略
2

诛仙2见影灵泉奇遇任务怎么做见影灵泉奇遇任务流程攻略
时间：2025-08-20 类型： 游戏攻略
3

三国天下归心诸葛亮怎么样诸葛亮技能介绍一览
时间：2025-08-20 类型： 游戏攻略
4

三国天下归心追击队怎么玩追击队玩法教学
时间：2025-08-20 类型： 游戏攻略
5

三国天下归心武将怎么获得武将获取方法
时间：2025-08-20 类型： 游戏攻略
6

星痕共鸣剧毒蜂巢怎么获取剧毒蜂巢获取攻略
时间：2025-08-20 类型： 游戏攻略
7

新三国志曹操传李儒之影怎么打李儒之影打法教学
时间：2025-08-20 类型： 游戏攻略
8

辉烬队伍怎么搭配配队攻略指南
时间：2025-08-20 类型： 游戏攻略
9

创造吧我们的星球种田玩法怎么玩种田玩法介绍一览
时间：2025-08-20 类型： 游戏攻略
10

华夏千秋怎么表白表白方法一览
时间：2025-08-20 类型： 游戏攻略

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

相关文章

热门栏目