大量Delphi开发资料

				Delphi中票据凭证的精确打印 
				2004年3月23日  作者：  『Delphi园地』  浏览选项：  颜色 默认 灰度 橄榄色 绿色 蓝色 褐色 红色   本文已被浏览 381 次 
				 
				   
				  
				 简介： 　一、概述
				
				　　在银行，税务，邮政等行业的实际工作中，经常涉及到在印刷好具有固定格式的汇款单，储蓄凭证，税票等单据上的确定位置打印输出相关的信息。在此类需求中，精确地定位单据并打印相关信息，是解决问题]的关键。一般情况下，开发者都是通过在打印机上通过重复的测试来达到实际需求。那么，有没有简单有效而又灵活的方法实现上述功能呢？
				
				　　二、基本思路
				
				　　分析上述单据的特征，可以发现：此类打印输出的信息一般比较简短，不涉及到文字过长的折行处理，另外，其打印输出的位置相对固定。因此，我们可以通过用尺子以毫米为单位，测量好每个输出信息位置的横向和纵向坐标，作为信息输出的位置。但由于不同打印机在实际输出效果上，总是存在理论和实际位置的偏差，因此，要求程序具有一定的灵活性，供最终用户根据需要，进行必要的位置调整。因此，可设置一打印配置文件，用于存储横坐标和纵坐标的偏移量，用于用户进行位置校正，从而提供了一定的灵活性。
				
				　　三、精确打印输出的程序实现
				
				　　1． 在Delphi中新建一个名为mprint.pas的单元文件并编写如下程序，单元引用中加入Printers略：
				
				//取得字符的高度
				function CharHeight: Word;
				var
				　Metrics: TTextMetric;
				begin
				　GetTextMetrics(Printer.Canvas.Handle, Metrics);
				　Result := Metrics.tmHeight;
				end;
				
				file&://取得字符的平均宽度
				function AvgCharWidth: Word;
				var
				　Metrics: TTextMetric;
				begin
				　GetTextMetrics(Printer.Canvas.Handle, Metrics);
				　Result := Metrics.tmAveCharWidth;
				end;
				
				file&://取得纸张的物理尺寸---单位：点
				function GetPhicalPaper: TPoint;
				var
				　PageSize : TPoint;
				begin
				　file&://PageSize.X; 纸张物理宽度-单位:点
				　file&://PageSize.Y; 纸张物理高度-单位:点
				　Escape(Printer.Handle, GETPHYSPAGESIZE, 0,nil,@PageSize);
				　Result := PageSize;
				end;
				
				file&://2.取得纸张的逻辑宽度--可打印区域
				file&://取得纸张的逻辑尺寸
				function PaperLogicSize: TPoint;
				var
				　APoint: TPoint;
				begin
				　APoint.X := Printer.PageWidth;
				　APoint.Y := Printer.PageHeight;
				　Result := APoint;
				end;
				
				file&://纸张水平对垂直方向的纵横比例
				function HVLogincRatio: Extended;
				var
				　AP: TPoint;
				begin
				　Ap := PaperLogicSize;
				　Result := Ap.y/Ap.X;
				end;
				
				file&://取得纸张的横向偏移量-单位：点
				function GetOffSetX: Integer;
				begin
				　Result := GetDeviceCaps(Printer.Handle, PhysicalOffSetX);
				end;
				
				file&://取得纸张的纵向偏移量-单位：点
				function GetOffSetY: Integer;
				begin
				　Result := GetDeviceCaps(Printer.Handle, PhysicalOffSetY);
				end;
				
				file&://毫米单位转换为英寸单位
				function MmToInch(Length: Extended): Extended;
				begin
				　Result := Length/25.4;
				end;
				
				file&://英寸单位转换为毫米单位
				function InchToMm(Length: Extended): Extended;
				begin
				　Result := Length*25.4;
				end;
				
				file&://取得水平方向每英寸打印机的点数
				function HPointsPerInch: Integer;
				begin
				　Result := GetDeviceCaps(Printer.Handle, LOGPIXELSX);
				end;
				
				file&://取得纵向方向每英寸打印机的光栅数
				function VPointsPerInch: Integer;
				begin
				　Result := GetDeviceCaps(Printer.Handle, LOGPIXELSY)
				end;
				
				file&://横向点单位转换为毫米单位
				function XPointToMm(Pos: Integer): Extended;
				begin
				　Result := Pos*25.4/HPointsPerInch;
				end;
				
				file&://纵向点单位转换为毫米单位
				function YPointToMm(Pos: Integer): Extended;
				begin
				　Result := Pos*25.4/VPointsPerInch;
				end;
				
				file&://设置纸张高度-单位：mm
				procedure SetPaperHeight(value:integer);
				var
				　Device : array[0..255] of char;
				　Driver : array[0..255] of char;
				　Port : array[0..255] of char;
				　hDMode : THandle;
				　PDMode : PDEVMODE;
				begin
				file&://自定义纸张最小高度127mm
				if value < 127 then value := 127;
				　file&://自定义纸张最大高度432mm
				　if value > 432 then value := 432;
				　　Printer.PrinterIndex := Printer.PrinterIndex;
				　　Printer.GetPrinter(Device, Driver, Port, hDMode);
				　　if hDMode  0 then
				　　　begin
				　　　　pDMode := GlobalLock(hDMode);
				　　　　if pDMode  nil then
				　　　　begin
				　　　　　pDMode^.dmFields := pDMode^.dmFields or DM_PAPERSIZE or
				　　　　　　　　　　　　　　　DM_PAPERLENGTH;
				　　　　　pDMode^.dmPaperSize := DMPAPER_USER;
				　　　　　pDMode^.dmPaperLength := value * 10;
				　　　　　pDMode^.dmFields := pDMode^.dmFields or DMBIN_MANUAL;
				　　　　　pDMode^.dmDefaultSource := DMBIN_MANUAL;
				　　　　　GlobalUnlock(hDMode);
				　　　　end;
				　　　end;
				　　　Printer.PrinterInde