在VB里如何打印???

[adaoke_captain]

我想把查询的记录集打印成一张报表该怎么做?
请教教我
active report 是什么啊???在那里找???怎么用啊????
拜托说详细点啊!!!!!

[zdrone]

你可以直接用水晶报表或者vb的 printer方法打印

水晶报表方法可以使用9或者4.22版本，具体使用方法一时半会也说不清楚，
priter方法可以参照以下代码
Printer.Height = 8000: Printer.Width = 8000
Printer.CurrentX = 1100: Printer.CurrentY = 300
Printer.FontSize = 12
Printer.Print "龙海宾馆 (追加押金) "
Dim A, B, C, D As Integer
A = 100: B = 500: C = 4800: D = 400
Printer.FontSize = 10
Printer.CurrentX = 100 + A
Printer.CurrentY = B + 200
Printer.Print Date & " " & Time & " NO." & DBCombo1.Text
B = B + D
Printer.Line (A, B + 100)-(C, B + 100)
Printer.CurrentX = 100 + A
Printer.CurrentY = B + 200
Printer.Print "姓名：" & Text1.Text
Printer.CurrentX = 100 + A
Printer.CurrentY = B + 200
Printer.Print "房间号:" & Text5.Text
B = B + D
Printer.CurrentX = 100 + A
Printer.CurrentY = B + 200
Printer.Print "追加押金:" & Format(Text1.Text, "0.00")
B = B + D
Printer.CurrentX = 100 + A
Printer.CurrentY = B + 200
Printer.Print "补交日期: " & DTP2.Value
B = B + D
Printer.Line (A, B + 100)-(C, B + 100)
Printer.CurrentX = 100 + A
Printer.CurrentY = B + 200
Printer.Print "操作员: " & czy.Text & " 欢迎光临"
Printer.EndDoc

[bbhere]

水晶报表

[xiejl168]

方法很多啊，关键看你是到哪个水平了