请教各位大哥一个问题，我在票据套打系统中，已将文字换行，如何在打印的时候也是换行的？分不够可以加

Question

我是用TPrinter套打的，请各位大哥帮我看看！谢谢！

Answer 1

如果你是用TQuickReport做的报表，那么用以下方法换行：
{------------------------------------------------------}
{
功能：对一个Pascal字符串进行定长换行处理
入口参数：Value -- 要转换的Pascal字符串, max_len_line -- 每行Unicode字符个数。
返回结果：转换后的字符串。
}
function wrap_line(Value: String; max_len_line: integer ): String;
var
  ws: WideString;
  s: string;
begin
  ws:= Value;
  s:= '';
  while length(ws) > MAX_LEN_LINE do begin
    s:= s + Copy(ws, 1, MAX_LEN_LINE) + #13;
    delete(ws, 1, MAX_LEN_LINE);
  end;  Result:= s + ws;
end;//调用方法OnPrint事件中写代码：
procedure TForm1.QRDBText4Print(sender: TObject;
  var Value: String);
begin
  Value:= wrap_line(Value, 15);
end;

Answer 2

把打印内容绑定在MEMO控件上,就可以实行换行了.