实现按顺序连续打印

kuangben8

论坛的各位老师：大家好！
        如下图所示，在工作中，制作好一个模板后，想根据选择实现连续打印！恳求各位老师帮忙。


单体砖图成型卡片.zip (44.41 KB, 下载次数: 339)

2014-8-21 16:11 上传

点击文件名下载附件

cbtaja

1. Sub 打印()
   
2. Dim fw$, fs&
   
3. fs = Sheet1.[m2]
   
4. If fs < 1 Then Exit Sub
   
5. fw = Replace("q" & Sheet1.[m1], "-", ":q")
   
6. For Each cel In Sheet2.Range(fw)
   
7.     If cel.Row >= 5 Then
   
8.         phzx = cel.Value
   
9.         If phzx <> "" Then
   
10.             Sheet1.[j1] = phzx
    
11.             Sheet1.PrintOut copies:=fs
    
12.         End If
    
13.     End If
    
14. Next
    
15. End Sub

复制代码

cbtaja

单体砖图成型卡片.zip (47.1 KB, 下载次数: 451)

2014-8-21 19:36 上传

点击文件名下载附件

kuangben8

cbtaja 发表于 2014-8-21 19:36

老师好！这个程序是不是有点不稳定呢？
1、我选择6-7，打印出来的是确实第5行和第7行。
2、重新打印，内容是第6行和第7行，但是图却都是第7行的图，
3、还有打印7-9，打印的图片也有出错的情况，第7行的图和第8行的图原本不一样，打印出来的都是第7行的图！
恳请老师在看看这个程序是否有不稳定的因素存在？

kuangben8

cbtaja 发表于 2014-8-21 19:36

输入单个数字打印，目前还没有发现问题。就是连续打印的时候会有时候出错，有时候又正常。

cbtaja

kuangben8 发表于 2014-8-22 15:15
老师好！这个程序是不是有点不稳定呢？
1、我选择6-7，打印出来的是确实第5行和第7行。
2、重新打印，内 ...

这种情况，只需在执行打印命令的语句之前加上一句即可解决：
ＤｏＥｖｅｎｔｓ

对原有代码一并优化完善如下：

1. Sub 打印()
   
2. Dim fw$, fs&, endrow&, r&, phzx$
   
3. fs = Sheet1.[m2]
   
4. If fs < 1 Then Exit Sub
   
5. endrow = Sheet2.[b65536].End(3).Row
   
6. fw = Replace("q" & Sheet1.[m1], "-", ":q")
   
7. For Each cel In Sheet2.Range(fw)
   
8.     r = cel.Row
   
9.     If r >= 5 And r <= endrow Then
   
10.         phzx = cel.Value
    
11.         Sheet1.[j1] = phzx
    
12.         DoEvents
    
13.         Sheet1.PrintOut copies:=fs
    
14.     End If
    
15. Next
    
16. MsgBox "完成！"
    
17. End Sub
    

复制代码

kuangben8

cbtaja 发表于 2014-8-23 10:08
这种情况，只需在执行打印命令的语句之前加上一句即可解决：
ＤｏＥｖｅｎｔｓ

感谢老师的帮助！谢谢。

kuangben8

cbtaja 发表于 2014-8-23 10:08
这种情况，只需在执行打印命令的语句之前加上一句即可解决：
ＤｏＥｖｅｎｔｓ

大侠好，我不清楚我的要求是否麻烦，如果可以，想请您帮我一下：
http://club.excelhome.net/forum. ... 194&pid=8138592
如果不行，也很感谢您观看我的问题。

kuangben8

cbtaja 发表于 2014-8-23 10:08
这种情况，只需在执行打印命令的语句之前加上一句即可解决：
ＤｏＥｖｅｎｔｓ

老师好，我现在想将这个连续打印程序输出为PDF格式文件，按照打印顺序保存在一个PDF文档里。请教老师该如何修改您的代码？

cbtaja

不用改代码，安装一个著名的虚拟打印机FinePrint（有中文版v8.31的，单机版注册码HZUC-MGGY-5479），设为默认打印机，就可解决问题。
打印时，它将拦截所有的打印内容，最后可由它统一转给其它物理打印机或PDF虚拟打印机。如果转的是PDF打印机，自然就把这些内容一次性转为了一个PDF文档。
FinePrint还有其它功能，当然，最主要的是它相当于给任何提供打印功能的软件增加了“打印预览”的功能，而且，对于其中的页面，可以随意的删除。比如想打印第1-3、6，8-10页，可以先用FinePrint直接打印第1-10页，然后在FinePrint中，把第4、5、7页删除，再转发给其它物理打印机。所以，可以利用它删除打印预览时发现的多余的空白页。此外，也可以利用它在需要的位置插入空白页，添加页眉页脚、水印、以及为没有双面打印功能的打印机提供双面打印功能等。