delphi打印word

一、delphi怎么打印文件

procedure TForm1.PrinterSetupExecute(Sender: TObject);

begin

PrinterSetupDialog1.Execute;

end;

procedure TForm1.PrintExecute(Sender: TObject);

begin //列印分页

if PrintDialog1.Execute=True then

RichEdit1.Print(Form1.Caption);

end;

or

if printdialog1.execute then

PrintStrings(RichEdit1.Lines);

二、高手问五我想在Delphi程序中直接调用Word文档并使用Wor

方法一：1）从WORD.EXE中导入WORD的TypeLibrary2)varwd:_Application; , :='c:\abc.dot';wd:=coApplication_.Create;wd.Documents.Add(dot1,EmptyParam);wdt:=wd.ActiveDocument.Tables.Item(1);wdt.Cell(1,3).Range.Text:='Hello！'；//以下是保存和关闭文档及Word，可以不关，下面两个例程略过此步。

//EmptyParam用来代替不使用的参数。FileName:='c:\test.doc';wd.ActiveDocument.SaveAs(FileName,EmptyParam,EmptyParam,EmptyParam,EmptyParam,EmptyParam,EmptyParam,EmptyParam,EmptyParam,EmptyParam,EmptyParam);wd.ActiveDocument.Close(EmptyParam,EmptyParam,EmptyParam);wd.Quit(EmptyParam,EmptyParam,EmptyParam);end；方法二： ：Variant； //方法二的参数可以直接使用Delphi的数据类型。

其它方法只能使用OleVariant类型.Ole:=CreateOleObject('Word.Application');Ole.Application.Visible:=true;NewDoc:=Ole.Documents.Add('C:\abc.dot');DocTable:=NewDoc.Tables.Item(1);DocTable.Cell(1,3).Range.Text:='Hello！'；//设置Variant对象为UnAssigned来释放该对象的引用。NewDoc:=UnAssigned;DocTable:=UnAssigned;Ole:=UnAssigned;end；方法三：使用Server页的TWordApplication控件，同理，你可以用里头的所有控件。

Ole为TWordApplication控件名称。 ：Variant;o:OleVariant;begino:='c:\abc.dot';NewDoc:=Ole.Documents.Add(o,EmptyParam);DocTable:=NewDoc.Tables.Item(1);DocTable.Cell(1,3).Range.Text:='Hello!';NewDoc:=UnAssigned;DocTable:=UnAssigned;end；推荐用方法一和方法三。

因为方法二不提供类型参数检查，也因为方法二的接口调用效率低。程序中所使用的属性和方法资料可以在Office的VBA帮助中查到。

需要者请在安装Office时选择安装VBA编程帮助。

转载请注明出处51数据库 » delphi打印word