我用的是
vWord := CreateOleObject('Word.Application') ;//´´½¨WordÏß³Ì
try
vDoc := vWord.Documents.Open('E:\1.doc');
vWord.visible:=true;
vWord.activate;
// vWord.PrintPreviewZoom:=75;????
vWord.PrintPreview:=true;
except
showmessage('!');
vWord := CreateOleObject('Word.Application') ;//´´½¨WordÏß³Ì
try
vDoc := vWord.Documents.Open('E:\1.doc');
vWord.visible:=true;
vWord.activate;
// vWord.PrintPreviewZoom:=75;????
vWord.PrintPreview:=true;
except
showmessage('!');
解决方案 »
免费领取超大流量手机卡,每月29元包185G流量+100分钟通话, 中国电信官方发货