tnjk.net
当前位置:首页 >> vBA批量打印 >>

vBA批量打印

在工作表标签上右键——选定全部工作表,再进行页面设置就是对全部工作表进行设置。然后再在工作表标签上右键——取消成组工作表,就可以了。如果要对部分工作表进行页面设置,那就按住Ctrl键 依次单击那些要设置的工作表标签(如Sheet1 Sheet3 Shee...

代码: 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 VBA批量打印文件_百度文库 http://wenku.baidu.com/link?url=kTD9FdxmPrBXkZMtLNfNq0i2v0Oyfbce8i1p6jjsx_fntmNVaGrin4L6NL0gq3VzHFId2D8meM9hSGIjiloDz6ZRRk-zKMh2LXVso4y5nk7

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

Sub 自动筛选打印() Dim d As Object Set d = CreateObject("scripting.Dictionary") Dim c As Range, key i = 2 Do i = i + 1 Set c = Cells(i, 6) d(c.Value) = "" Loop Until c = "" key = d.Keys For x = 0 To d.Count ActiveSheet.UsedRang...

没测试, 直接 写 你要 最多多少个, 依次 打印 1 到 n Sub 打印() m = InputBox("请输入最大打印份数") For i = 1 To m Range("H" & i) = i Calculate ActiveSheet.PrintOut Next End Sub

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

可利用如下代码批量打印: Sub Print_All_Excel()On Error Resume NextDim my_Doc As StringDim my_File As String With Application.FileDialog(msoFileDialogFolderPicker).Show.AllowMultiSelect = Falsemy_Doc = .SelectedItems(1)End With ...

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

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

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