Gnostice eDocEngine VCL - XLSEngine

[tomkupitz]

Hallo,

wir haben hier die Gnostice eDocEngine VCL, die wir für unseren PDF Export benutzen. Nun wollte ich auch die XLSEngine testen und komme nicht weiter.

Ich habe das Beispiel der Homepage etwas erweitert, da ich gern Zellen auf mehreren Sheets füllen will:

Code:

procedure TForm1.FormClick(Sender: TObject);
var gtXLSEngine1: TgtXLSEngine;

begin
  gtXLSEngine1:=TgtXLSEngine.Create(nil);

  try
    gtXLSEngine1.Preferences.OpenAfterCreate:=False;
    gtXLSEngine1.Preferences.ShowSetupDialog:=False;

    with gtXLSEngine1 do
    begin
      FileName:='C:\Sample.xls';

      BeginDoc;
      TextOut(0, 0, 'A', haLeft, ctString);
      NewSheet;
      TextOut(0, 0, 'B', haLeft, ctString);
      NewSheet;
      TextOut(0, 0, 'C', haLeft, ctString);
      EndDoc;
    end;

  finally
    gtXLSEngine1.Free;
  end;
end;

Leider erscheit nur A auf dem 3. Sheet. Hat jemand Erfahrungen damit und kann ggf. ein Beispiel geben?

Danke und beste Grüße