易语言控件打印模块

SendMessageRECT (编辑框.取窗口句柄 (), #EM_GETRECT, 0, 可视范围) ' 获取编辑框的客户区范围
最小可见行 ＝ 编辑框.发送信息 (#EM_CHARFROMPOS, 0, 1 × 65536) ＼ 65535 ' 取编辑框左上角当前的可见行行号
最大可见行 ＝ 编辑框.发送信息 (#EM_CHARFROMPOS, 0, (可视范围.Bottom － 1) × 65536) ＼ 65535 ' 取编辑框左下角当前的可见行行号
.变量循环首 (最小可见行, 最大可见行, 1, 行号)
行文本长度 ＝ SendMessageTEXT (编辑框.取窗口句柄 (), #EM_GETLINE, 行号, 集_行文本)
行文本 ＝ 取文本左边 (集_行文本, 行文本长度)
集_画板.定位写出 (1, 上边, 行文本)
上边 ＝ 上边 ＋ 高度
.变量循环尾 ()