Export Single Slide as PDF (Current Slide)

[Brightspark9]

Hi,

Is it possible to export the current side as a PDF.

Example, I have a certificate at the end of a PPT that I would like to save as PDF once the training is completed.
I can export the whole show, but not a single slide.

I am using the following to export the whole show.

Public Sub ExportAsFixedFormat_Example()

ActivePresentation.ExportAsFixedFormat "C:\Profile\Documents\Certificate.pdf", ppFixedFormatTypePDF, ppFixedFormatIntentScreen, msoCTrue, ppPrintHandoutHorizontalFirst, ppPrintOutputBuildSlides, msoFalse, , , , False, False, False, False, False

End Sub

Any help would be greatly appreciated.

[John Wilson]

See if this does it:

Sub exportONE()
Dim PR As PrintRange
Dim lngLast As Long
Dim savePath As String
savePath = Environ("USERPROFILE") & "\Desktop\test.pdf"
lngLast = ActivePresentation.Slides.Count
With ActivePresentation.PrintOptions
.Ranges.ClearAll ' always do this
Set PR = .Ranges.Add(Start:=lngLast, End:=lngLast)
End With
ActivePresentation.ExportAsFixedFormat _
Path:=savePath, _
FixedFormatType:=ppFixedFormatTypePDF, _
Intent:=ppFixedFormatIntentScreen, _
FrameSlides:=msoTrue, _
ppRangeType:=ppPrintOutputSlides
End Sub

[Brightspark9]

Hi,

Thanks for the help, but I cant get this to work.

I have assigned it to a custom action button, the button activates during the slideshow when clicked, but nothing happens.

[John Wilson]

Somehow I copied the wrong module with several errors!

See if this does it.

Sub exportONE()
    Dim PR As PrintRange
    Dim lngLast As Long
    Dim savePath As String
    savePath = Environ("USERPROFILE") & "\Desktop\test2.pdf"
    lngLast = ActivePresentation.Slides.Count
    With ActivePresentation.PrintOptions
        .Ranges.ClearAll ' always do this
        Set PR = .Ranges.Add(Start:=lngLast, End:=lngLast)
    End With
    ActivePresentation.ExportAsFixedFormat _
    Path:=savePath, _
    FixedFormatType:=ppFixedFormatTypePDF, _
    PrintRange:=PR, _
    Intent:=ppFixedFormatIntentScreen, _
    FrameSlides:=msoTrue, _
    RangeType:=ppPrintSlideRange
End Sub

[Brightspark9]

Excellent.

Thanks for your help.

[Brightspark9]

John, thanks for all of your help so far.

How can I change the save location to the same location as where the PPT file is located.

Thanks again.

Sorry about that I have worked it out..

savePath = ActivePresentation.Path & "\" & "Module 1 Certificate" & ".pdf"

Thanks