Attribute VB_Name = "Module3"
Sub Export_PDF()
Attribute Export_PDF.VB_ProcData.VB_Invoke_Func = " \n14"


'
' Макрос1 Макрос
'

'ActiveWorkbook.FullName

FName = ActiveWorkbook.FullName
fsave = Left(FName, InStrRev(FName, ".") - 1)


ActiveWorkbook.ExportAsFixedFormat Type:=xlTypePDF, _
   Filename:=fsave & ".pdf", Quality:= _
    xlQualityStandard, IncludeDocProperties:=True, IgnorePrintAreas:=False, _
    OpenAfterPublish:=True

End Sub