posprintfunction.pas

小票样式打印模板设计,和管家婆的pos收银系统小票样式设计差不多

unit PosPrintFunction;

interface
uses windows,sysUtils,classes,Forms,PRINTERS;

Function MMToPixel(AValue:integer):integer;
function   mm2pixX(X:Extended):   integer;
function mm2pixY(Y:Extended):integer;

implementation

  Function MMToPixel(AValue:integer):integer;
  begin
    Result:=trunc(AValue/25.38*screen.PixelsPerInch+0.5);
  end;

  function   mm2pixX(X:Extended):   integer;
  begin
      //横向mm转换为像素点
      Result:=Trunc(X/25.38*GetDeviceCaps(Printer.Handle,LOGPIXELSY)+0.5);
  end;
    
  function mm2pixY(Y:Extended):integer;
  begin
    //纵向mm转换为像素点
    Result:= Trunc(Y/25.38*GetDeviceCaps(Printer.Handle,LOGPIXELSX)+0.5);
  end;

end.