- Foxtable(狐表) (http://www.foxtable.com/bbs/index.asp)
-- 专家坐堂 (http://www.foxtable.com/bbs/list.asp?boardid=2)
---- 专业报表中的文本换行开始位置问题，老大请进？ (http://www.foxtable.com/bbs/dispbbs.asp?boardid=2&id=10374)
-- 发布时间：2011/6/2 11:57:00
-- 专业报表中的文本换行开始位置问题，老大请进？
专业报表想要这种效果：（后面的是字段值）
产品编码：DDS0506001
产品名称：光谱分析仪器（上海光学
设备厂)
但是目前是这种效果：
产品编码：DDS0506001
产品名称：光谱分析仪器（上海光学
设备厂)
能否提示如何实现？
[此贴子已经被作者于2011-6-2 11:58:09编辑过]
-- 发布时间：2011/6/2 14:47:00
--
有差别吗，我怎么看起来是一样的。
-- 发布时间：2011/6/2 15:57:00
--
产品名称内容换行后对齐的问题，希望能够对齐该值的第一个字，而不是标签“产品名称：”
[此贴子已经被作者于2011-6-2 15:57:09编辑过]
-- 发布时间：2011/6/2 16:01:00
--
以下是引用狐狸爸爸在2011-6-2 14:47:00的发言：
有差别吗，我怎么看起来是一样的。
有差别吗，我怎么看起来是一样的。
呵呵,果真是喜欢做『简单』的事的人,什么都简单看待,简单--快乐人!
对齐不同
-- 发布时间：2011/6/2 16:03:00
--
呵呵，惭愧，用表格吧，这样方便对齐。
-- 发布时间：2011/6/2 18:19:00
--
以下是引用狐狸爸爸在2011-6-2 16:03:00的发言：
呵呵，惭愧，用表格吧，这样方便对齐。
不行啊，客户不同意的，要用这个打印购物小票用
[此贴子已经被作者于2011-6-2 18:19:57编辑过]
-- 发布时间：2011/6/2 18:43:00
--
超过长度后，加空格·····
-- 发布时间：2011/6/2 18:52:00
--
但是不晓得啥时候超过长度？
[此贴子已经被作者于2011-6-2 18:51:49编辑过]
-- 发布时间：2011/6/2 18:54:00
--
Dim doc As New PrintDoc \'定义一个报表
Dim s1,s2,s3 As String \'定义字符变量
s1 = "DDS0506001"
s2 = "光谱分析仪器(上海光学设备厂)"
Dim rt1,rt2, rt3 As New prt.RenderText \'
rt1.Text = "产品编码:" & s1
doc.Body.Children.Add(rt1)
rt2.Text = "产品名称:" & Left(s2,11)
doc.Body.Children.Add(rt2)
For i As Integer = 0 To "产品名称:" .Length - 1
s3 = s3 & " "
Next
rt3.Text = s3 & s2.Substring(11)
doc.Body.Children.Add(rt3)
doc.Preview() \'预览
-- 发布时间：2011/6/2 18:59:00
--
我很少玩专业报表，呵呵。 应该可以设置打印宽度，之间也应该可以计算出字符的长度，如：
产品编码：DDS0506001
产品名称：光谱分析仪器（上海光学 － 这里共有字符16个，超过后加5个（或名称长度+1）空格，应该可以的。
设备厂)