专业报表代码生成器,具有代码查看功能哟 - 专家坐堂 - Foxtable(狐表) - 新一代数据库软件，完美融合Access、Foxpro、Excel、vb.net之优势，人人都能掌握的快速软件开发工具!

Foxtable(狐表) → 用户栏目 → 专家坐堂 → 专业报表代码生成器,具有代码查看功能哟

共有16535人关注过本帖树形打印复制链接主题：专业报表代码生成器,具有代码查看功能哟

yangming

小大 11楼 | 信息 | 搜索 | 邮箱 | 主页 | UC

加好友

发短信

等级：超级版主帖子：4109 积分：23338 威望：0 精华：21 注册：2008/9/1 20:07:00

Post By：2009/7/26 16:14:00 [只看该作者]

也可做一个按钮来获取打印机
Forms("窗口1").Show()
For Each p As String in InstalledPrinters
Dim Tex1 As WinForm.TextBox = Forms("窗口1").Controls("TextBox1")
Tex1.value = p & Chr(13) & Chr(10) & _
Tex1.value
Next
取得后复制到控件的自定义项目中便可以

还可以在窗口的

AfterLoad事件中放入以下代码,便可以自动设置列表项目了

For Each p As String in InstalledPrinters
Dim Tex1 As WinForm.TextBox = e.Form.Controls("TextBox11")
Tex1.value = p & Chr(13) & Chr(10) & _
Tex1.value
Dim com6 As WinForm.ComboBox
com6 = e.Form.Controls("ComboBox6")
com6.ComboList = Tex1.value &"|"
Next

[此贴子已经被作者于2009-7-26 16:35:41编辑过]

smileboy

小大 12楼 | QQ | 信息 | 搜索 | 邮箱 | 主页 | UC

加好友

发短信

好心情

等级：超级版主帖子：715 积分：5564 威望：0 精华：1 注册：2008/8/31 20:45:00

Post By：2009/7/26 21:52:00 [只看该作者]

这个得顶

yangming

小大 13楼 | 信息 | 搜索 | 邮箱 | 主页 | UC

加好友

发短信

等级：超级版主帖子：4109 积分：23338 威望：0 精华：21 注册：2008/9/1 20:07:00

Post By：2009/7/27 9:29:00 [只看该作者]

在窗口的

AfterLoad事件中放入以下代码,便可以自动设置本程序中所有表名及电脑中所有打印机名的列表项目了

For each bm as DataTable In DataTables
dim Tex As String
Tex= Tex & "|" & bm.name
Dim com7 As WinForm.ComboBox = e.Form.Controls("ComboBox7")
com7.ComboList = Tex
Next
For Each p As String in InstalledPrinters
dim Tex1 As String
Tex1= Tex1 & "|" & p
Dim com6 As WinForm.ComboBox= e.Form.Controls("ComboBox6")
com6.ComboList = Tex1
Next