Per Delphi-OLE PDF über mehrere Excel-Arbeitsblättern erstellen

[norwegen60]

Hallo zusammen,

ich speichere per

Delphi-Quellcode:

var
     ovExcelApp, ovDoc, ovSheet: OLEVariant;
begin
  ovExcelApp := CreateOLEObject('Excel.Application');
  ovExcelApp.Visible := False;
  ovDoc := ovExcelApp.Workbooks.Open(sDocument, EmptyParam, true, EmptyParam, sPW, sPW, EmptyParam, EmptyParam, EmptyParam, EmptyParam);
  ovDoc.Sheets[2].Select;
  ovSheet := Doc.ActiveSheet;
  ovSheet.ExportAsFixedFormat(0, sVersDoc, EmptyParam,
                               EmptyParam,
                               EmptyParam,
                               EmptyParam,
                               EmptyParam,
                               EmptyParam, //set to True to open Acrobat
                               EmptyParam
                               );

ein Excel-Dokument als PDF ab.

Wie kann ich in dem Excel-Dokument alle Arbeistblätter (und nicht nur wie oben Arbeitsblatt 2) selektieren, so dass alle als PDF gespeichert werden.

Ich habe alle Sicherheitsabfragen und den Schließvorgang aus obigem Code mal weggelassen.

Danke
Gerd