直接打开WORD文档ShellExecute(Handle, 'open', PChar('c:\document.doc'),nil, nil, SW_SHOW);打印ShellExecute(Handle, 'print', PChar('c:\document.doc'), nil, nil, SW_HIDE) ;