Hallo Ykcim,
hier eine Routine die das Workbook ausdruckt, ich habe nur die Seitenansicht angestellt. Da eine neue Excel - Instanz geöffnet wird sind keine Probleme mit anderen Excel - Instanzen die geöffnet sind zu erwarten.
Delphi-Quellcode:
procedure Excel_Export(DateiName: TFileName; Drucken: boolean);
var
oEXCEL : OLEVariant;
begin
try
oEXCEL := CreateOleObject('Excel.Application');
except
ShowMessage('Excel konnte nicht gestartet werden !');
Exit;
end;
oEXCEL.Visible:= TRUE;
oEXCEL.Workbooks.Open (Filename:=DateiName,ReadOnly:=TRUE);
if Drucken then
begin
oExcel.ActiveSheet.PrintOut (Preview:=TRUE); //Seitenansicht angestellt
end;
if NOT VarIsEmpty(oEXCEL) then
begin
oEXCEL.ActiveWorkBook.Saved:= TRUE;
oEXCEL.Quit;
oEXCEL:= Unassigned;
end;
end;
Bis bald Chemiker