龙盟编程博客 | 无障碍搜索 | 云盘搜索神器
快速搜索
主页 > 软件开发 > VB开发 >

VB如何将DBgrid印出来

时间:2009-12-30 15:42来源:未知 作者:admin 点击: 次
分享到：
->OptionExplicit
　　PrivateSubCommand1_Click()
　　DimIAsLong,JAsLong,KAsLong
　　DimPrintStringAsString
　　ForI=0ToData1.Recordset.RecordCount-1
　　IfK=DBGrid1.VisibleRowsThen
　　DBGrid1.Scroll0,DBGrid1.VisibleRows
　　K=0
　　EndIf
　　ForJ=0ToDBGrid1.Columns.Count-1
　　PrintString=PrintString&
　　DBGrid1.Columns(J).CellText(DBGrid1.RowBookmark(K))&"/"
　　Next
　　Printer.PrintPrintString
　　PrintString=""
　　K=K 1
　　DoEvents
　　Next
　　EndSub
　　
　　PrivateSubForm_Activate()
　　Data1.Recordset.MoveLast
　　Data1.Recordset.MoveFirst
　　EndSub->
->

精彩图集
灵活实用的VBS入门教程基础篇
灵活实用的
Vbs COM之打开/保存文件脚本代码
Vbs COM之打开
当某IP 连接我机器的3389端口 报警的脚本
当某IP 连接

热门标签

内部结构 常 磁盘空间 前导 优酷视频 window.open excel生成报表 访问变慢 判断图片 sdcard路径 跟踪标记 StructHack 阵列 矩阵转置 子页面 chsh $().each 设置字符集 雅虎 time模块 dns解析 optimize ACL权限 两张表 php数组 理解 用 垃圾文件 GBK中文 外部链接 类反射 java反弹 MYSQL字符替换sql 表格列宽 分配权限 编程规范 iPhone 数据库备份 字符串截 交叉表查询 代替 统计文件 右对齐 获得ip地址 rsync 保存图片 dbi 中文字段 第三个参数 选择排序法 高級 Optimization 排除 js操作excel 防浏览 curl_multi js失效 邻接 鼠标停留 发生死锁

赞助商链接