OLE 嵌入WORD 打印预览问题(100分)

F

fly2003

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2006-04-24

• #1

如题，打印预览是灰色的。
通过vba的调用，没有反应，所有在显示上是灰色的用vba调用都是灰色。
procedure TForm1.print1Click(Sender: TObject);
var
IOO: IOleInPlaceObject ;
begin
OleContainer1.DoVerb(ovShow);
if OleContainer1.State in [osUIActive] then
begin
OleContainer1.OleObjectInterface.QueryInterface(IOleInPlaceObject,IOO);
IOO.UIDeactivate;
IOO :=nil;
end;
OleContainer1.OleObject.PrintPreview;
OleContainer1.DoVerb(ovShow);
OleContainer1.Align := OleContainer1.Align;
end;
我再贴子里查到的，也不行出来的是word一个界面，没能把预览内容出来。
看看大家有什么好的办法，讨论！

 

S

sipmaster

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2006-04-25

• #2

和用WordBasic的宏效果是一样的．
还有某位高人说的，放一个WordApplication,然后
oleVariant:=OleContainer1.OleObject;
WordApplication.Document[oleVariant].PrintPreview;
效果一样！

 

F

fly2003

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2006-04-25

• #3

就是出不来
这两种都是这样

 

小

小神通

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2006-04-25

• #4

按你的方法我曾经试过，可以预览excel，并且嵌入到OleContainer1里，word到没试过。
不过最保险的方法是不用OleContainer1的预览，我在excel里是这样处理的。
procedure TfrmMain.MsgPREVIEW(var Msg: TMessage);
var ExcelID: Variant;
FileName: string;
begin
BringToFront;
try
ExcelID := CreateOleObject('Excel.Application');
OleContainer1.SaveAsDocument(ExcelFileName);
FileName := ExcelFileName;
ExcelID.WorkBooks.Open(FileName);
ExcelID.Visible := True;
ExcelID.ActiveSheet.PrintPreview;
finally
ExcelID.ActiveWorkBook.Saved := True;
ExcelID.WorkBooks.Close;
ExcelID.Quit;
end;
end;

 

F

fly2003

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2006-04-25

• #5

word不行 ，不一样

 

蓝

蓝叶菱

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2006-04-25

• #6

这个文的我也见过，我做的项目就有，不过我通过对WORD的锁定解决的。
锁定WORD不是预览，起码能够浏览。

 

F

fly2003

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2006-04-26

• #7

独自等待 高人相助

 

F

fly2003

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2006-05-08

• #8

假期度过 问题依然

 

2

2ys

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2006-05-08

• #9

我也有同样的问题．

 

F

fly2003

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2006-05-18

• #10

还是等待
这么长时间也没有人回复！

 

X

xfast

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2006-05-18

• #11

try
oleContainer1.Loadfromfile(FFileName);
except
oleContainer1.CreateObjectfromfile(FFileName, False);
End;
olecontainer1.oleobject.application.wordbasic.fileprintpreview;
oleContainer1.DoVerb(ovShow) ;

 

Z

ZengMuAnSha

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2006-06-14

• #12

你们知道用OleContainer打开了Word如何屏蔽Ctrl+P的打印功能？

 

F

fly2003

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2006-06-15

• #13

问题 依然

 

I

iseek

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2006-06-15

• #14

小神通的办法都不行？
按理应该可以啊.我还正打算这么做呢.
另外,如果EXCEL可以,WORD没理由不可以呀.
是不是调用预览的方法有问题呢？

 

F

fly2003

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2006-08-17

• #15

看来是解决不了
楼上的
word与excel的预览机制不同

 

N

nicki

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2006-08-17

• #16

好像没有办法哦，我已前也用到了，上网也是查无音讯，以来就进行word中进行预览了。[]
有办法的话告诉我一下