vba 打印excle指定路径中的指定表格内指定表头的完整代码,
时间: 2024-03-11 10:49:06 浏览: 65
好的,下面是一个简单的 VBA 代码示例,用于打印指定路径下的 Excel 文件中的指定表格内指定表头的数据:
```
Sub PrintData()
Dim wb As Workbook
Dim ws As Worksheet
Dim printRange As Range
Dim header As String
'设置工作簿路径和文件名
Set wb = Workbooks.Open("C:\example\example.xlsx")
'设置工作表名称
Set ws = wb.Sheets("Sheet1")
'设置要打印的区域
Set printRange = ws.Range("A1:F20")
'设置要打印的表头
header = "Name"
'查找表头所在列
headerColumn = WorksheetFunction.Match(header, printRange.Rows(1), 0)
'设置打印区域
ws.PageSetup.PrintArea = printRange.Address
'设置纸张大小
ws.PageSetup.PaperSize = xlPaperA4
'设置打印方向
ws.PageSetup.Orientation = xlPortrait
'设置边距
With ws.PageSetup
.LeftMargin = Application.InchesToPoints(0.5)
.RightMargin = Application.InchesToPoints(0.5)
.TopMargin = Application.InchesToPoints(0.5)
.BottomMargin = Application.InchesToPoints(0.5)
End With
'设置页眉页脚
ws.PageSetup.LeftHeader = "&""Arial,Bold""第一页"
'筛选出包含指定表头的行
printRange.AutoFilter Field:=headerColumn, Criteria1:=header
'打印筛选后的区域
printRange.SpecialCells(xlCellTypeVisible).PrintOut
'取消筛选
ws.ShowAllData
'关闭工作簿
wb.Close SaveChanges:=False
End Sub
```
这个代码会打开指定路径下的 Excel 文件,然后在指定的工作表里找到指定的表头,并打印出包含该表头的行。你可以根据需要进行修改。
阅读全文