你给的代码出现了.Address编译错误: 编译错误： 方法和数据成员未找到 方法和数据成员未找到

非常抱歉，我的回答中有误。在 VBA 中，`Address` 是 `Range` 对象的一个属性，而不是方法或数据成员。因此，不需要在 `Address` 后面加上括号。

以下是修改后的代码：

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

再次感谢你的指出，希望我的回答能够帮到你。