Печать файла на принтер

[john ___________]

Вот на файл нажимаешь правой кнопкой мыши, там в меню есть "Печать", а как мне программно также вызвать? файлы *.xls, *.pdf, *.cdr. Делаю через comobj примерно так:

    FExcel := CreateOleObject('Excel.Application');
    FExcel.Workbooks.open(pa+'Data\ex_day.xls');
    XLWorkSheet := FExcel.ActiveWorkBook.ActiveSheet;
    XLWorkSheet.Activate;
    XLWorkSheet.print();

а попроще нельзя никак?
*.cdr так не могу открыть...

[Stilet]

*.cdr так не могу открыть...

Это Корреловский файл? Его и нужно открывать обьъектом коррела а не экзеля.
Или: Все открывай через ShellExecute.

[FaTaL]

Делай тогда лучше так

ShellExecute (Handle, 'print', 'Путь к файлу', nil, nil, 0);

В uses допиши ShellAPI