to change font color of imported data in excel...through CAL

KGS

can we change the color , font etc of data which is imported to excel from navision; with the help of CAL code. Please help!!!!!!!!!!!!!!!!!!!!

kriki

If you mean with the help of table 370:"Excel Buffer". It should be possible, you only need to create some new field(s) and put some code to send the properties to the excel-cell.

kine

You mean something like:

      XlWorkSheet.Range(xlColID + xlRowID).Interior.ColorIndex := "Background Color";
      XlWorkSheet.Range(xlColID + xlRowID).Font.ColorIndex := "Font Color";
    IF "Left Border Type" <> 0 THEN
      XlWorkSheet.Range(xlColID + xlRowID).Borders.Item(XlEdgeLeft).LineStyle := XlContinuous;
    IF "Right Border Type" <> 0 THEN
      XlWorkSheet.Range(xlColID + xlRowID).Borders.Item(XlEdgeRight).LineStyle := XlContinuous;
    IF "Top Border Type" <> 0 THEN
      XlWorkSheet.Range(xlColID + xlRowID).Borders.Item(XlEdgeTop).LineStyle := XlContinuous;
    IF "Bottom Border Type" <> 0 THEN
      XlWorkSheet.Range(xlColID + xlRowID).Borders.Item(XlEdgeBottom).LineStyle := XlContinuous;
    CASE Alignment OF
      Alignment::Left:
        XlWorkSheet.Range(xlColID + xlRowID).HorizontalAlignment := -4131;
      Alignment::Center:
        XlWorkSheet.Range(xlColID + xlRowID).HorizontalAlignment := -4108;
      Alignment::Right:
        XlWorkSheet.Range(xlColID + xlRowID).HorizontalAlignment := -4152;
    END;

    IF "Font Size" <> 0 THEN
      XlWorkSheet.Range(xlColID + xlRowID).Font.Size := "Font Size";

(the used values are new fields in Excel Buffer) tis code was added into CreateSheet function...