VB6.0打印输出文字

仇雪儿

于 2024-06-26 18:12:07 发布

阅读量224

点赞数 2

文章标签： visual studio code

本文链接：https://blog.csdn.net/u012421967/article/details/139995633

版权

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