vb 中利用printer实现并口打印的编码

Option Explicit'变量定义
Private X As Integer
Private Y As Integer
Private fnt As Integer
Private txt As Variant
Private dy As Variant

'打印函数，可决定打印坐标，字号和文本
Public Function prnt(X As Variant, Y As Variant, fnt As Variant, txt As Variant)
Printer.CurrentX = X
Printer.CurrentY = Y
Printer.FontSize = fnt
Printer.Print txt
End Function

'打印代码，其中数据部分通过数据库查询而的
Private Sub CmdDataPrint_Click()
Y = 150
X = 1000
txt = "车间:" & Text4 & Space(5) & "工件号:" & Text5 & Space(5) & "操作员:" & Text6 & Space(30) & "日期:" & Text1
dy = prnt(X, Y, fnt, txt0)
Y = 450
X = 1000
txt = "时间"
dy = prnt(X, Y, fnt, txt0)
X = 2500
txt = "温度1"
dy = prnt(X, Y, fnt, txt0)
X = 4000
txt = "温度2"
dy = prnt(X, Y, fnt, txt0)
For i = 0 To zsl - 1 Step print_fg
Y = 750 + 250 * (i / print_fg)