我现在要做的是:Memo有下划线,可以自动伸展。(这我用交叉表可以实现)
但我还要Memo的第一行要空几个字才开始,其他行不变。而我在之前加空格时,打印时就空了一行。请教要怎样才能实现。
想要的效果如下:
   ADFSDFD   (第一行)
ADFSADFAFF    (第二行)
ASDFDSFFFF    (第三行)
.....

解决方案 »

  1.   

    可以参考这里
    http://expert.csdn.net/Expert/topic/1540/1540945.xml?temp=.8699457
      

  2.   

    呵呵...不好意思,没看清楚!我下面的代码可以实现空几格,不过好像不太好使.
    var
      StrList: TStringList;
      ms: TMemoryStream;
    implementation{$R *.dfm}procedure TForm1.frReport1BeforePrint(Memo: TStringList;
      View: TfrView);
    begin
      StrList:= TStringList.Create;
      ms:= TMemoryStream.Create;
      StrList.Add('   1111');
      StrList.Add('1111111');
      StrList.SaveToStream(ms);
      ms.Position:= 0;
      frReport.FindObject('memo1').Memo.LoadFromStream(ms);
    end;procedure TForm1.FormDestroy(Sender: TObject);
    begin
      ms.Free;
      StrList.Free;
    end;
    up!
      

  3.   

    不行啊!我memo里有很多字,起码好几行的,在开头加几个空格打印时就会空出一行!
    救命啊!搞死我了!!