以文本方式查看主题

-  Foxtable(狐表)  (http://foxtable.com/bbs/index.asp)
--  专家坐堂  (http://foxtable.com/bbs/list.asp?boardid=2)
----  自动调整打印行宽  (http://foxtable.com/bbs/dispbbs.asp?boardid=2&id=91845)

--  作者:kaituozhe
--  发布时间:2016/10/20 11:18:00
--  自动调整打印行宽

If basemainform.CreateGraphics.MeasureString(t.rows(i)("待查问题说明"),fnt).width <= 10 Then
        rt.Rows(i+1).Height = 7
    Else
        rt.Rows(i+1).Height = basemainform.CreateGraphics.MeasureString(t.rows(i)("待查问题说明"),fnt).width /10 * 5
    End If

以上代码有问题吗?什么实现不了想要的功能?如果这个单元的字少于一定的宽度,就是7,如果大于一定宽度,就自动计算

 


--  作者:kaituozhe
--  发布时间:2016/10/20 11:24:00
--  

解决了