关闭

打印时按需要自动缩放文本尺寸且强制换行

417人阅读 评论(0) 收藏 举报
Dim mark As Single   
Dim g As Graphics = e.Graphics    
Dim str As String   
Dim i As Integer   
Dim temp() As String   
Dim myfix As Drawing2D.Matrix = New Drawing2D.Matrix    
Dim size As SizeF    
Dim length As Single   
   
str = ttbBuildName.Text.TrimStart(""'所有文本    
size = g.MeasureString(str, myfont3)     
length 
= size.Width '所有文本在myfont3状态下的长度(像素)    
If length > 4082 Then '4082:供打印的文本框的长度(像素)    
    mark = 4082 / length    
Else   
    mark 
= 1    
End If   
myfix.Scale(mark, 
1'按比例压缩宽度    
g.Transform = myfix    
   
Dim j As Integer = 0    
Dim from As Integer = 0    
Dim strtemp As String = " "   
   
'第一行    
   
Do While (g.MeasureString(strtemp, myfont3).Width < 302 * (1 / mark) And 302 * (1 / mark) - g.MeasureString(strtemp, myfont3).Width >= g.MeasureString(str.Substring(from + j, 1), myfont3).Width)    
    j 
= j + 1    
    strtemp 
= str.Substring(from, j)    
    
If (j + from) = str.Length Then Exit Do   
Loop   
from 
= from + j    
g.DrawString(strtemp, myfont3, Brushes.Black, 
New RectangleF((x1 + 679* (1 / mark), y1 + 80, length, 30), formatl)    
= 0    
   
'后9行    
   
If (j + from) <= str.Length - 1 Then   
    
For i = 1 To 9    
        strtemp 
= " "   
        
Do While (g.MeasureString(strtemp, myfont3).Width < 420 * (1 / mark) And 420 * (1 / mark) - g.MeasureString(strtemp, myfont3).Width >= g.MeasureString(str.Substring(from + j, 1), myfont3).Width)    
            j 
= j + 1    
            strtemp 
= str.Substring(from, j)    
            
If (j + from) = str.Length Then Exit Do   
        
Loop   
        from 
= from + j    
        g.DrawString(strtemp, myfont3, Brushes.Black, 
New RectangleF((x1 + 561* (1 / mark), y1 + 130 + 51 * (i - 1), length, 30), formatl)    
        j 
= 0    
        
If (j + from) = str.Length Then Exit For   
    
Next   
End If   
   
myfix.Scale(
1 / mark, 1'恢复原始比例(1:1)    
g.Transform = myfix    
0
0

查看评论
* 以上用户言论只代表其个人观点,不代表CSDN网站的观点或立场
    个人资料
    • 访问:50570次
    • 积分:691
    • 等级:
    • 排名:千里之外
    • 原创:15篇
    • 转载:45篇
    • 译文:0篇
    • 评论:0条
    文章分类