delphi打印小票源码

《delphi打印小票源码》由会员上传分享，免费在线阅读，更多相关内容在教育资源-天天文库。

1、//取得字符的高度functionCharHeight:Word;varMetrics:TTextMetric;beginGetTextMetrics(Printer.Canvas.Handle,Metrics);Result:=Metrics.tmHeight;end;//file://取得字符的平均宽度functionAvgCharWidth:Word;varMetrics:TTextMetric;beginGetTextMetrics(Printer.Canvas.Handle,Metrics);Result:=Metrics.tmAv

2、eCharWidth;end;//file://取得纸张的物理尺寸---单位：点functionGetPhicalPaper:TPoint;varPageSize:TPoint;begin//file://PageSize.X;纸张物理宽度-单位:点//file://PageSize.Y;纸张物理高度-单位:点Escape(Printer.Handle,GETPHYSPAGESIZE,0,nil,@PageSize);Result:=PageSize;end;//file://2.取得纸张的逻辑宽度--可打印区域//file://取得纸张的逻

3、辑尺寸functionPaperLogicSize:TPoint;varAPoint:TPoint;beginAPoint.X:=Printer.PageWidth;APoint.Y:=Printer.PageHeight;Result:=APoint;end;//file://纸张水平对垂直方向的纵横比例functionHVLogincRatio:Extended;varAP:TPoint;beginAp:=PaperLogicSize;Result:=Ap.y/Ap.X;end;//file://取得纸张的横向偏移量-单位：点functi

4、onGetOffSetX:Integer;beginResult:=GetDeviceCaps(Printer.Handle,PhysicalOffSetX);end;//file://取得纸张的纵向偏移量-单位：点functionGetOffSetY:Integer;beginResult:=GetDeviceCaps(Printer.Handle,PhysicalOffSetY);end;//file://毫米单位转换为英寸单位functionMmToInch(Length:Extended):Extended;beginResult:=

5、Length/25.4;end;//file://英寸单位转换为毫米单位functionInchToMm(Length:Extended):Extended;beginResult:=Length*25.4;end;//file://取得水平方向每英寸打印机的点数functionHPointsPerInch:Integer;beginResult:=GetDeviceCaps(Printer.Handle,LOGPIXELSX);end;//file://取得纵向方向每英寸打印机的光栅数functionVPointsPerInch:Integ

6、er;beginResult:=GetDeviceCaps(Printer.Handle,LOGPIXELSY)end;//file://横向点单位转换为毫米单位functionXPointToMm(Pos:Integer):Extended;beginResult:=Pos*25.4/HPointsPerInch;end;////file://纵向点单位转换为毫米单位functionYPointToMm(Pos:Integer):Extended;beginResult:=Pos*25.4/VPointsPerInch;end;//file

7、://设置纸张高度-单位：mmprocedureSetPaperHeight(Value:integer);varDevice:array[0..255]ofchar;Driver:array[0..255]ofchar;Port:array[0..255]ofchar;hDMode:THandle;PDMode:PDEVMODE;begin//file://自定义纸张最小高度127mmifValue<127thenValue:=127;//file://自定义纸张最大高度432mmifValue>432thenValue:=432;Prin

8、ter.PrinterIndex:=Printer.PrinterIndex;Printer.GetPrinter(Device,Driver,Port,hDMod