폼에서 ppt(2007)를 불러들여 프리뷰형식으로 화면에 뿌려주고 버튼을 클릭하면

프린터로 연결해주는 작업을 하고 있는데요.

ppt파일을 불러들이면 파일을 보존할건지, 열건지 물어보는 메시지 박스가 뜨고

열기를 선택하면 오피스프로그램이 기동되면서 화면에는 아무것도 뜨지 않습니다.

제 짧은 지식으로는 디버깅이나 수정이 쉽지않네요...

고수님들 도와주세요.

소스입니다.

// ppt파일 열기
procedure TPPTForm.btn_openClick(Sender: TObject);
var
  i :Integer;
begin
  OpenDialog.Filter := 'PowerPoint Files (*.ppt,*.pps,*.pptx)|*.PPT;*.PPS;*.PPTX';
  
  if OpenDialog.Execute and (OpenDialog.FileName<>'') then begin
    for i := 1 to 1000 do Application.ProcessMessages;
    FileName := '';
    PPTActive := False;
    WebBrowser.Navigate(OpenDialog.FileName);
  end;
end;

// 프린터로 출력
procedure TPPTForm.btn_convertClick(Sender: TObject);
var
  tmp   :String;
  i     :DWORD;
  cnt   :Integer;
  cmd   :String;
  FPPT,FPptPrst  : OleVariant ;

  begin
    tmp := OpenDialog.FileName;

    Try
      FPPT  := CreateOleObject('Powerpoint.Application');
      FPptPrst.Visible := False;
      FPPT.DisplayAlerts := False;
      FPptPrst := FPPT.Presentations.Open(tmp, TRUE, FALSE, FALSE);
      FPptPrst.PrintOut;
    Except
      Exit;
    end;
end;