auf geöffnete Excel-Datei zugreifen, um sie auszudrucken

[Susanne]

Hallo,

ich möchte auf eine schon geöffnete Exceldatei zugreifen und diese ausdrucken, wie mache ich das? Soweit bin ich schon:

Delphi-Quellcode:

var
  Excel: TExcelApplication;
begin
  try
    Excel := TExcelApplication.Create(nil);
   
   //auf schon geöffnete Datei zugreifen
    Excel.visible:= true;
    Excel.Worksheets.PrintOut(1, 1, 1, false, null, null, true, null, 0);
    Excel.Quit;
    Excel.Disconnect;
    FreeAndNil(Excel);
  except 
  end;
end;

Hoffe, es kann mir jemand helfen.
Vielen Dank.

[marabu]

Hallo Susanne,

meinst du mit "geöffnete Exceldatei", dass diese bereits mit Excel außerhalb deines Programms geöffnet wurde?

Vielleicht funktioniert es so:

Delphi-Quellcode:

var
  Excel: TExcelApplication;
begin
  Excel := TExcelApplication.Create(Application);
  try
    Excel.ConnectKind := ckRunningInstance;
    Excel.Connect;
    // ...
    Excel.Worksheets.PrintOut(1, 1, 1, false, null, null, true, null, 0);
    Excel.Quit;
    Excel.Disconnect;
  except
    FreeAndNil(Excel);
  end;
end;

Freundliche Grüße