Canvas.TextOut真是好用,Printer也实在好用: procedure PrintTStrings(Lst : TStrings) ; var I, Line : Integer; begin I := 0; Line := 0 ; Printer.BeginDoc ; // TMemo会按照当前宽度自动换行,所以粘帖不换行的文字也没有用 for I := 0 to Lst.Count - 1 do begin Printer.Canvas.TextOut(0, Line, Lst…