Печать Файла На Принтер

[johnfx]

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

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

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

 

[demiware]

Юзай Shell api вот

Ссылка скрыта от гостей

Упс.. старое сообчение.