Excel 如何用VBA实现表格打印

答案:4 悬赏:30 手机版

解决时间 2021-11-09 21:23

提问者网友：姑娘长的好罪过
2021-11-09 09:26

Excel 如何用VBA实现表格打印

最佳答案

五星知识达人网友：旧脸谱
2021-11-09 10:00

下面是批量打印某文件夹中表格的VBA程序：
Sub test()
Set rrr = CreateObject("Scripting.FileSystemObject")
Set r = rrr.GetFolder("C:Documents and SettingsAdministrator桌面材料")
For Each i In r.Files
    Workbooks.Open Filename:=("C:Documents and SettingsAdministrator桌面材料" + i.Name + "")    '打开文件
    Worksheets("Sheet2").Activate    '选择表格2
    ActiveSheet.PageSetup.PrintArea = ""   '取消打印区域
    ActiveWindow.SelectedSheets.PrintOut Copies:=1, Collate:=True     '打印
    ActiveWindow.Close saveChanges:=False     '关闭文件
Next
End Sub

全部回答

1楼网友：一秋
2021-11-09 12:30

代码的写法如下

Sub 打印()
Worksheets("Sheet1").PrintOut
End sub

请参考

2楼网友：北城痞子
2021-11-09 11:29

VBA打印表格的语句是：
Sheet1.PrintOut

3楼网友：毛毛
2021-11-09 10:20

按Alt+F11，在左栏点击ThisWorkBook，找到：
Private Sub Workbook_BeforePrint(Cancel As Boolean)
'输入需要在打印前完成的工作代码
End Sub

我要举报

如以上回答内容为低俗、色情、不良、暴力、侵权、涉及违法等信息，可以点下面链接进行举报！

点此我要举报以上问答信息