打印Memo的文本信息

2016-02-19 15:31 5 1 收藏

在这个颜值当道,屌丝闪边的时代,拼不过颜值拼内涵,只有知识丰富才能提升一个人的内在气质和修养,所谓人丑就要多学习,今天图老师给大家分享打印Memo的文本信息,希望可以对大家能有小小的帮助。

【 tulaoshi.com - 编程语言 】

  

TPrinter * pPrinter=Printer();
pPrinter-Title="打印Memo1中的数据";
pPrinter-BeginDoc();
int y=10;
for(int i=0;iMemo1-Lines-Count;i++)
 {
 pPrinter-Canvas-TextOut(10,y,Memo1-Lines-Strings[i]);
 y+=pPrinter-Canvas-TextHeight("A");
 }
pPrinter-EndDoc();

(本文来源于图老师网站,更多请访问http://www.tulaoshi.com/bianchengyuyan/)

来源:http://www.tulaoshi.com/n/20160219/1609802.html

延伸阅读
使用MEMO控件的em_LineFromChar属性,程序如下: procedure TMyForm.BitBtn1Click(Sender: TObject);variLine : Integer ;beginiLine := Memo1.Perform(em_LineFromChar, $FFFF, 0);{ Note: 第一行为 0 }messageDlg(Line Number: + IntToStr(iLine), mtInformation,[mbOK], 0 ) ;end;
标签: 电脑入门
问题: 在PowerPoint 2007 中以讲义形式打印演示文稿时,演示文稿的页眉和页脚文本可能会意外地打印出来。或者,如果在打印预览中查看演示文稿,页眉和页脚文本可能会显示出来。即使您未在页眉和页脚对话框的备注和讲义选项卡上选中页眉或页脚复选框,也可能会出现此行为。 原因: 如果向讲义母版视图中添加了页眉和页脚文本,则可能会出现...
标签: ASP
  <% dim fso,f1 Const ForReading = 1 set fso=createobject("Scripting.FileSystemObject") ''使用fso对象读取信息。 set f1=fso.OpenTextFile("E:\doit\info2.txt", ForReading) ''打开要读取的文件 dim conn,rst set conn=server.createobject("adodb.connection") ''建立数据库连接,执行操作 ...
标签: PHP
  为了增强我的网站上的功能,本人根据本人的网站的实际,开发了一个基于文本的搜索,现在使用在本人的网站上。为了 和广大网友相互学习交流,本人现在其源码公布,其源码如下: <?php             $dispstr=array();        &n...
标签: cad教程
1.必须确定已经连接好打印机。   2.打开需要打印的图。按P选择打印。进入打印设置界面。   3.选择好所需要的打印机。   4.选择好所需要打印的纸型。需要改变打印的配置的话,点击属性。设置好打印机的输出设置。   ...

经验教程

459

收藏

95
微博分享 QQ分享 QQ空间 手机页面 收藏网站 回到头部