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

想学好编程，学好外语很重要 [enadd 2006年12月25日]

	您现在的位置：编程笔记网 >> 应用开发 >> delphi >> 入门技巧 >> 文章正文

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

【字体：小大】

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

作者：－文章来源：－点击数：更新时间：2006-12-31

////////////////////////////
// 武汉探索电脑工作室 //
// 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;

（出处：DelphiFans.com）

[1]

文章录入：enadd 责任编辑：enadd

上一篇文章：多线程编程中的技巧

下一篇文章： cmos内存的读写

【发表评论】【加入收藏】【告诉好友】【打印此文】【关闭窗口】

最新热点		最新推荐		相关文章
				用友华表Cell组件报表工具：… Cell组件/插件---实现报表复… Cell组件插件报表工具-让报表… 报表设计从C/S到B/S结构的一… 用友华表，天涯之外谁的江湖… 用友华表Cell插件，优秀的We… 我与用友华表Cell产品的亲密… 适用的就是最好的与用友华表共成长- Cell产品… 用友华表Cell产品使用有感

　网友评论：（只显示最新10条。评论内容只代表网友观点，与本站立场无关！）

\| 设为首页 \| 加入收藏 \| 联系站长 \| 友情链接 \| 版权申明 \| 管理登录 \|


	Copyright ©2000 - 2005 Enadd.com 备案序号:辽ICP备06005595号 QQ:1656107 站长：enadd