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