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