用宏实现Excel批量打印第一页工作表

批量打印Excel时，以下代码可以实现按清单和按文件夹（含子文件夹打印）：

Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean)
Dim iPath As String, i As Long
Dim t
Dim PathLen As Integer
Dim RunSignal As Variant, Reply As Variant
Dim Tr As Single, Tc As Single

Tr = Target.Row
Tc = Target.Column
If Tr = 1 ThenIf Tc = 1 ThenRunSignal = "List"Reply = MsgBox("This operation will print out files listed in column A! Please make sure your print setting is excellent enough!", vbOKCancel, "Warning")If Reply = vbCancel ThenExit SubEnd IfElseIf Tc = 3 ThenRunSignal = "Folder"Reply = MsgBox("This operation will list all files in specified folder first. And then, print out! Please make sure you choosed the right folder!", vbOKCancel, "Warning")If Reply = vbCancel ThenExit SubEnd IfElseExit SubEnd If
ElseExit Sub
End If

t = Timer
Application.ScreenUpdating = False
If RunSignal = “List” Then
GoTo Line1
ElseIf RunSignal = “Folder” Then
ActiveSheet.UsedRange.Offset(1, 2).ClearContents
End If

With Application.FileDialog(msoFileDialogFolderPicker).Title = "Select a folder please!"If .Show TheniPath = .SelectedItems(1)PathLen = Len(iPath)ElseExit SubEnd If
End WithIf iPath = "False" Or Len(iPath) = 0 Then Exit Subi = 1Call GetFolderFile(iPath, i)

Line1: Call PrintFiles(RunSignal)
MsgBox “Completed in " & Int((Timer - t) / 3600) & " hours " & Int(((Timer - t) Mod 3600) / 60) & " minutes " & (Timer - t) Mod 60 & " seconds!”, vbOKOnly, “Time record”
Application.ScreenUpdating = True
End Sub

Private Sub GetFolderFile(ByVal nPath As String, ByRef iCount As Long)
Dim iFileSys

Dim J As Single
Dim Process As Variant, P As Integer
Dim ProcessLen As Integer

Set iFileSys = CreateObject(“Scripting.FileSystemObject”)
Set ifolder = iFileSys.GetFolder(nPath)
Set sfolder = ifolder.SubFolders
Set ifile = ifolder.Files

With ActiveSheetFor Each gfile In ifileIf gfile.Type Like "*Excel*" And Not gfile.Path Like "*~$*" Then.Cells(iCount + 1, 3) = gfile.Path.Cells(iCount + 1, 4) = gfile.DateLastModified.Cells(iCount + 1, 5) = gfile.parentfolder.Hyperlinks.Add anchor:=.Cells(iCount + 1, 6), Address:=gfile.Path, TextToDisplay:=gfile.NameiCount = iCount + 1End IfNextEnd WithFor Each nfolder In sfolder 'Search all the foldersCall GetFolderFile(nfolder.Path, iCount)
Next

End Sub

Sub PrintFiles(ByVal RunSignal As Variant)

Dim Wb As Workbook
Dim Sho As Worksheet
Dim Fs As Single, FCount As Single, C As Single

Application.DisplayAlerts = False

Set Sho = ActiveSheet
If RunSignal = “List” Then
C = 1
ElseIf RunSignal = “Folder” Then
C = 3
End If

FCount = Sho.Cells(10000, C).End(xlUp).Row

If FCount <= 2 Then
MsgBox (“Nothing can be printed!”)
Exit Sub
Else
For Fs = 2 To FCount
Set Wb = Workbooks.Open(Sho.Cells(Fs, C).Text)
Wb.Sheets(1).PrintOut
Wb.Close savechanges = False
Next
End If

Application.DisplayAlerts = True

End Sub

懒人专用文档_3积分下载

用宏实现Excel批量打印第一页工作表相关推荐

Excel批量对所有的工作表设置保护的操作
好了一个工作簿中既有隐藏的表格,又有显示的表格,现在小编要通过Excel批量对所有的工作表设置保护的操作 (方方格子插件) 1.先看动图演示吧 2.好了直接选择方方格子按钮 3.选择其中的工作表操作 ...
Excel批量打印多个工作簿活动工作表的操作
今天要和大家分享的是,Excel批量打印多个Excel工作簿文件当前工作表的第一页,看小编如何操作吧 (方方格子插件) 1.首先看动图吧 2.首先打开一个空白工作表,作为操作的平台 3.选择diy工具 ...
怎么将 Excel 中的第一个工作表或者其它指定的工作表批量替换成新的内容？
概要:在我们日常办公中,经常会碰到需要替换 Excel 中的某一个 Sheet 或者某几个 Sheet 的功能,「我的ABC软件工具箱」就实现了批量替换指定 Sheet 的功能,可以轻松实现对 Exc ...
Excel 批量打印合集1.0测试版发布
版本已更新,请到这里查看 (此版本比较稳定,能够批量打印工作簿,批量打印工作表,批量加密,批量解密,批量转换格式) 能够打印指定的一批工作簿.工作表,对表格指定位置依次填充指定的数据然后打印.附加于 ...
【解决】打印机只打印第一页纸的问题
今公司的一台打印机奇怪的出现了这样的问题,前几天还一切正常,而现我们在打印多页纸的时候它只给我打印第一页,起初以为打印机自己出问题了,检查如下: 1.打印机设置正常 2.共享打印机也正常 3.打印机复 ...
Python+Excel系列：案例六：批量打印工作簿、批量打印多个工作簿中的指定工作表
文章目录批量打印工作簿批量打印多个工作簿中的指定工作表批量打印工作簿专门用于打印的函数PrintOut() import os #导入os模块 import xlwings as xw #导入 ...
C# 获取Excel工作薄中Sheet页(工作表)名集合
#region 获取Excel工作薄中Sheet页(工作表)名集合/// <summary> /// 获取Excel工作薄中Sheet页(工作表)名集合/// </summary&g ...
python 表格输出到pdf_用python将excel文件中选定的工作表打印为pdf
我需要编写一个python脚本来读取excel文件,找到每个工作表,然后用excel中定义的标准格式将它们打印成pdf. 这使我能够找到每个工作表的名称.import xlrd book = xlrd ...
C# 获取Excel工作薄中Sheet页(工作表)名集合
#region 获取Excel工作薄中Sheet页(工作表)名集合/// <summary> /// 获取Excel工作薄中Sheet页(工作表)名集合/// </summary&g ...

用宏实现Excel批量打印第一页工作表

用宏实现Excel批量打印第一页工作表相关推荐

最新文章

热门文章