P
pm
hello,
finally i have code as below:
Public Sub PPTPrint()
Dim PPObj As Object
Set PPObj = CreateObject("PowerPoint.application")
With PPObj
.presentations.Add
.presentations.Open Filename:="F:\Analizy ISI\pl\prob.ppt"
.Visible = True
.Run "Prob.ppt!UpdtAll"
.presentations("prob.ppt").Save
With PPObj.ActivePresentation.PrintOptions
.PrintInBackground = msoFalse
.RangeType = ppPrintAll
.Collate = msoTrue
.PrintColorType = ppPrintColor
.FitToPage = msoFalse
.FrameSlides = msoFalse
.ActivePrinter = "Adobe PDF"
End With
PPObj.ActivePresentation.PrintOut copies:=1
.presentations("prob.ppt").Close
End With
End Sub
but i have several problems and questions.
- during printing whole process stops at buffering to file
- i do not know how print to pdf (or ps) with given name and target folder
- how clear cache (or buffor) after printing
finally i have code as below:
Public Sub PPTPrint()
Dim PPObj As Object
Set PPObj = CreateObject("PowerPoint.application")
With PPObj
.presentations.Add
.presentations.Open Filename:="F:\Analizy ISI\pl\prob.ppt"
.Visible = True
.Run "Prob.ppt!UpdtAll"
.presentations("prob.ppt").Save
With PPObj.ActivePresentation.PrintOptions
.PrintInBackground = msoFalse
.RangeType = ppPrintAll
.Collate = msoTrue
.PrintColorType = ppPrintColor
.FitToPage = msoFalse
.FrameSlides = msoFalse
.ActivePrinter = "Adobe PDF"
End With
PPObj.ActivePresentation.PrintOut copies:=1
.presentations("prob.ppt").Close
End With
End Sub
but i have several problems and questions.
- during printing whole process stops at buffering to file
- i do not know how print to pdf (or ps) with given name and target folder
- how clear cache (or buffor) after printing