使用vb的系统对象printer
类似如下代码:
Printer.FontName = "宋体"
Printer.FontSize = 12
Printer.ScaleMode = 6 '以毫米为单位
Printer.CurrentY = 20
Printer.CurrentX = 35
Printer.Print Trim$(txtUserName.Text) '打印姓名
类似如下代码:
Printer.FontName = "宋体"
Printer.FontSize = 12
Printer.ScaleMode = 6 '以毫米为单位
Printer.CurrentY = 20
Printer.CurrentX = 35
Printer.Print Trim$(txtUserName.Text) '打印姓名
所以,你只要在你想切纸的时候
printer.NewPage
printer.EndDoc
就行了.