Public CurrentFolder As String
Public FileName As String
Public myPath As String
Public UniqueName As Boolean
Sub Auto_Close()
MsgBox "test"
myPath = ActivePresentation.FullName
CurrentFolder = ActivePresentation.Path & "\"
FileName = Mid(myPath, InStrRev(myPath, "\") + 1, _
InStrRev(myPath, ".") - InStrRev(myPath, "\") - 1)
MsgBox FileName
MsgBox myPath
MsgBox CurrentFolder
MsgBox "test" & myPath
ActivePresentation.ExportAsFixedFormat CurrentFolder & FileName & ".pdf", _
ppFixedFormatTypePDF, ppFixedFormatIntentPrint, msoCTrue, ppPrintHandoutHorizontalFirst, _
ppPrintOutputSlides, msoFalse, , ppPrintAll, , False, False, False, False, False
MsgBox "ok"
End Sub