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

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

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

+ -

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

推荐专题

最新下载

1

立方星球生存
195.05MB 类型： 休闲益智
2

狂热花园3
28.59MB 类型： 休闲益智
3

暴风雪俱乐部
157.72MB 类型： 动作冒险
4

模拟小镇
3.82MB 类型： 模拟经营
5

英雄救援
101.73MB 类型： 休闲益智
6

贝贝学习数学加减法
48.88MB 类型： 休闲益智
7

gogh
102.33MB 类型： 动作冒险
8

宝宝爱打扫
91.18MB 类型： 休闲益智
9

疯狂驾驶3
60.36MB 类型： 赛车竞速
10

宝宝森林美食宝宝巴士
87.79MB 类型： 休闲益智

热门教程

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

相关文章

热门栏目