小弟需要用vb编写一个打印小程序

Private Sub Command1_Click()

t = "我是中国人。他芹慎是日本人。你是哪租哗里人。"

tt = Split(t, "。", -1)

Label1.Caption = tt(0) &"。"

Label2.Caption = tt(1) &"。"

Label3.Caption = tt(2) &"。"

End Sub

'方法二：LABEL1复制粘贴为组控件

Private Sub Command1_Click()

t = "我是中国人。他是日本人。你是哪里人。"弊首行

tt = Split(t, "。", -1)

For i = 0 To UBound(tt) - 1

Label1(i).Caption = tt(i) &"。"

Next i

End Sub

使用Printer.Print txt，定位打印：

Public Function 和森Prnt(X As Long, Y As Long, fnt As Long, txt As String)

    Printer.CurrentX = X

    Printer.CurrentY = Y

    Printer.FontSize = fnt

    Printer.Print txt

End Function

Private Sub Command4_Click()

    Dim DD

    fnt = 20

    Y = 450: X = 500

    txt 运棚晌= "执行工艺号日期"

    DD = Prnt(X, Y, fnt, txt)

    Y = 900:

    X = 500

    txt = "记录号"

    DD = Prnt(X, Y, fnt, txt)

    Y = 1350

    txt = "温度1"

    DD = Prnt(X, Y, fnt, txt)

    Y = 1800

    txt = "温度2"

    DD = Prnt(X, Y, fnt, txt)

    Y = 2250

    txt = "温度3"

    DD 旁锋= Prnt(X, Y, fnt, txt)

    Printer.EndDoc

End Sub

---