×

关注微信公众号

免备案网站空间虚拟主机双线空间域名查询PS数码后期
photoshop互助课堂数百G视频教程下载英语培训机构初中英语如何学随时随地聆听大师开讲/课堂
酷素材!视频教程打包下手绘教程抠图教程路径专辑photoshop cs3视频教程
查看: 286618|回复: 6

[vb,vc,delphi] VB编程步步高-打印篇(一)

[复制链接]
发表于 2005-11-25 09:26:35 | 显示全部楼层 |阅读模式
打印多页Rich Text

   打印对象在处理RichTextBox时由于忽视了Rich Text代码将不会工作得很好。为了打印RichTextBox,要使用SelPrint命令,但是SelPrint不是非常得友好,它按照自己的方式打印然后产生退纸动作。为了打印多页Rich Text,要找到每一页的开始和结束点,然后依此设置SelStart和SelLength,最后使用SelPrint打印出每一页。以下是工作的每一个步骤:

   1、使用SaveFile命令保存编辑版本的文件。

   2、转换编辑版本为打印版本:

遍历这个文档,修改SelIndent和SelRightIndent的数值,使之适合于打印机(注意:编辑时的缩进数值对于屏幕是合适的,但不适用于打印机)。
做些其他的修改,比如:添加页眉,消除行号。
   3、使用SelPrint循环一次打印一个页面。这里,计算行数是一个技巧,找到LFCRs是容易的,但是,也必须要计算一下行缠绕,它也算在了行统计中,以及绝对不允许发生的页面溢出情况。

   4、使用SelRTF=""删除打印版本。

   5、使用LoadFile重新启动编辑版本。

   打印MSFlexGrid

   这里有一个快速打印MSFlexGrid控件内容的方法:

   Printer.PaintPicture MSFlexGrid_Name.Picture, 0, 0
Printer.EndDoc

   如果想打印满页面的整个长度,请在前面添加下面2个语句:

   Dim old_width as Integer
MSFlexGrid_Name.width=printer.width

   然后,再在尾部添加:

   MSFlexGrid_Name.width=old_width
本帖的地址:http://bbs.jcwcn.com/forum.php?mod=viewthread&tid=5354
跟着教程做一遍,做完的图要到这里评论交作业,教程有看不懂的地方,可以在贴子下面评论
发表于 2009-2-8 08:32:14 | 显示全部楼层
酷素材
没别的说的,一个字jc:qiang
回复 支持 反对

使用道具 举报

发表于 2018-1-13 19:35:40 | 显示全部楼层
好帖就是要顶
回复 支持 反对

使用道具 举报

发表于 2018-1-13 19:12:06 | 显示全部楼层
学习了。。。
回复 支持 反对

使用道具 举报

发表于 2018-1-13 18:56:40 | 显示全部楼层
酷素材
果断收藏了
回复 支持 反对

使用道具 举报

发表于 2018-1-13 19:25:18 | 显示全部楼层
酷素材
教程网我挺你
回复 支持 反对

使用道具 举报

发表于 2018-1-13 19:12:41 | 显示全部楼层
楼主我支持你
回复 支持 反对

使用道具 举报

您需要登录后才可以回帖 登录 | [立即注册]

本版积分规则

2345