注册 登录  
 加关注
   显示下一条  |  关闭
温馨提示!由于新浪微博认证机制调整,您的新浪微博帐号绑定已过期,请重新绑定!立即重新绑定新浪微博》  |  关闭

猫工的博客

无限风光在险峰

 
 
 

日志

 
 

Lazarus调用打印机进行打印的方法  

2013-04-09 17:01:26|  分类: Lazarus |  标签: |举报 |字号 订阅

  下载LOFTER 我的照片书  |

引用单元:
  1. unit MainUnt;

  2. {$mode objfpc}{$H+}

  3. interface

  4. uses
  5.   Classes, SysUtils, Forms, Printers;
复制代码
使用现有的打印机:
  1. procedure TForm1.PrintBtnClick(Sender: TObject);
  2. const
  3.   LEFTMARGIN = 100;
  4.   HEADLINE = 'I Printed My Very First Text On ';
  5. var
  6.   YPos, LineHeight, VerticalMargin: Integer;
  7.   SuccessString: String;
  8. begin
  9.   with Printer do
  10.   try
  11.     BeginDoc;
  12.     Canvas.Font.Name := 'Courier New';
  13.     Canvas.Font.Size := 10;
  14.     Canvas.Font.Color := clBlack;
  15.     LineHeight := Round(1.2 * Abs(Canvas.TextHeight('I')));
  16.     VerticalMargin := 4 * LineHeight;
  17.     // There we go
  18.     YPos := VerticalMargin;
  19.     SuccessString := HEADLINE + DateTimeToStr(Now);   
  20.     Canvas.TextOut(LEFTMARGIN, YPos, SuccessString);
  21.   finally
  22.     EndDoc;
  23.   end;
  24. end;
复制代码
打印图形的方法:
  1. procedure TForm1.PrintBtnClick(Sender: TObject);
  2. var
  3.   MyPrinter : TPrinter;
  4.   myBitMap : TBitMap;
  5. begin
  6.   myBitMap := TBitMap.Create;
  7.   myBitMap.Width := page.Width;
  8.   myBitMap.Height := page.Height;
  9.   page.BorderStyle:=bsNone;
  10.   page.PaintTo(myBitMap.Canvas, 0, 0);
  11.   page.BorderStyle:=bsSingle;
  12.   //
  13.   MyPrinter := Printer;
  14.   MyPrinter.BeginDoc;
  15.     //page.PaintTo(myPrinter.Canvas, 0, 0);
  16.     //myPrinter.Canvas.Draw(0,0, myBitMap);
  17.     myPrinter.Canvas.CopyRect(Classes.Rect(0, 0, myPrinter.PaperSize.Width, myPrinter.PaperSize.Height),
  18.        myBitMap.Canvas, Classes.Rect(0, 0, myBitMap.Width, myBitMap.Height));
  19.   MyPrinter.EndDoc;
  20.   myBitMap.Free;
  21. end;
复制代码
  评论这张
 
阅读(369)| 评论(0)
推荐 转载

历史上的今天

评论

<#--最新日志,群博日志--> <#--推荐日志--> <#--引用记录--> <#--博主推荐--> <#--随机阅读--> <#--首页推荐--> <#--历史上的今天--> <#--被推荐日志--> <#--上一篇,下一篇--> <#-- 热度 --> <#-- 网易新闻广告 --> <#--右边模块结构--> <#--评论模块结构--> <#--引用模块结构--> <#--博主发起的投票-->
 
 
 
 
 
 
 
 
 
 
 
 
 
 

页脚

网易公司版权所有 ©1997-2017