[Alex7]

Здравствуйте, два дня ищу, и не нашёл ни одного нормального ответа на вопрос: Как распечатать файл excel из Delphi с выбором принтера, я печатаю так, но только на принтере по умолчанию:

Код:

procedure TForm1.BtnPrintClick(Sender: TObject);
begin
  Apex := CreateOleObject('Excel.Application'); 
  Apex.Workbooks.Open(Ap+'akt.xlsx'); 
  Apex.Worksheets[1].PrintOut;
  Apex.DisplayAlerts:=false; 
  Apex.Quit; 
  Apex := Unassigned;
end;

Или как вызвать диалог печати самого Excel?
Заранее благодарю за ответы.