解决Excel中VBA批量打印速度慢的问题

iamlaosong文

VBA循环打印对账单时，循环一次发出一个打印命令（本应用只打印一页），导致打印速度很慢，时间都浪费在电脑与打印机握手上面了。要解决这个问题，一种方法是打印前将内容合并，另一种方法是输出到文件，然后合并打印。最好的方法当然是第一种，但有时无法在打印前合并内容，例如打印内容涉及图片、条码、二维码、套打等，那么只有采用第二种方法。

为了增加灵活性，程序设置了一个输出参数pm，内容定义如下：

输出：0=到打印机；其它(n)=按n*100分组到文件

之所以要进行分组，是因为如果要打印的记录太多，合并的文件太多，合并的速度也慢。

        If pm = 0 ThenActiveSheet.PrintOutElsepn = Int((rr - rr1) / (pm * 100))pdf = ThisWorkbook.Path & "\pdf" & pnIf pm <> 0 And Dir(pdf, vbDirectory) = vbNullString ThenMkDir pdfEnd IfActiveSheet.ExportAsFixedFormat Type:=xlTypePDF, Filename:=pdf & "\对账单" & Format(rr, "000000") & ".pdf"End If

这个输出到pdf的语句ExportAsFixedFormat到2010版本才是可以用的，2007则不行。合并pdf就简单了，用什么合并工具都行，比如下图所示的Adobe Acrobat 8 Professional：

最后，网上看到有人说安装一个PdfFactory Pro虚拟打印机，在页面设置中指定它为当前打印机，它与内置的pdf打印印机不同，会把打印的内容合成一个PDF文件。这个方法也挺好，不过我没试过，可以试试。

顺便说一下，Office 2010发布了32位版本和64位版本。VBA由版本6升级到版本7，VBA7随Office 2010发布，支持能够运行32位和64位Office的代码的开发。参见：32 位和 64 位版本的 Office 2010 之间的兼容性

解决Excel中VBA批量打印速度慢的问题相关推荐

【Excel】VBA批量修改文件名
Excel:VBA批量修改文件名 Dim filePath As Variant '定义filepath为变量 Dim obj As Object '定义obj为变量对象 Dim fld, ff, g ...
用python在excel中做批量计算（包括单元格为空值时的处理情况）
现有如下某城市的2000-2017年人口和GDP数据的excel文件,需要计算其中人均GDP这一列的指标结果. 虽然这个工作在excel中直接下拉公式即可完成,但如果有50个城市的该种数据,显然下拉公 ...
Excel中如何批量合并单元格
Excel中如何批量合并单元格方法/步骤 1.1 如图所示是我们的演示数据与预期达到的效果. 1.首先,选中数据. 2.依次点击[数据]-[分类汇总] 3.弹出如下对话框,将[分类字段]设置为&qu ...
解决“Excel中批量生成的文件夹名称乱码”问题
一.问题描述: 我们在学习Excel中批量生成文件夹,文件夹的名称会出现乱码的问题,对此给出的解决方案如下: 1.将txt文件的后缀改为bat再运行出现了如下乱码名称: 二.解决方案将bat格式的批 ...
Ctrl+E快捷键，一键批量解决Excel中90%的问题！
Hello,各位叨友们好呀!我是叨叨君~ Excel中你们最常用的快捷键是啥?Ctrl+C复制.Ctrl+V粘贴?其实除了这两大快捷键外,还有一个少有人用的快捷键「Ctrl+E」,它被大神们称为表格中 ...
easyui datagrid不是相邻的能合并单元格吗_万能的Ctrl+E快捷键，学会能一键批量解决Excel中90%的问题！...
Hello,各位叨友们好呀!我是叨叨君~ Excel中你们最常用的快捷键是啥?Ctrl+C复制.Ctrl+V粘贴?其实除了这两大快捷键外,还有一个少有人用的快捷键「Ctrl+E」,它被大神们称为表格中 ...
c语言运行excel中vba程序,VBA代码在WPS上可运行，在EXCEL中报错
本人是一名VBA爱好者兼VBA小白,因工作需要,最近想要做1个EXCEL模板,通过VBA代码自动调用浏览器下载数据,导入EXCEL中进行处理.但在编写VBA代码过程中发现,同样的代码在WPS中可以运行 ...
python和vba操作excel_python调用excel中VBA代码
python中调用excel中的VBA代码,本机需要安装python以及该python版本对应的"pywin32-214.win32-py2.5.exe" #!/usr/bin/e ...
excel表格怎么调整行高和列宽_如何在Excel中竖向批量插入图片，这个简单方法你知道吗...
酌酒与君君自宽,人情翻覆似波澜.白首相知犹按剑,朱门先达笑弹冠.草色全经细雨湿,花枝欲动春风寒.世事浮云何足问,不如高卧且加餐. --[唐]王维<酌酒与裴迪> 不知道大家有没有遇到过这种情 ...

解决Excel中VBA批量打印速度慢的问题

解决Excel中VBA批量打印速度慢的问题相关推荐

最新文章

热门文章