Office中国论坛/Access中国论坛

标题: 如何做到打印内容自动缩小字体，并且自动换行的 [打印本页]

作者: Excel3000 时间: 2022-6-24 22:32
标题: 如何做到打印内容自动缩小字体，并且自动换行的
报表打印时候，如何做到打印内容自动缩小字体，并且自动换行的，
这样这样的打印效果：
[attach]64357[/attach]

作者: sxgaobo 时间: 2022-7-3 10:39
我的一个笨办法，希望能有所帮助
Y = LenB(StrConv([Text62], vbFromUnicode))

If Y <= 14 Then
Me.Text62.TopMargin = 280
Me.Text62.FontSize = 14
ElseIf Y > 14 And Y <= 28 Then
Me.Text62.TopMargin = 150
Me.Text62.FontSize = 14
ElseIf Y > 28 And Y <= 42 Then
Me.Text62.TopMargin = 0
Me.Text62.FontSize = 13
ElseIf Y > 42 And Y <= 53 Then
Me.Text62.TopMargin = 0
Me.Text62.FontSize = 12
End If

欢迎光临 Office中国论坛/Access中国论坛 (http://www.office-cn.net/)