tnjk.net
当前位置:首页 >> 如何使用ExCEl vBA实现批量打印 >>

如何使用ExCEl vBA实现批量打印

这个其实很简单 楼主自行录制一段打印的宏就可以了 根据录入的宏,再做微调就可以了 如果楼主还有疑问,可以进一步明确描述下或者截图说明下的

代码: sub 宏1() dim p,n,st as worksheet p="c:\" '文件所在位置,你可能需要修改,没必须是\ n=dir(p & "&.xls*") do while n"" with workbooks.open(p & n) for each st in .sheets if st.name="施工记录" or st.name="施工记录 (2)" or st....

但要根据不同的数据大量打印不同的标签、信封,请柬,付款通知单、成绩通知单等,就是一件单调耗时的工作。尽管你的数据库或Excel表中已经有了现成的数据,可是,要根据这些数据制作各式各样的信封、邀请函、通知单,用复制/粘贴的老办法吗?逐...

如何用Excel VBA批量打印文件_百度文库 http://wenku.baidu.com/link?url=kTD9FdxmPrBXkZMtLNfNq0i2v0Oyfbce8i1p6jjsx_fntmNVaGrin4L6NL0gq3VzHFId2D8meM9hSGIjiloDz6ZRRk-zKMh2LXVso4y5nk7

打印?你这是填写的效果吧?

如何用 Excel VBA 批量打印文件 有时候一个文件夹内有很多 Excel 文件,几十个,上百个,如果一个个的打开, 然后再打印,显然重复劳动,效率低下。Sub Copy_Data()Dim wb As Workbook, rng As Range, sht As WorksheetDim sht_Name, theDatesht_Name ...

首先,用EXCEL,做好一个模板, 然后,编写VBA,将具体实际的数据,按单填写。 填写完后,调用打印功能,实现打印输出。 打印完成后。 继续填写下一张单据,并继续打印, 如此循环

Public Sub printArea() Application.PrintCommunication = False With ActiveSheet.PageSetup .printArea = "$A$1:$N$21" .FitToPagesWide = 1 .FitToPagesTall = 0 End With Application.PrintCommunication = TrueEnd Sub

如何用 Excel VBA 批量打印文件 有时候一个文件夹内有很多 Excel 文件,几十个,上百个,如果一个个的打开, 然后再打印,显然重复劳动,效率低下。Sub Copy_Data()Dim wb As Workbook, rng As Range, sht As WorksheetDim sht_Name, theDatesht_Name ...

批量打印可以通过VBA的,代码如下: Sub 批量打印() '遍历工作表,实现批量打印 For i = 1 To Sheets.Count Sheets(i).PrintOut Next End Sub

网站首页 | 网站地图
All rights reserved Powered by www.tnjk.net
copyright ©right 2010-2021。
内容来自网络,如有侵犯请联系客服。zhit325@qq.com