菜鸟请问如何实现信息录入与套打输出

Question

我们单位老年证都是用手填写的，比较麻烦。现在想通过手工录入信息 实现套打，过后可以查询   我是一个菜鸟 向热心的朋友请教一下如何用vb实现

Answer 1

套打可以用printer打印对象写打印语句

Answer 2

Picture函数实现打印7楼

Answer 3

Option Explicit
    Dim colvb As Long
    Dim x As Long
    Dim y As Long
    Dim fnt As Long
    Dim txt As String
    Dim dd As Variant
Public Function pt(colvb As Long, x As Long, y As Long, fnt As Long, txt As String)
    Printer.ForeColor = colvb
    Printer.CurrentX = x
    Printer.CurrentY = y
    Printer.FontSize = fnt
    Printer.Print txt
End Function
Private Sub Command1_Click()
    x = 5
    y = 5
    colvb = vbRed
    fnt = 15
    txt = "瑞安市电器有限公司"
    dd = pt(colvb, x, y, fnt, txt)
    y = 12
    colvb = vbBlue
    txt = "浙江省瑞安市经济开发区"
    dd = pt(colvb, x, y, fnt, txt)
    y = 19
    colvb = vbBlue
    txt = "0577 65100000"
    dd = pt(colvb, x, y, fnt, txt)
    y = 26
    colvb = vbBlue
    txt = "0577 65100000"
    dd = pt(colvb, x, y, fnt, txt)
    Printer.EndDoc
End Sub