请以下代码中用中文写上注释！在此等候。急用！！！！
Sub PrintJustS(X As Single, Y As Single, Phrase As String, Fname As String, Fsize As Integer, Fbold As Integer, Larg As Single, Dst As Integer)
ReDim aT(500) As String
Static NumPar As Integer
Static aP As String
Static OaP As String
Static lP, l As Integer
Static VecOfs As Single
Static lStp As Single
lStp = 0.3
PrnPrv.Prv.FontName = Fname
PrnPrv.Prv.FontSize = Fsize
PrnPrv.Prv.FontBold = Fbold
If PrnPrv.Prv.TextWidth(Phrase) > Larg * mm Then
NumPar = 0
For l = 1 To Len(Phrase)
If Mid$(Phrase, l, 1) = " " Then
NumPar = NumPar + 1
Else
aT(NumPar) = aT(NumPar) + Mid$(Phrase, l, 1)
End If
Next
aP = " "
lP = 0
For l = 0 To NumPar
OaP = aP
If aP = " " Then
aP = aT(l)
Else
aP = aP + " " + aT(l)
End If
If PrnPrv.Prv.TextWidth(aP) > Larg * mm Then
aP = OaP
PrintInLef X, Y + (lStp * lP), aP, Fname, Fsize, Fbold, ANTEPRIMA
Ofs = Ofs + lStp
aP = aT(l)
lP = lP + 1
End If
Next
PrintInLef X, Y + (lStp * lP), aP, Fname, Fsize, Fbold, ANTEPRIMA
Ofs = Ofs + lStp
Else
PrintInLef X, Y, Phrase, Fname, Fsize, Fbold, ANTEPRIMA
Ofs = Ofs + lStp
End If
End Sub
[解决办法]
绘图程序吧
