使用vb的系统对象printer
类似如下代码:
    Printer.FontName = "宋体"
    Printer.FontSize = 12
    Printer.ScaleMode = 6 '以毫米为单位
    Printer.CurrentY = 20
    Printer.CurrentX = 35 
    Printer.Print Trim$(txtUserName.Text) '打印姓名