麻烦各位大虾帮我看一下，急着用呢？麻烦各位大虾帮我看一下，急着用呢？麻烦各位大虾帮我看一下，急着用呢？

Question

Printer.Canvas.TextOut(trunc(17.2/2.54*PPIY),trunc(4.5/2.54*PPIX),ADOQGov.FieldByName('备注').AsString+#13#10);
为什么在打印时不能换行，望各位大虾指教，小弟在此献上150分

Answer 1

TextOut不处理换行符。改用DrawText:  ARect := Printer.Canvas.ClipRect;
  ARect.Left := trunc(17.2/2.54*PPIY);
  ARect.Top := trunc(4.5/2.54*PPIX);
  DrawText(Printer.Canvas.Handle, PChar(ADOQGov.FieldByName('备注').AsString+#13#10), -1, ARect, 0);

Answer 2

直接在一个画布上画#13#10是达不到换行效果的。
要想换行，直接改变你TextOut()的X和Y座标就行了呀，呵呵