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

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

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

+ -

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

推荐专题

最新下载

1

恶龙斗勇者内购不减反增
177.59MB 类型： 休闲益智
2

恶龙斗勇者小游戏
177.59MB 类型： 休闲益智
3

怪物钓鱼最新版
124.66MB 类型： 休闲益智
4

庄园咖啡厅中文版
244.77MB 类型： 休闲益智
5

狂暴之翼
865.05MB 类型： 射击枪战
6

咪呜猫玩具
86.46MB 类型： 休闲益智
7

抢滩登陆3D
507.99MB 类型： 射击枪战
8

家国梦
178.81MB 类型： 模拟经营
9

胡莱三国2
524.68MB 类型： 策略塔防
10

舰队指挥官
260.15MB 类型： 策略塔防

热门教程

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

相关文章

热门栏目