国产探花免费观看_亚洲丰满少妇自慰呻吟_97日韩有码在线_资源在线日韩欧美_一区二区精品毛片,辰东完美世界有声小说,欢乐颂第一季,yy玄幻小说排行榜完本

首頁 > 學院 > 開發設計 > 正文

VB編程步步高－打印篇（一）

2019-11-18 17:45:11
字體：大 中 小
來源：轉載
供稿：網友
打印多頁RichText

　　打印對象在處理RichTextBox時由于忽視了RichText代碼將不會工作得很好。為了打印RichTextBox，要使用SelPRint命令，但是SelPrint不是非常得友好，它按照自己的方式打印然后產生退紙動作。為了打印多頁RichText，要找到每一頁的開始和結束點，然后依此設置SelStart和SelLength，最后使用SelPrint打印出每一頁。以下是工作的每一個步驟：

　　1、使用SaveFile命令保存編輯版本的文件。

　　2、轉換編輯版本為打印版本：

遍歷這個文檔，修改SelIndent和SelRightIndent的數值，使之適合于打印機（注意：編輯時的縮進數值對于屏幕是合適的，但不適用于打印機）。
做些其他的修改，比如：添加頁眉，消除行號。
　　3、使用SelPrint循環一次打印一個頁面。這里，計算行數是一個技巧，找到LFCRs是容易的，但是，也必須要計算一下行纏繞，它也算在了行統計中，以及絕對不允許發生的頁面溢出情況。

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

　　5、使用LoadFile重新啟動編輯版本。

　　打印MSFlexGrid

　　這里有一個快速打印MSFlexGrid控件內容的方法：

　　Printer.PaintPictureMSFlexGrid_Name.Picture,0,0
Printer.EndDoc

　　如果想打印滿頁面的整個長度，請在前面添加下面2個語句：

　　Dimold_widthasInteger
MSFlexGrid_Name.width=printer.width

　　然后，再在尾部添加：

　　MSFlexGrid_Name.width=old_width->

發表評論 共有條評論
用戶名: 密碼:
驗證碼: 匿名發表
主站蜘蛛池模板： 霞浦县| 南康市| 柳林县| 武胜县| 保定市| 汽车| 禹城市| 饶河县| 普兰店市| 景洪市| 阳曲县| 政和县| 马龙县| 旬阳县| 景泰县| 澄迈县| 崇仁县| 五台县| 越西县| 济南市| 和平区| 吉安县| 三原县| 体育| 历史| 陈巴尔虎旗| 宿州市| 宜春市| 乌拉特前旗| 涡阳县| 盐山县| 武乡县| 龙州县| 新蔡县| 敦化市| 卫辉市| 潼南县| 碌曲县| 汉中市| 盐津县| 江安县|