设为首页收藏本站Access中国

Office中国论坛/Access中国论坛

 找回密码
 注册

QQ登录

只需一步,快速开始

返回列表 发新帖
查看: 10224|回复: 9
打印 上一主题 下一主题

[报表] 如何让文本框根据内容的多少来自动调整高度

[复制链接]
跳转到指定楼层
1#
发表于 2008-6-15 14:44:03 | 只看该作者 回帖奖励 |倒序浏览 |阅读模式
求救:我要做报表,其中有一个文本框,我想让文本框的大小根据内容的多少来自动调整高度,如何来做。谢谢
分享到:  QQ好友和群QQ好友和群 QQ空间QQ空间 腾讯微博腾讯微博 腾讯朋友腾讯朋友
收藏收藏 分享分享 分享淘帖 订阅订阅
2#
发表于 2008-6-15 21:38:11 | 只看该作者
期待中

点击这里给我发消息

3#
发表于 2008-6-15 22:01:05 | 只看该作者
设置文本框的 可以扩大 属性
4#
发表于 2008-7-22 08:26:12 | 只看该作者
期待[:30]
5#
发表于 2008-7-22 09:06:21 | 只看该作者
原帖由 t小宝 于 2008-6-15 22:01 发表
设置文本框的 可以扩大 属性


设置之后,只有真正有超长内容的文本框会自动扩大,其他的还是不会跟着扩大,这样并不美观。如果想要其他文本框也能自动根据所在行中最高的文本框调整高度,应该怎么办?
6#
发表于 2008-7-27 09:50:03 | 只看该作者
期待[:34]
7#
发表于 2008-7-29 19:00:38 | 只看该作者
Private Sub 主体_Print(Cancel As Integer, PrintCount As Integer)
Dim CtlDetail As Control
Dim intLineMargin As Integer

intLineMargin = 60

For Each CtlDetail In Me.Section(acDetail).Controls
    With CtlDetail
        If CtlDetail.Name <> "Memo" Then
        Me.Line ((.Left + .Width + intLineMargin), 0)-(.Left + .Width + _
intLineMargin, Me.Height)
        End If
    End With
Next
   

    With Me
        Me.Line (0, 0)-Step(.Width, .Height), 0, B
    End With

Set CtlDetail = Nothing
End Sub
8#
发表于 2008-8-6 14:29:27 | 只看该作者
设置为扩展,可以会根据文字的多少而自动改变高度
9#
发表于 2008-8-6 20:39:41 | 只看该作者
研究研究,有点用,不过还是不动效果好,超出的省略最好.
10#
发表于 2008-10-1 00:00:55 | 只看该作者
学习学习
您需要登录后才可以回帖 登录 | 注册

本版积分规则

QQ|站长邮箱|小黑屋|手机版|Office中国/Access中国 ( 粤ICP备10043721号-1 )  

GMT+8, 2024-11-29 17:43 , Processed in 0.095149 second(s), 33 queries .

Powered by Discuz! X3.3

© 2001-2017 Comsenz Inc.

快速回复 返回顶部 返回列表