如何用delphi实现把word的内容打印到文件 ( 积分: 50 )

我使用的是delphi7和word2000
这是delphi参数说明:
WordApplication1.PrintOut(Background, Append, Range, OutputFileName,
From, To, Item, Copies, Pages, PageType, PrintToFile,
Collate, FileName, ActivePrinterMacGX, ManualDuplexPrint,
PrintZoomColumn, PrintZoomRow, PrintZoomPaperWidth,
PrintZoomPaperHeight)
这是我从word中得到的宏
Application.PrintOut FileName:="", Range:=wdPrintAllDocument, Item:= _
wdPrintDocumentContent, Copies:=1, Pages:="", PageType:=wdPrintAllPages, _
ManualDuplexPrint:=False, Collate:=True, Background:=True, PrintToFile:= _
True, PrintZoomColumn:=0, PrintZoomRow:=0, PrintZoomPaperWidth:=0, _
PrintZoomPaperHeight:=0, OutputFileName:="", Append:=False
可是我使用WordApplication1.PrintOut的时候总是提示类型不匹配.我不知是我那里没有写对.希望大家帮帮忙.谢谢!

我使用的是delphi7和word2000
这是delphi参数说明:
WordApplication1.PrintOut(Background, Append, Range, OutputFileName,
From, To, Item, Copies, Pages, PageType, PrintToFile,
Collate, FileName, ActivePrinterMacGX, ManualDuplexPrint,
PrintZoomColumn, PrintZoomRow, PrintZoomPaperWidth,
PrintZoomPaperHeight)
这是我从word中得到的宏
Application.PrintOut FileName:="", Range:=wdPrintAllDocument, Item:= _
wdPrintDocumentContent, Copies:=1, Pages:="", PageType:=wdPrintAllPages, _
ManualDuplexPrint:=False, Collate:=True, Background:=True, PrintToFile:= _
True, PrintZoomColumn:=0, PrintZoomRow:=0, PrintZoomPaperWidth:=0, _
PrintZoomPaperHeight:=0, OutputFileName:="", Append:=False
可是我使用WordApplication1.PrintOut的时候总是提示类型不匹配.我不知是我那里没有写对.希望大家帮帮忙.谢谢!

既然你又了这段宏,那就慢慢试着改吧.这些东西都是试出来的.

我试过好多次了.
我可能是在哪个地方没有注意到,所以才想让大家帮我看看.

首先建立连接，把数据传到word中就可以了。方法有多种，如通过创建对象的方法：creatobject();