pri.bas

检定证书的管理打印程序VB6+ace

Attribute VB_Name = "pri"

Public Sub prtstr(ByVal x1 As Single, x2 As Single, Y As Single, str As String)
Dim ww As Single
ww = Printer.TextWidth(Trim(str))
 Printer.CurrentX = x1 + (x2 - x1 - ww) / 2
 Printer.CurrentY = Y
 Printer.Print str
End Sub

Public Sub prtstrex(x1 As Single, x2 As Single, ByVal Y As Single, ByVal str As String, col As Integer, ByRef yyheight As Single)
Dim ww, wh As Single
Dim str1, str2 As String
Dim i, j, slen, ptr As Integer
ww = Printer.TextWidth(Trim(str))
wh = Printer.TextHeight(str)
If ww <= DataGrid1.Columns(col).Width Then
      Printer.CurrentX = x1 + (x2 - x1 - ww) / 2
      Printer.CurrentY = Y
      yyheight = Y + wh
      Printer.Print str
      Exit Sub
End If
slen = Len(Trim(str))
ptr = 1
j = 1
For i = 1 To slen
 str1 = Mid(str, 1, j)
 str2 = Mid(str, 1, j + 1)
 If (Printer.TextWidth(str1) <= DataGrid1.Columns(col).Width) And (Printer.TextWidth(str2) > DataGrid1.Columns(col).Width) Or (j >= (slen - ptr + 1)) Then
         Printer.CurrentX = x1
         Printer.CurrentY = Y
         Printer.Print str1
         ptr = ptr + Len(str1)
         str = right(str, slen - ptr + 1)
         j = 0
         Y = Y + wh
         yyheight = Y
 End If
 j = j + 1
Next i
End Sub