一个直接打印文档的问题。不能出现对话框的界面。一周了还没有搞定(12分)

ShellExecute(Handle, 'print', PChar('D:/2.DOC',nil , nil, SW_HIDE);
能打印，就是它总把WORD也打开，还要出一个“正在打印第XX页　文档D:/2.DOC　位置　打印机名”。我希望什么也不要出，因为我要做一个系统服务所以，它什么也不能出。
我实现地方法2：
procedure TForm1.Button1Click(Sender: TObject);
var
ExcelApp:OleVariant;
begin

ExcelApp:=CreateOleObject('Excel.Application');
ExcelApp.WorkBooks.Open( 'd:/1.xls' );
ExcelApp.Visible := false;
ExcelApp.ActiveWorkBook.Saved := True;
ExcelApp.ActiveSheet.PrintOut;
ExcelApp.Quit;
end;

这样不会出现Excel，还是会出那个
“正在打印第XX页　文档d:/1.xls　位置　打印机名”
如何才能把那个“正在打印”的窗口不出现。就能去打印？

可以用Rave，再用语句连接该组件。

能具体一点吗？谢了

Rave在delphi7的组件栏里。有一个可视的设计环境。一切设置都在这个组件里完成。不需要用语句来定义格式等等。