Einzelnen Beitrag anzeigen

tomkupitz

Registriert seit: 26. Jan 2011
264 Beiträge
 
Delphi 10.4 Sydney
 
#1

Gnostice eDocEngine VCL - XLSEngine

  Alt 14. Sep 2021, 19:37
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
  Mit Zitat antworten Zitat