小妹求助各位高手关于文本框的问题

yilan_1981

最近我的单位要打一大批的证书。要死的领导给我用word和excel邮件合并出一个样本。可是这种打起来好麻烦啊。
想想自己还是学过几年计算机的。就想着自己用ACCESS做了一个小打印系统。可是这个系统有个缺点。
就是ACCESS中报表里加的文本框他只能靠上对齐的。那么就现一个情况，如果这个单位名字长还好，可以分成两排。刚好可以打成
以下这个样子：
              XXXXXXXXXXXXXX
企业名称XXXXXXXXXXXXXX

如果是单位名称不长就变成了这样：
              XXXXXXXXXXXX
企业名称
领导说这样太难看了。离横线太远。不过实在是好几年没弄这些东西了，都不知道怎么办。
请各位高手出出主意，有什么方法能让单位名称短一点的时候能打到刚好横线上方。

[ 本帖最后由 yilan_1981 于 2008-3-10 21:42 编辑 ]

yilan_1981

没人回答吗？不会吧

t小宝

在报表主体的格式化事件中判断文本框的字符，如果超过一定字数，则改变文本框的文本上边距

yilan_1981

Private Sub 主体_Format(Cancel As Integer, FormatCount As Integer)
Dim i As Long
i = Len(Text1.Text)
If i <= 48 Then
Text1.TopMargin = 45
End If
End Sub
是这个样子吗？呵呵。都忘记光 了。编的好像不对。没起作用
企业名称是我通过查询里设置条件查询出来的

[ 本帖最后由 yilan_1981 于 2008-3-11 00:25 编辑 ]

gdfsslec

TopMargin是设置内部边距的吗
还有个办法就是加空格
Private Sub 主体_Format(Cancel As Integer, FormatCount As Integer)
Dim i As Long
i = Len(Text1.Text)
If i <= 48 Then
Text1 = "                " & Text1
End If
End Sub

tz-chf

加空格还不如加换行符

Grant

原帖由 t小宝 于 2008-3-10 22:47 发表
在报表主体的格式化事件中判断文本框的字符，如果超过一定字数，则改变文本框的文本上边距

赞同

t小宝

原帖由 yilan_1981 于 2008-3-11 00:22 发表
Private Sub 主体_Format(Cancel As Integer, FormatCount As Integer)
Dim i As Long
i = Len(Text1.Text)
If i  

i = Len(Text1.Text)    这句里面面不用要 .Text  ，多余的

tz-chf

还得判断是中文，还是英文的（因为占的位置不一样）。。。。。。