vba:我想单独控制打印哪个工作表,用什么命令?
发布网友
发布时间：2023-07-08 00:19
我来回答
共1个回答
热心网友
时间：2024-10-21 14:29
1、打印活动工作薄
Sub MyprintOut()
份数 =4
ActiveWorkbook.PrintOut Copies:=份数
End Sub
2、打印当前workbook，并集合打印模式
Sub printOut()
份数 = 5
ActiveWorkbook.PrintOut Copies:=份数, Collate:=True
End Sub
3、打印当前workbook的所有sheet
Sub printOut()
ActiveWorkbook.Worksheet.PrintOut
End Sub
4、打印隐藏的工作表
Sub printOut()
Worksheets("Sheet2").Activate
Worksheets("Sheet1").Visible = False
Application.ScreenUpdating = False
Worksheets("Sheet1").Visible = True
Worksheets("Sheet1").PrintOut
Worksheets("Sheet1").Visible = False
End Sub
使用VBA打印指定工作表?
'sh.PrintPreview ’去掉这句前面的 ' 是预览 'sh.PrintOut i, i ’去掉这句前面的 ' 是打印 x = x + 1 Next i End If Next sh End Sub
excel里我想要打印指定的多个工作表,不用ctrl键单个单个选择,能不能用...
1.Excel中有很多工作表，打印A列中名字的工作表：2.Alt+F11，在VBE中输入代码代码：3.F5执行代码，A列中的工作表就会依次被打印出来。
excel利用VBA设置或取消打印区域
用PageSetup.PrintArea属性。代码如下：Sub SetPrintArea()Sheet1.PageSetup.PrintArea = "A1:F15"End Sub 上述代码将区域A1:F15设置为打印区域。如果要同时设置多个打印区域，可以将上述代码改为：Sub SetPrintArea()Sheet1.PageSetup.PrintArea = "A1:F15,A20:F45"End Sub 上述代码将区域A1:F15及A20:F...
excel利用VBA禁止打印工作簿
在VBA编辑器“工程”窗口中，双击“ThisWorkBook”，在右边的代码窗口中输入下面的代码：Private Sub Workbook_BeforePrint(Cancel As Boolean)Cancel = True End Sub 该代码使用了Workbook.BeforePrint事件，在打印工作簿之前执行代码。这样，当我们在该工作簿中选择“打印”或“打印预览”命令时，Excel将不...
请教,在Excel VBA中如何打印指定的工作表?谢谢。
1、用重命名方式将Sheet5的名称修改为了“测试表单”，但在VBAProject中，前面的名字依然叫Sheet5。2、点击 VBAProject下面的Sheet3，下面对应出现Sheet3的属性，我们能够看到属性中 一个叫“名称”，就是工作表的CodeName，另外一个Name，就是平时大家所见的Sheet 的名字。3、在“名称”属性中输入新的...
怎么用VBA自动设置每个工作表的打印区域?
首先录制设置一个工作表打印区域的宏，然后在外面套个循环 for each oWk IN THISWORKBOOK.WORKSHEET 这里输入设置工作表打印区域的代码 NEXT
vba只对几个工作表独立执行代码 以下代码我想在Sheets(1).Sheets...
那代码就不应该写Sheets(1)，而是ActiveSheet，并且判断是否相等，例如：Private Sub Workbook_BeforePrint(Cancel As Boolean)Application.DisplayAlerts = Falseif ActiveSheet.Name=Sheets(1).Name ThenSheets(1).Copy...End if
VBA怎样设置工作薄中的第一张工作表不打印,后面的所有工作表全都打印...
用 for 语句循环所有工作表，中间用 if 语句控制就可以了 Sub CtrlPrint()Dim sht As Worksheet For Each sht In Sheets If sht.Name <> Worksheets(1) Then sht.PrintOut End If Next End Sub
用vba打印excel工作簿中所有工作表的首尾页,需要怎么编程?
If Application.CountA(.UsedRange.Cells) Then '若工作表非空白则执行 .PageSetup.PrintArea = .UsedRange.Address '设置打印范围为已使用的区域 .PrintOut from:=1, To:=1, Collate:=True, Copies:=1, IgnorePrintAreas:=False '打印第一页，份数为1份 n = .PageSetup.Pages.Count '获取页码数...
EXCEL用VBA解决打印问题
VBA设置excel自动打印：sub dayin()Application.ActiveSheet.PrintOut copies:=1 end sub 这是打印当前的工作表 打印一份 如果是打印当前工作薄中的工作表 Excel.ActiveWorkBook.PrintOut(1,Excel.WorkSheets.count,1,.T.) 带参数的打印 参数说明：共四个参数 参数1-数值：当前工作簿中进行打印的起始...
