Delphi如何实现打印 PPT 文件？

Question

我想用类似Word的方法实现在Delphi中打印PPT的功能。如下，会报错
var msppt : OleVariant;
begin
  msword:=createoleobject('PowerPoint.application');
  msword.documents.open('c:\test.ppt');
  msword.PrintOut;
end;我尝试了用了几个PowerPoint控件，好像都不支持打印功能。其中有个 
PowerPointPresentation1.printout()运行时报错“未指定的错误”

Answer 1

试试用 ShellExecute(Handle, 'print', PChar('d:\abc.ppt'), nil, nil, SW_HIDE) ;

Answer 2

uses shellapi;
ShellExecute(Handle,'print',PChar('c:\test.ppt'),nil,nil,SW_HIDE) ;