VB6.0打印输出文字

Call 打印文字("abc123", XXX, YYY)


Private Sub 打印文字(ByVal 内容 As String, ByVal x As Long, ByVal y As Long)
    UserControl.ForeColor = 表格刻度字体颜色
    UserControl.Font.size = 刻度字号
    UserControl.FontName = "Segoe UI"
    
    Dim 字符宽, 字符高 As Long
    字符宽 = UserControl.TextWidth(内容)
    字符高 = UserControl.TextHeight(内容)

    
    UserControl.CurrentX = x - 字符宽
    UserControl.CurrentY = y - 字符高 / 2
    UserControl.Print 内容
End Sub