请教打印问题：TOleContainer加载Word文件后，如何调用打印？-CSDN论坛

⋅请教打印问题：TOleContainer加载Word文件后，如何调用打印？ ⋅请大侠请教：Delphi做的IE控件（OCX）无法调用DLL的问题 ⋅idFTP多线程下载并发问题，并发无法超过2个，谢谢高手指点。 更多帖子 关注私信空间博客 yuetianbao 本版专家分：233 结帖率 96.88%: 使用了如下方法，但不行：

--加载
OleContainer1.DestroyObject;
OleContainer1.CreateObjectFromFile(‘D:\A.doc’, False);

--打印预览
OleContainer1.OleObject.Application.ActiveDocument.PrintPreview;

--报错：
Project Project1.exe raised exception class EIntfCastError with message 'Interface not supported'. Process stopped. Use Step or Run to continue.

--调试时查看OleObject，没有值，直接异常了

0 2018-10-27 15:12:59

回复数 3 只看楼主引用举报楼主

⋅菜鸟问题：Ctrl+F5可以运行，exe文件不能运行 ⋅菜鸟问题：VC++中SQL语句长度是否不能超过255个字符 更多帖子 关注私信空间博客 wdonghai 本版专家分：2873



procedure TForm1.Button1Click(Sender: TObject);

begin

  OleContainer1.DestroyObject;

  OleContainer1.CreateObjectFromFile('D:\A.doc', false);

  OleContainer1.DoVerb(ovShow);

  OleContainer1.Run;

  OleContainer1.OleObject.Application.ActiveDocument.PrintOut;

end;

1 2018-10-29 12:03:50

只看TA 引用举报 #1 得分 0

⋅请教打印问题：TOleContainer加载Word文件后，如何调用打印？ ⋅请大侠请教：Delphi做的IE控件（OCX）无法调用DLL的问题 ⋅idFTP多线程下载并发问题，并发无法超过2个，谢谢高手指点。 更多帖子 关注私信空间博客 yuetianbao 本版专家分：233: 感谢1楼，能正常打印，但有个新问题：每次加载后都在窗口顶端显示了一个Word工具条，并且OleContainer进入了编辑模式，怎么去掉工具条和编辑模式？

0 2018-11-09 17:29:45

只看TA 引用举报 #2 得分 0

⋅菜鸟问题：Ctrl+F5可以运行，exe文件不能运行 ⋅菜鸟问题：VC++中SQL语句长度是否不能超过255个字符 更多帖子 关注私信空间博客 wdonghai 本版专家分：2873



procedure TForm1.Button1Click(Sender: TObject);

begin

  OleContainer1.DestroyObject;

  OleContainer1.CreateObjectFromFile('D:\A.doc', false);

  OleContainer1.DoVerb(ovShow);

  OleContainer1.Run;

  OleContainer1.OleObject.Application.ActiveDocument.Protect(2);

  OleContainer1.OleObject.application.CommandBars['Standard'].Visible:=false;

  OleContainer1.OleObject.application.CommandBars['Formatting'].Visible:=false;

  OleContainer1.OleObject.application.CommandBars['Reviewing'].Visible:=false;

  OleContainer1.OleObject.Application.ActiveDocument.PrintOut;

end;

0 2018-11-12 10:35:50

只看TA 引用举报 #3 得分 0

请教打印问题：TOleContainer加载Word文件后，如何调用打印？ [问题点数：100分]