在WIN2000/XP下添加自定义纸张的Delphi源代码

Jj850329

Jj850329

2016-02-19 18:25

每个人都希望每天都是开心的,不要因为一些琐事扰乱了心情还,闲暇的时间怎么打发,关注图老师可以让你学习更多的好东西,下面为大家推荐在WIN2000/XP下添加自定义纸张的Delphi源代码,赶紧看过来吧!
////////////////////////////
  //  武汉探索电脑工作室    //
  //  http://tansuo.51.net  //
  ////////////////////////////
  
  //增加规格自定义纸张
  //PaperName: 自定义纸张名称
  //PaperWidth: 纸张的宽度,以0.1mm为单位
  //PaperLength: 纸张的高度,以0.1mm为单位
  procedure TDM.AddCustomPaper(const PaperName: string; PaperWidth, PaperLength:integer);
  var
  PrintDevice, PrintDriver, PrintPort : array[0..255] of Char;
  hDMode   : THandle;
  hPrinter : THandle;
  FormInfo : TFormInfo1;
  begin
  Printer.GetPrinter(PrintDevice, PrintDriver, PrintPort, hDMode);
  OpenPrinter(PrintDevice, hPrinter, nil);
  if hPrinter = 0 then
  raise Exception.Create('联接打印机失败!');
  
  with FormInfo do
  begin
  Flags := FORM_USER;
  pName := PChar(PaperName);
  Size.cx := PaperWidth*100;
  Size.cy := PaperLength*100;
  ImageableArea.Left := 0;
  ImageableArea.Top := 0;
  ImageableArea.Right := PaperWidth*100;
  ImageableArea.Bottom := PaperLength*100;
  end;
  
  //修改纸型,如果没有就新增
  if not SetForm(hPrinter, PChar(PaperName), 1, @FormInfo) then
  AddForm(hPrinter, 1, @FormInfo);
  
  ClosePrinter(hPrinter);
  end;
  
  //删除自定义规格纸张
  //PaperName: 自定义纸张名称
  procedure TDM.DeleteCustomPaper(const PaperName: string);
  var
  PrintDevice, PrintDriver, PrintPort : array[0..255] of Char;
  hDMode   : THandle;
  hPrinter : THandle;
  begin
  Printer.GetPrinter(PrintDevice, PrintDriver, PrintPort, hDMode);
  OpenPrinter(PrintDevice, hPrinter, nil);
  if hPrinter = 0 then
  raise Exception.Create('联接打印机失败!');
  DeleteForm(hPrinter, PChar(PaperName));
  ClosePrinter(hPrinter);
  end;
展开更多 50%)
分享

猜你喜欢

在WIN2000/XP下添加自定义纸张的Delphi源代码

编程语言 网络编程
在WIN2000/XP下添加自定义纸张的Delphi源代码

如何在Windows XP中设置自定义纸张

电脑入门
如何在Windows XP中设置自定义纸张

s8lol主宰符文怎么配

英雄联盟 网络游戏
s8lol主宰符文怎么配

JSP在win2000下的安装

Java JAVA基础
JSP在win2000下的安装

MySQL在Win2000下的安装

编程语言 网络编程
MySQL在Win2000下的安装

lol偷钱流符文搭配推荐

英雄联盟 网络游戏
lol偷钱流符文搭配推荐

Windows XP中自定义打印机纸张问题

电脑入门
Windows XP中自定义打印机纸张问题

在WIN2000下的jsp的安装

Java JAVA基础
在WIN2000下的jsp的安装

lolAD刺客新符文搭配推荐

英雄联盟
lolAD刺客新符文搭配推荐

如何从MySQL数据库表中检索数据

如何从MySQL数据库表中检索数据

Delphi中OnDrawCell的使用技巧

Delphi中OnDrawCell的使用技巧
下拉加载更多内容 ↓