Print to PDF

[BeanheadDean]

I've got a PPT that I need to print out to multiple PDFs (every two pages). How do I specify file names, location, and have it prompt the save?

This works to a point but I have to pick the location and file name and then prompt the save for each one. Adobe PDF is set an active printer. Any help would be greatly appreciated.

Thanks!

Dean

Here's what I've got so far (just starting with the first two PDFs):



Sub Printing_batch_test()


With ActivePresentation.PrintOptions
.RangeType = ppPrintSlideRange
With .Ranges
.ClearAll
.Add Start:=1, End:=2
End With
.NumberOfCopies = 1
.Collate = msoTrue
.OutputType = ppPrintOutputSlides
.PrintHiddenSlides = msoTrue
.PrintColorType = ppPrintColor
.FitToPage = msoFalse
.FrameSlides = msoFalse
.ActivePrinter = "Adobe PDF"



ActivePresentation.PrintOut


End With


With ActivePresentation.PrintOptions
.RangeType = ppPrintSlideRange
With .Ranges
.ClearAll
.Add Start:=3, End:=4
End With
.NumberOfCopies = 1
.Collate = msoTrue
.OutputType = ppPrintOutputSlides
.PrintHiddenSlides = msoTrue
.PrintColorType = ppPrintColor
.FitToPage = msoFalse
.FrameSlides = msoFalse
.ActivePrinter = "Adobe PDF"




End With
ActivePresentation.PrintOut
End Sub