Печать файла excel Delphi 7

[Alex711]

Здравствуйте, два дня ищу, и не нашёл ни одного нормального ответа на вопрос: Как распечатать файл 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?
Заранее благодарю за ответы.

[PTyTb32]

заметил что форма настройки каждого принтера уникальна? я пытался ее вызвать и познал фиаско.. но принтер выбрать мог, не помню как но исходники есть, если очень нужно на днях могу найти

[Alex711]

PTyTb32 найди пожалуйста, очень надо.

[Аватар]

https://www.planetaexcel.ru/forum/in...ID=1&TID=83806

[PTyTb32]

так прога печатает
ap.Workbooks[1].printout(1, 2, 1, false, PrinterName);

вот функция
expression. PrintOut( _From_ , _To_ , _Copies_ , _Preview_ , _ActivePrinter_ , _PrintToFile_ , _Collate_ , _PrToFileName_ , _IgnorePrintAreas_ )
Взята с микрософта


видимо главнфй параметр тут - PrinterName
он задается тут

procedure TFSittingsPrinter.Button1Click(Send er: TObject);
var
i: integer;
begin
for i := 0 to MDIChildCount - 1 do
if MDIChildren[i] is TFPrintpl then
begin
(MDIChildren[i] as TFPrintpl).PrinterName :=
ListBox1.Items[ListBox1.ItemIndex];
(MDIChildren[i] as TFPrintpl).Ini.WriteString('Sitting s', 'Printer',
ListBox1.Items[ListBox1.ItemIndex]);
Exit;
end;

end;


а лист бокс набирается тут
procedure TFSittingsPrinter.FormShow(Sender: TObject);
begin
Label5.Caption := GetDefaultPrinter;
ListBox1.Items.Clear;
for i := 0 to Printer.printers.Count - 1 do
ListBox1.Items.add(Printer.printers .Strings[i]);

end;

а это в юзес printers

[Alex711]

Вывел установленные принтеры в ListBox, с функцией:
expression. PrintOut( _From_ , _To_ , _Copies_ , _Preview_ , _ActivePrinter_ , _PrintToFile_ , _Collate_ , _PrToFileName_ , _IgnorePrintAreas_ )
ничего не понятно, как использовать?

[Alex711]

Спасибо PTyTb32, из твоего кода поубирал лишнего и немного переделал, всё работает, ты очень помог!