[Alex7]

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

Код:

1 2 3 4 5 6 7 8 9

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?
Заранее благодарю за ответы.