当此行数据内容超出时自动缩小字体显示
使用自带的style 属性 判断时 只能调整整体的字号，不能设置此单元格缩小
Dim doc As New PrintDoc
Doc.PageSetting.Width = 80
Doc.PageSetting.Height = 135
Doc.PageSetting.LeftMargin = 0
Doc.PageSetting.TopMargin = 1.5
doc.Stacking = prt.StackingRulesEnum.InlineLeftToRight
Doc.PrinterName = _dyj
Dim rx As prt.RenderText
Dim rt As New prt.RenderTable()
Dim rt1 As new prt.RenderArea
rt.Style.GridLines.All = New prt.LineDef
rt.Width = 77
rt.Style.Spacing.All = 1
rt.X = 1.5
rt.SplitVertBehavior = prt.SplitBehaviorEnum.Never
rt.Rows.Count = 23
rt.Cols.Count = 2
rt.Cols(0).Width = 43 '40
If rt.Style.WordWrap = True Then
rt.Style.Font = New Font("宋体",6.5)
Else
rt.Style.Font = New Font("宋体",7.5)
End If
红色部分 怎么设置只对这一单元格生效
[此贴子已经被作者于2023/11/10 16:18:39编辑过]
加好友 
发短信
Post By：2023/11/10 16:15:00 [显示全部帖子]
