一、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