22. Juni 2007 10:36
22. Juni 2007 12:45
Field No.  Field Name    Data Type  Length
50000      FontName      Text       30
50001      FontSize      Integer
50002      Farbe         Integer
50003      Zellformat    Text       250
CreateSheet(SheetName : Text[250];ReportHeader : Text[80];CompanyName : Text[30];UserID2 : Text[30])
    IF FontName <> '' THEN
      XlWorkSheet.Range(xlColID + xlRowID).Font.Name := FontName;
    IF FontSize <> 0 THEN
      XlWorkSheet.Range(xlColID + xlRowID).Font.Size := FontSize;
    IF Farbe <> 0 THEN
      XlWorkSheet.Range(xlColID + xlRowID).Interior.ColorIndex := Farbe;
    IF Zellformat <> '' THEN  XlWorkSheet.Range(xlColID + xlRowID).NumberFormat := Zellformat;
22. Juni 2007 12:57
7. Oktober 2008 11:59