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

vBA打印工作表

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

ExecuteExcel4Macro("Get.Document(50)") 获取打印页数

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

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

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...

With workSheet.PageSetup .CenterHorizontally = True '水平居中 .CenterVertically = True '垂直居中 End With

你应该先选取工作表12,应为打印默认为当前页Worksheets("sheet12").Select,写在第一句,还有就是检查你的工作表名称是否一致

可以呀 Application.ScreenUpdating = False '先关闭屏幕刷新 sheets("sheet的名称").visible=true ‘取消隐藏 打印的代码 sheets("sheet的名称").visible=false ’再次隐藏 Application.ScreenUpdating = true '打开屏幕刷新

亲,代码如下: 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

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