delphi打印小票源码.docx

//取得字符的高度function CharHeight: Word;varMetrics:TTextMetric;beginGetTextMetrics(Printer.Canvas.Handle, Metrics);Result := Metrics.tmHeight;end;//file://取得字符的平均宽度function AvgCharWidth: Word;varMetrics: TTextMetric;beginGetTextMetrics(Printer.Canvas.Handle, Metrics);Result := Metrics.tmAveCharWidth;end; //file://取得纸张的物理尺寸单位：点function GetPhicalPaper: TPoint;varPageSize : 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;beginResult := 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;//fi