我在OleContainer中创建了一个TExcelWorkBook对象,然后再其中添加了一个WorkSheet, 程序运行以后发现界面上的Excel的打印按钮时不可用的,请问是否在这种情况下不能使用Excel的打印功能还是别的原因,如果能使用望指教!

解决方案 »

  1.   

    OC: TOleContainer; OC.OleObject.ActiveSheet.PrintPreview;
      

  2.   

    可以有打印功能和预览功能procedure TForm1.Button1Click(Sender: TObject);
    begin
    OleContainer1.CreateObjectFromFile('c:\tt.xls',false);
    OleContainer1.DoVerb(0);
    end;procedure TForm1.Button2Click(Sender: TObject);
    begin
    OleContainer1.OleObject.ActiveSheet.PrintPreview;
    end;procedure TForm1.Button3Click(Sender: TObject);
    begin
    OleContainer1.OleObject.ActiveSheet.PrintOut;
    end;
      

  3.   

    OleContainer1.OleObject.ActiveSheet.PrintPreview;
    执行这条语句时报错:类WorkSheet的PrintPreView方法无效;不知是何原因?环境描述: Delphi7
              office2003
              我的机器没有打印机
              windows2000 professinal