如何在VB实现打印功能

[mis_ks]

在一个窗体上面有许多TEXT控件,当点击打印按扭时.打印机就会在相同的位置上打印填写有TEXT的内容!
在VB中该如何实现!

[cbm6666]

Dim i%, obj As Control
Private Sub Command1_Click()
jj = Me.Controls.Count
'*********************** 打印窗体内所有TextBox内容
Me.AutoRedraw = True: Me.Cls
i = 0
For Each obj In Me.Controls '枚举窗体内的所有控件
If TypeOf obj Is TextBox Then '如该控件为 TextBox
If Controls(i).Text <> "" Then '如该TextBox不为空,则打印
Me.CurrentX = Controls(i).Left
Me.CurrentY = Controls(i).Top
Controls(i).Left = Screen.Width '不移走的话,看不到下面的字,呵呵...
Print Controls(i).Text
'Printer.Print Controls(i).Text
End If
End If
i = i + 1
Next
'Printer.EndDoc
End Sub

[cbm6666]

'补充说明:

Dim i%, obj As Control
Private Sub Command1_Click()
jj = Me.Controls.Count
'*********************** 打印窗体内所有TextBox内容
Me.AutoRedraw = True: Me.Cls
i = 0
For Each obj In Me.Controls '枚举窗体内的所有控件
If TypeOf obj Is TextBox Then '如该控件为 TextBox
If Controls(i).Text <> "" Then '如该TextBox不为空,则打印
Me.CurrentX = Controls(i).Left '定位窗体上显示的X座标
Me.CurrentY = Controls(i).Top '定位窗体上显示的Y座标
Print Controls(i).Text '显示该TextBox的内容
'Printer.CurrentX = Controls(i).Left '定位打印机的X座标
'Printer.CurrentY = Controls(i).Top '定位打印机的Y座标
'Printer.Print Controls(i).Text '打印该TextBox的内容
Controls(i).Left = Screen.Width '不移走的话,看不到下面的字,呵呵...
End If
End If
i = i + 1
Next
'Printer.EndDoc '结束打印
End Sub

[饮水需思源]

printer.currentx=500
printer.currenty=500
printer.print text1.text

printer.currentx=1000
printer.currenty=500
printer.print text2.text

[mis_ks]

楼上的兄弟 能否跟我说详细点.有点不太懂!

[mis_ks]

打印的位置X,Y的置就是TEXT到窗体的距离?

[shepanrrylib]

请问一下老师============打印和表格制作的问题

比如,字段是 学号,姓名,性别,家庭地址,入学年份,备注.
要打印的页面是

[学号,姓名,性别,家庭地址,入学年份,备注. ] [学号,姓名,性别,家庭地址,入学年份,备注. ]


也就是说一张A4纸我想打两排.而不是想数据报表打印的只能打一排.
另外,想请教一下,如果有很多页,比如超过2页时,怎么写代码?特别是表格前面我想做个表头的.
请给一个思路,谢谢!!
还有,表格的大小可不可以随着表格内的数据大小自动调整,用什么样的表格控件比较好,
?
谢谢!!!!!
如果我说的不清楚,下次我放个图片上来.

[shepanrrylib]

老师 想请教一下 也是关于打印的问题.数据表格的打印.

比如,字段是 学号,姓名,性别,家庭地址,入学年份,备注.
要打印的页面是

[学号,姓名,性别,家庭地址,入学年份,备注. ] [学号,姓名,性别,家庭地址,入学年份,备注. ]


也就是说一张A4纸我想打两排.而不是想数据报表打印的只能打一排.
另外,想请教一下,如果有很多页,比如超过2页时,怎么写代码?特别是表格前面我想做个表头的.
请给一个思路,谢谢!!
还有,表格的大小可不可以随着表格内的数据大小自动调整,用什么样的表格控件比较好,
?
谢谢!!!!!
如果我说的不清楚,下次我放个图片上来.

[lcsfxs]

nLeft = lcsleft
nTop = lcstop
Printer.Width = 13904 '' 13904
Printer.Height = 3800 '' 3800
Printer.Orientation = 1
If MsgBox("请检查打印机是否接电与装纸,开始打印吗？", _
vbYesNo + vbQuestion) = vbYes Then
Printer.Font.Size = 14
' Printer.CurrentX = nLeft + 6250
' Printer.CurrentY = nTop
' Printer.Print ADOTemp![编号]
Printer.CurrentX = nLeft - 300
Printer.CurrentY = nTop + 1100
Printer.Print ADOTemp![用户姓名]
Printer.CurrentX = nLeft + 3300
Printer.CurrentY = nTop + 1100
Printer.Print ADOTemp![地区名称]
Printer.CurrentX = nLeft - 300
Printer.CurrentY = nTop + 1100 + 490 * 1
Printer.Print ADOTemp![上网帐号]
Printer.CurrentX = nLeft + 5700
Printer.CurrentY = nTop + 1100 + 490 * 1
Printer.Print ADOTemp![联系电话]

lcsprinter1

Printer.CurrentX = nLeft - 300
Printer.CurrentY = nTop + 1100 + 490 * 3
Printer.Print ADOTemp![地址]
Printer.CurrentX = nLeft - 300
Printer.CurrentY = nTop + 1000 + 490 * 4
Printer.Print ADOTemp![宽带类型]
Printer.CurrentX = nLeft - 300
Printer.CurrentY = nTop + 1000 + 490 * 5
Printer.Print ADOTemp![受理时间]
Printer.CurrentX = nLeft + 4700
Printer.CurrentY = nTop + 1000 + 490 * 5
Printer.Print ADOTemp![受理工号]
' Printer.CurrentX = nLeft - 300
' Printer.CurrentY = nTop + 1100 + 490 * 6
' Printer.Print ADOTemp![机型]
' Printer.CurrentX = nLeft - 300
' Printer.CurrentY = nTop + 1100 + 490 * 7
' Printer.Print ADOTemp![显示器]
End If
Printer.EndDoc

[UltraBejing]

lz要干嘛？

[knowledge_Is_Life]

等待牛人来答.

[meiZiNick]

好像没那么简单,呵呵.

[youchun2008]

还是不懂