delphi print

[sls]

序号 姓名 电话 地址
1 张三 65438795 长寿路55号
2 李四 56987452 中国北京长安大街
55号1801室
3 王五 65478923 幸福路88号


如上表所示，李四的地址打印时根据宽度换行，在DELPHI打印时如何实现.
非常感谢。

[hellworld]

我感兴趣，可惜我也不会。

[largewang]

用TRect控制一下就行了，
不要偷懒，多研究一下。

[wzs]

是否在报表中？或是否定义过字体？如不是，你可计算你所规定的打印长度后再判断当前打印的文字是否超过规定的长度，如有则你就处理让它换行。

[sls]

这个问题太难了吗？
各位高手.
sls

[wzs]

我说的方法8683404差不多一样。

[sls]

各位好！
可能我没有说明白主要是QRShape 要自动拉宽, 或者有什么方法可以实现。
我上传的例子框线没有了。
谢谢各位。

[sls]

各位好！
可能我没有说明白主要是QRShape 要自动拉宽, 或者有什么方法可以实现。
我上传的例子框线没有了。
谢谢各位。

[sls]

各位好！
可能我没有说明白主要是QRShape 要自动拉宽, 或者有什么方法可以实现。
我上传的例子框线没有了。
谢谢各位。

[sls]

wzs,hello,
我不知道如何处理?
thank you.

[liuchcn]

如果是用qrreport，只要设制dbtext控件的stretch为true及autosize为false;（可能还有wordwrap)

[wsh]

关注

[8683404]

用Printer.Canvas.TextOut(x,y,Text);

用Printer.Font.Size:=10；//或（其他）
用Printer.Font.name:='宋体'//或（其他）
可更改字体，通过length(string)判断是否要换行，通过X、Y坐标决定字符串的打印起始位置；
通过Copy(SouceStr,Index_num,len_num)分割字符串。
你看这样可以吗？我可能说的有点乱，但绝对可实现你的要求。
附：X、Y在针式打印机下是180P/IN；激光打印机下是600P/IN；具体要参考打印机说明书。