Delphi的备注字段导出Excel的打印问题？(50分)

Delphi的备注字段导出Excel的打印问题？
Delphi的备注字段导出Excel单元格（几个单元格合并来存储数据),在打印预览时没有问题，但打印输入出，在有换行的地方会乱码？请问这是什么原因？
急！
高手请进！

打硬机的问题巴,字库不够

你看看或许有点体会
procedure tfrmprint2.saveAsExcel;
var
fieldNum: integer;
i,j : integer;
exls,sheet: variant;
begin
try
exls:=createoleobject('Excel.application');
sheet:=createoleobject('excel.sheet');
except
application.MessageBox('请先安装MICROSOFT EXCEL！','提示',mb_ok+mb_iconinformation);
exit;
end;
sheet:=exls.workBooks.Add;
with query2do
begin
DisableControls;
fieldNum := dbgrid1.fieldCount;
for i:=1 to fieldNumdo
begin
exls.Cells[1,i].value:=Fields[i-1].FieldName;
end;
first;
i:=2;
while not eofdo
begin
for j:=1 to fieldNumdo
begin
exls.Cells[i,j]:=fields[j-1].AsString;
end;
next;
i:=i+1;
end;
EnableControls;
exls.visible:=true;
end;
end;

只要调一句好就可以了！