tnjk.net
当前位置:首页 >> 批量打印ExCEl特定的工作表,按下面代码写完后,在... >>

批量打印ExCEl特定的工作表,按下面代码写完后,在...

推荐使用“Office批量打印精灵”——Office文档批量打印软件,支持Word、Excel、Powerpoint、PDF等文档的批量打印,且可使用...

Sub 宏1() Dim p, n, st As Worksheet p = "C:\Documents and Settings\Administrator\桌面\姚吴呈\410423103018\" n = Dir(p & "*xls") Do While n "" Set wk = Workbooks.Open(p & n) For Each st In wk.Sheets If st.Name = "基本信息" Or st...

代码: 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....

怎么个特定,都不描述怎么帮你? 如果有规律可以使用宏录制。

采用word的邮件合并功能 你的图二存为一个excel文件,同时在word里建立一个新文件,画好表格,在邮件中选择“使用现有列表”,并指向你的EXCEL文件 在自己要填内容的位置插入合并域,图中方框位置是我已插入的合并域 最后切换“预览结果”,点菜单上...

第1步:打开数据表格,如下图所示: 第2步:选择diy工具箱按钮,如下图所示: 第3步:选择批量打印按钮,如下图所示: 第4步:弹出对话框点选择按钮,如下图所示: 第5步:选择自己要打印的excel文件,如下图所示: 第6步:选择活动工作表,单击...

----57132899---- 这个可以录制宏的 或者你删除敏感信息,发文件 给我

Sub 批量打印() Dim i As Integer For i = 4 To Sheet1.Columns(1).Cells(Sheet1.Cells.Count).End(xlUp).Row Sheets(Sheet1.Cells(i, 1)).PrintOut Copies:=1 Next End Sub

第1步:打开数据表格,如下图所示: 第2步:选择diy工具箱按钮,如下图所示: 第3步:选择批量打印按钮,如下图所示: 第4步:弹出对话框点选择按钮,如下图所示: 第5步:选择自己要打印的excel文件,如下图所示: 第6步:选择活动工作表,单击...

按住CTRL,鼠标左键选择需要打印多个工作表; 设置打印后,点击打印即可。如下图所示。 如果需要打印全部,可以按住shift键,选择第一个和最后一个工作表全部选择即可。

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