ExcelWorksheet1.PrintPreview不能预览

Question

procedure TForm1.Button2Click(Sender: TObject);
begin
ExcelWorkBook1.ConnectTo(ExcelApplication1.Workbooks.Open('c:\a.xls',EmptyParam,EmptyParam,EmptyParam,EmptyParam,EmptyParam,EmptyParam,EmptyParam,EmptyParam,EmptyParam,EmptyParam,EmptyParam,EmptyParam,0));ExcelWorkSheet1.ConnectTo(ExcelWorkBook1.Activesheet as _Worksheet);ExcelWorksheet1.PrintPreview;
end;程序不能打开预览窗口,按钮一直处于按下状态.但改为ExcelWorksheet1.Printout却能打印,请大家帮忙.谢谢

Answer 1

用OLE控制EXCEL的吗？你可以模拟菜单输入打印命令。

Answer 2

ExcelWorksheet1.PrintPreview;
改为
ExcelApplication1.ActiveSheet.PrintPreview;

Answer 3

改为楼上的话,编译不能通过[DCC Error] Unit1.pas(83): E2003 Undeclared identifier: 'PrintPreview'

Answer 4

ExcelApplication1.Workbooks.Open('c:\a.xls',EmptyParam,EmptyParam,EmptyParam,EmptyParam,EmptyParam,EmptyParam,EmptyParam,EmptyParam,EmptyParam,EmptyParam,EmptyParam,EmptyParam,0)); ExcelApplication1.ActiveSheet.PrintPreview;

Answer 5

改为
ExcelWorkbook1.PrintPreview;由于没测试，可能不正确