delphi打印word

  fileName := 'c:\test.doc';

  word := CreateOleObject('Word.Application');

  word.Documents.open(fileName);

  word.Application.PrintOut;

  word.quit;

  word := Unassigned;