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

最新推荐文章于 2022-10-30 14:48:35 发布

勿为

最新推荐文章于 2022-10-30 14:48:35 发布

阅读量1.9k

点赞数

文章标签： delphi integer string

本文链接：https://blog.csdn.net/yangliu/article/details/236447

版权

//增加规格自定义纸张 
//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;