Excel通过VBA打印信封

最新推荐文章于 2024-05-23 16:28:12 发布

yangyinbo

最新推荐文章于 2024-05-23 16:28:12 发布

阅读量5.9k

点赞数

分类专栏：综合文章标签： vba excel integer string 脚本

本文链接：https://blog.csdn.net/yangyinbo/article/details/6864024

版权

这篇博客介绍了如何利用VBA宏在Excel中批量打印信封模板。通过两个子程序`printSheet`和`batchPrintSheet`，分别实现单个信封和批量信封的打印。程序会根据源数据更新信封模板，并在打印后将源数据行标记为'已打印'。

摘要由CSDN通过智能技术生成

Excel通过VBA打印信封:

 
Sub printSheet()
        Dim no1 As Integer
        Sheets("信封模板").Select '进入打印页面
        no1 = 2
        'no2 = InputBox("请输入打印内容行数：", "对话框", 1)
        'If no2 = "" Then '如果在对话框中选择了取消按钮，则终止宏！
           'Exit Sub
       ' End If
        
        Do While no1 <= 65535
         Dim isPrint As String
         
         isPrint = Sheets("源数据").Range("m" + Trim(Str(no1 + 1))).Value
        
         If isPrint <> "已打印" Then  '判断此行是否已打印过打印过则跳过
        
           Sheets("信封模板").Range("a1:f1").Value = Sheets("源数据").Range("a" + Trim(Str(no1 + 1)) + ":" + "f" + Trim(Str(no1 &

最低0.47元/天解锁文章

yangyinbo

关注

0
点赞
踩
3

收藏

觉得还不错? 一键收藏
1
评论
Excel通过VBA打印信封

Excel通过VBA打印信封: Sub printSheet() Dim no1 As Integer Sheets("信封模板").Select '进入打印页面 no1 = 2 'no2 = InputB
复制链接

扫一扫