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

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)    
j  =   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