说三道四技术文摘-感悟人生的经典句子
说三道四 > 文档快照

VB 如何将dbgrid印出来

HTML文档下载 WORD文档下载 PDF文档下载
VB 如何将dbgrid印出来

Option Explicit
Private Sub Command1_Click()
Dim I As Long, J As Long, K As Long
Dim PrintString As String
For I = 0 To Data1.Recordset.RecordCount - 1
If K = DBGrid1.VisibleRows Then
DBGrid1.Scroll 0, DBGrid1.VisibleRows
K = 0
End If
For J = 0 To DBGrid1.Columns.Count - 1
PrintString = PrintString &
DBGrid1.Columns(J).CellText(DBGrid1.RowBookmark(K)) & "/"
Next
Printer.Print PrintString
PrintString = ""
K = K + 1
DoEvents
Next
End Sub

Private Sub Form_Activate()
Data1.Recordset.MoveLast
Data1.Recordset.MoveFirst
End Sub
如何让程序只执行一次?-Delphi资料 如何删除一个控件的子控件-Delphi资料 如何识别显示器当前的分辨率-Delphi资料 如何为Delphi程序添加事件和事件处理器 如何写小执行程序-Delphi资料 如何隐藏桌面上的图标-Delphi资料 如何用API更改改计算机名字-Delphi资料 如何用Delphi映射网络驱动器? 如何在字符串截取中避免分割到半个汉字-Delphi资料 如何知道用户点击了窗口的最小化按钮?-Delphi资料 如何中断线程的执行-Delphi资料 如何终止一个线程-Delphi资料 如何转让控制权-Delphi资料 使用Delphi 4.0编写多线程 使用Delphi获取系列信息 使用DELPHI实现文本文件显示和声音同步播放 为系统菜单添加新菜单-Delphi资料 显示密码编辑框中的密码-Delphi资料 写小执行程序-Delphi资料 隐藏和显示Windows的任务条-Delphi资料 隐藏桌面上的图标-Delphi资料 用DELPHI编制Windows95下的钩子函数 用Delphi的THML控件实现触摸屏的使用 用Delphi实现禁止用户关闭Window9X 用Delphi制作能够干净地删除自己的程序 用DELPHI 做一个简单的屏幕保护程序 用Enter键代替Tab键-Delphi资料 用修改文件时间的方法来加密文件-Delphi资料 用最原始的方法编制程序-Delphi资料 运用Delphi编写Windows NT中服务程序 在DELPHI编程中确定系统运行模式 高分求购方案,急! 怎样去掉TTreeView中自动生产的滚动条 驳“学习JAVA钱途无量”的说法 在线等:如何防止C#应用程序第二个实例被启动? 请问谁有ActiveSkinV4.3(或者4V.2)的破解版?50分相赠~! 新手请教 用RMAN备份数据到磁带出错!!解决问题一定给分!!江湖救急啊!! 搞不明白的vc错误,气死我了,请高手指点。。。 上不了网 动态调用DLL是出现的问题,棘手中,待解决。 我要对Spreadsheet的数据进行排序,用javascript怎么写 200分求<构建Web解决方案---应用ASP.NET和ADO.NET>电子书,不是只有源码的,谢谢 用DECS连接AS/400数据库问题 GD网站大家一起随便贴 寻人启事:我有一个侄子,网名叫穿越沦陷的爱,经常跑到这个版块来玩,谁看见了他,让他来找我,急事! 请教高手!!利用二进制文件转换成文本文件进行加密,实现理论是什么? IP包过滤程序问题!!!请大虾帮忙!! sql loader里面不支持FILLER 双系统中,如何删除WIN2000?(98+2000) 实现了第一个愿望... vc和vc.net有什么区别,学了vc有必要学vc.net吗??? 急,数据库表的问题!!! 为什么在Run ActivX程序时出现问题? DLL窗体关闭问题 setfont设置Dialog字体无效,搞不明白,大侠指点 为什么我的Web应用程序项目启动不了,总是出现错误!!! 100分求教jtable问题??? 菜鸟送分问题,请哪位大侠讲讲Inte1.ResponseCode和Inte1.ResponseInfo 声音变了!怎么办啊??? 100分 请问怎么做“索引”? make求救 用ant编译pet store 时,出现问题,提示信息见内文?请帮忙。。。高分酬谢。 三个三角了 开心ing 散分 tmd,上了vsnet2003贼船了。原来vc6的都不好用了 找在linux下免费gui?? 打开窗口获取原窗口信息的问题 Cbuilder安装问题,急! HelloWorld大全[接龙] 我要写一个程序在前台不需要运行后台运行可以:就像平时邮件服务品一样在前台不需要运行,而后台是提供服务的,要怎样来实现 临时表问题 多媒体教学系统开发 jbuilder中关于类的import问题? 有关远程控制的,例如抓屏,限制功能键,限制alt+f4,等等,请去http://hedaofeng.jahee.com 如何取得IE地址栏的输入信息? 急求一段ASP与SQLserver2000处理代码! 怎么创建win32 static library并输出函数?谢谢 !!!!求排列组合的简洁算法(80分) 我要对Spreadsheet的数据进行排序,用javascript怎么写 WIN32异常求救????!!!!!! 一个有深度的问题(对信号量操作不熟者请勿进) 知道为什么会出现iocopyout_chksum吗? I want to marry an in( )person so that we will have a wonderful life together.补全单词 accustom oneself to doing为什么是you must accustom yourself to getting up early.而不是you must accustom yourself to get up early are,clone,there,people,two,to,ways求造句用英语单词怎么造句 confine oneself to是什么意思 there are no two ways about 汉语意思 我脸上长了根白毛,不长,有一次无聊就把它和周围的两根脸毛一起用手扯了,我担心这三根毛还会不会长?长出来长度是否一样? No,I didn't go to school until 1993,提问until1993 戈壁之战用的是什么计 第一套 胜战计 第一计 瞒天过海 第二计 围魏救赵 第三计 借刀杀人 第四计 以逸待劳 第五计 趁火打劫 第六计 声东击西 第二套 敌战计 第七计 无中生有 第八计 暗渡陈仓 第九计 隔岸观火 第 何有大小周天 在我肚子上面总会长出一根几毫米的白毛,拔了下次还会长,在同一个地方.为什么啊 伊朗处死16名反政府组织囚犯 回应边中联重科:看过央视才知陈永洲案情人民日报评陈永洲事件:守住记者职业底湖南三干部偷拍县委书记续:视频曾选择卡梅伦为美监听辩护摩根大通花大钱了官司港澳记者将走访浙江产业集聚区聚焦去美国化:是否为世界多极化发展的大陆赠台大熊猫宝宝命名“圆仔” 成台葡萄牙数千民众游行抗议2014年预算李肇星谈钓鱼岛:中国没有一寸领土是多“跑男”邓超担纲“刘在石”被判十年未坐一天牢租房纠纷不少 维权让人犯愁世界杯搭台 加多宝“戏里戏外”风头正前五月内地与香港贸易额 同比下降26老字号企业“触网” 焕发新活力百名大学生村官 到机关学习提升樊大彧:放弃加分背后的违法犯罪不能放手术费缺口35万元 粘多糖宝宝急需救卫生部门开展消毒产品大检查康宁医院获杰出贡献奖鼎天立地三国霸途灵咒大陆死神.人皇篇盗圣之道忆漫漫皇宫角落的杂货铺古墓迷津护花将军在都市半月的诱惑都市天琴师虹口旅游青城外山旅游千步沙旅游清风湖公园旅游沈阳森林野生动物园旅游棋盘山秀湖旅游棋盘山水库旅游楼观台森林公园旅游八达岭残长城旅游海拉尔国家森林公园旅游中俄边境国门旅游
备案号:鲁ICP备13029499号-2 说三道四 www.s3d4.cn 说三道四技术文摘