strfName = dosyayolu & Me.avansYili & "\" & Me.konusu & "\" & Me.avansMutemediAdiSoyadi & ".pdf"

 

 With Worksheets("hizmetIsleriKabulTutanagi")

        .ExportAsFixedFormat Type:=xlTypePDF, Filename:=strfName, Quality:=xlQualityStandard, IncludeDocProperties:=True, IgnorePrintAreas:=False, OpenAfterPublish:=True

 End With