Question printing comment lines on sales order

scunha@bemisworldwide.com

I have linked the Comment Line table to the Sales Order report (by customer No.) and copied code in the report from the Sales Comment section to the Comment Line section to get the Comment Line comments to print... can someone interpret the standard Navision code I copied and tell me how to get the comments to print single spaced.. or if it is not a code thing how do I do it... Thanks in advance for your help.. code follows


WITH TempSalesLine DO BEGIN
INIT;
"Document Type" := "Sales Header"."Document Type";
"Document No." := "Sales Header"."No.";
"Line No." := HighestLineNo + 1000;
HighestLineNo := "Line No.";
END;
IF STRLEN(Comment) <= MAXSTRLEN(TempSalesLine.Description) THEN BEGIN
TempSalesLine.Description := Comment;
TempSalesLine."Description 2" := '';
END ELSE BEGIN
SpacePointer := MAXSTRLEN(TempSalesLine.Description) + 1;
WHILE (SpacePointer > 1) AND (Comment[SpacePointer] <> ' ') DO
SpacePointer := SpacePointer - 1;
IF SpacePointer = 1 THEN
SpacePointer := MAXSTRLEN(TempSalesLine.Description) + 1;
TempSalesLine.Description := COPYSTR(Comment,1,SpacePointer - 1);
TempSalesLine."Description 2" := COPYSTR(COPYSTR(Comment,SpacePointer + 1),1,MAXSTRLEN(TempSalesLine."Description 2"));
END;
TempSalesLine.INSERT;