以文本方式查看主题

-  Foxtable(狐表)  (http://foxtable.net/bbs/index.asp)
--  专家坐堂  (http://foxtable.net/bbs/list.asp?boardid=2)
----  专业报表中的文本换行开始位置问题,老大请进?  (http://foxtable.net/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编辑过]

--  作者:ybil
--  发布时间: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编辑过]

--  作者:mr725
--  发布时间:2011/6/2 18:43:00
--  
超过长度后,加空格·····
--  作者:唐尸三摆手
--  发布时间:2011/6/2 18:52:00
--  
但是不晓得啥时候超过长度?
[此贴子已经被作者于2011-6-2 18:51:49编辑过]

--  作者:ybil
--  发布时间: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() \'预览


--  作者:mr725
--  发布时间:2011/6/2 18:59:00
--  

我很少玩专业报表,呵呵。 应该可以设置打印宽度,之间也应该可以计算出字符的长度,如:

产品编码:DDS0506001

产品名称:光谱分析仪器(上海光学        - 这里共有字符16个,超过后加5个(或名称长度+1)空格,应该可以的。

               设备厂)