Sub печатьPDf()
Range("B6").Select 'в ячейку вписана ссылка на htmlфайл
'запускается Google
Selection.Hyperlinks(1).Follow NewWindow:=False, AddHistory:=True
'здесь выдает ошибку
ActiveWindow.ExportAsFixedFormat _
    Type:=xlTypePDF, _
    Filename:=[b7].Value & ".pdf", _
    Quality:=xlQualityStandard, _
    IncludeDocProperties:=True, _
    IgnorePrintAreas:=False, _
    OpenAfterPublish:=True
End Sub

Sub Макрос1()

    Selection.Clear
    ActiveSheet.ListObjects("Таблица1").Resize Range("$A$1:$AI$2")
    Range("Таблица1[Дата выписки]").Select
    ActiveWorkbook.XmlMaps("Extract_карта").Import URL:= _
        "C:\obj_8fc68f72-37c1-4f32-a529-3d40411b390e.xml"
    ActiveWorkbook.XmlMaps("Extract_карта").Import URL:= _
        "C:\obj_b31dd8ce-1c4f-48a4-8297-4a47c2b76929.xml"
End Sub