Private Sub Command1_Click() '调用方法
    SCWZ Me, vbRed, 25, 10, 10, "欢迎使用VB程序！" 'SCWZ 工程, 颜色, 字体大小, 横坐标, 竖坐标, 打印文字
End Sub

Private Sub SCWZ(XS As Object, Ys As Long, DX As Integer, X As Single, Y As Single, SCXX As String)
    XS.ForeColor = Ys '字体颜色
    XS.Font.Size = DX '字体大小
    XS.CurrentX = X   '横坐标
    XS.CurrentY = Y   '竖坐标
    XS.Print SCXX     '打印
End Sub