怎么我的delphi程序中调用excel的printpreview没反应啊

Question

怎么我的delphi程序中调用excel的printpreview没反应啊 ,一直运行,又不报错

Answer 1

打印预览工作表:
ExcelApp.ActiveSheet.PrintPreview;
打印输出工作表:
ExcelApp.ActiveSheet.PrintOut;

Answer 2

var
  ea:variant;
{$R *.dfm}
procedure Tform1.rectoexcel(fname:string);
var
  ss:string;
  i:integer;
begin
  try
    EA:=CreateOleObject('Excel.Application');
  except
    application.MessageBox('NO EXCEL','', MB_OK);
    EXIT;
  end;
  EA.Visible := true;
  application.BringToFront;
  EA.WorkBooks.Add;
  EA.Cells[1,1]:='1';
  EA.Cells[1,2]:='2';
  ea.ActiveSheet.PrintPreview;
  EA.ActiveWorkBook.Saveas(fname);
  ea.quit;
  ea:=unassigned;
END;procedure TForm1.Button1Click(Sender: TObject);
begin
  savedlg.Filter:='Excel files (*.xls)|*.xls';
  if not savedlg.Execute then exit;
  rectoexcel(savedlg.FileName);
end;
我试了好用的