VB打印问题

Question

在VB中如何实现套打，也就是纸张上已有姓名：，性别：等字样，现在需要从数据库中检索出姓名打印到：后面的。
请问如何

Answer 1

参考以下的定位打印代码：
Option Explicit
Dim x As Integer
Dim y As Integer
Dim fnt As Byte
Dim txt As String
Dim dd As VariantPublic 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 FunctionPrivate Sub Command1_Click()'打印字符串
Printer.FontSize = 36
Printer.Print "This is the first line of text in a pair."
Printer.Print "This is the second line of text in a pair."
Printer.EndDoc
End Sub
Private Sub Command3_Click()'打印文本内容
fnt = 16
x = 100
y = 100
txt = Text1
dd = prnt(x, y, fnt, txt)
Printer.EndDoc
End SubPrivate Sub Form_Load()
    Text1 = "打印"

Answer 2

一楼写的函数可以直接用,不过最好还是把那些Variant类型都改成具体的类型,比如LONG,STRING等等,否则一旦调用的时候把参数位置写错,是不会有任何错误提示的,并且错在那里都找不到.

Answer 3

和普通的水晶报表是一样的做
按的要求先做过.Rpt文件，若不是一般的pagersize只是自定义size