hdhj.net
当前位置:首页 >> vBA打印工作表 >>

vBA打印工作表

sub dayin() Application.ActiveSheet.PrintOut copies:=1 end sub 这是打印当前的工作表 打印一份 如果是打印当前工作薄中的工作表 Excel.ActiveWorkBook.PrintOut(1,Excel.WorkSheets.count,1,.T.)带参数的打印 参数说明:共四个参数 参数1-数...

你工作博里面没有 sheet12 这个名字的表 才会这样

试试这个,我没打印机,不能试 Sub 打印()For i = 2 To Sheets.CountSheets(i).PrintOutNext iEnd Sub

1、打印活动工作薄 Sub MyprintOut() 份数 =4 ActiveWorkbook.PrintOut Copies:=份数 End Sub 2、打印当前workbook,并集合打印模式 Sub printOut() 份数 = 5 ActiveWorkbook.PrintOut Copies:=份数, Collate:=True End Sub 3、打印当前workbook...

Sub PrintOutAllVisualSheet() 'print out all visual sheet by seting format. Dim c As Worksheet For Each c In ActiveWorkbook.Sheets If c.Visible = xlSheetVisible Then c.Select ActiveWindow.SelectedSheets.PrintOut Copies:=1, Colla...

请用宏录制功能,自己录制一遍打印过程,然后在vba中编辑宏,就看见代码了

亲,代码如下: Sub printsheet()If ActiveSheet.Range("A1") > 0 Then Dim i As Long For i = 1 To Range("A1") Sheets("Sheet" & i).PrintOut NextEnd IfEnd 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 ...

VBA设置excel自动打印: sub dayin() Application.ActiveSheet.PrintOut copies:=1 end sub 这是打印当前的工作表 打印一份 如果是打印当前工作薄中的工作表 Excel.ActiveWorkBook.PrintOut(1,Excel.WorkSheets.count,1,.T.)带参数的打印 参数说...

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