打印票据的范围

seekmydoom 2009-03-04 10:15:26
打印连续的票据,票据大小140mm*240mm,我是在QuickRep中将纸张设计的大小是140*240,并且设置的纸张是Default,在打印机上面也设置了相应的纸张,在打印的时候有些打印机上面是正常的,包括走纸都正常,但是最近在一个打印机上面,好像是很老的映美,宽度打印是正常的,但是高度怎么也打印不出140mm,因为需要正常走纸,所以在打印机上面设置的自定义纸张不能改变高度,请问大家有没有碰到过这样的问题呢,在Epson-630的打印大部分是正常的,但是在某些打印机上面会出现宽度不够,明明设计240mm的,但是打印出来后只有200mm左右了,请有经验的朋友帮帮忙啦,这样的问题是在程序里面需要改变什么设置还是打印机有问题呢?
...全文
132 4 打赏 收藏 转发到动态 举报
AI 作业
写回复
用AI写文章
4 条回复
切换为时间正序
请发表友善的回复…
发表回复
xjq2003 2009-03-05
  • 打赏
  • 举报
回复
直接用dave,或者quick report套位置,
ljluck7687 2009-03-05
  • 打赏
  • 举报
回复
这是一个定位精确打印的问题,不要用QuickRep,而自己写打印代码,参考代码如下:

/* 以下代码实现与打印机无关的精确定位打印,适应于票据等打印 */

  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.PrinterIndex := Printer.PrinterIndex;

end;

file://设置纸张宽度:单位--mm

Procedure SetPaperWidth(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://自定义纸张最小宽度76mm

if Value < 76 then Value := 76;

 file://自定义纸张最大宽度216mm

 if Value > 216 then Value := 216;

  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_PAPERWIDTH;

    pDMode^.dmPaperSize := DMPAPER_USER;

    file://将毫米单位转换为0.1mm单位

    pDMode^.dmPaperWidth := Value * 10;

    pDMode^.dmFields := pDMode^.dmFields or DMBIN_MANUAL;

    pDMode^.dmDefaultSource := DMBIN_MANUAL;

    GlobalUnlock(hDMode);

   end;

  end;

  Printer.PrinterIndex := Printer.PrinterIndex;

end;

file://在 (Xmm, Ymm)处按指定配置文件信息和字体输出字符串

procedure PrintText(X, Y: Extended; Txt: string; ConfigFileName: string; FontSize: Integer=12);

var

 OrX, OrY: Extended;

 Px, Py: Integer;

 AP: TPoint;

 Fn: TStrings;

 FileName: string;

 OffSetX, OffSetY: Integer;

begin

file://打开配置文件,读出横向和纵向偏移量

try

 Fn := TStringList.Create;

 FileName := ExtractFilePath(Application.ExeName) + ConfigFileName;

 if FileExists(FileName) then

 begin

  Fn.LoadFromFile(FileName);

  file://横向偏移量

  OffSetX := StrToInt(Fn.Values['X']);

  file://纵向偏移量

  OffSetY := StrToInt(Fn.Values['Y']);

 end

else

begin

 file://如果没有配置文件,则生成

 Fn.Values['X'] := '0';

 Fn.Values['Y'] := '0';

 Fn.SaveToFile(FileName);

end;

finally

 Fn.Free;

end;

X := X + OffSetX;

Y := Y + OffSetY;

Px := Round(Round(X * HPointsPerInch * 10000/25.4) / 10000);

Py := Round(Round(Y * VPointsPerInch * 10000/25.4) / 10000);

Py := Py - GetOffSetY; file://因为是绝对坐标, 因此, 不用换算成相对于Y轴坐标

Px := Px + 2 * AvgCharWidth;

Printer.Canvas.Font.Name := '宋体';

Printer.Canvas.Font.Size := FontSize;

file://Printer.Canvas.Font.Color := clGreen;

Printer.Canvas.TextOut(Px, Py, Txt);

end;

  2. 使用举例

  在主窗体中加入对mprint单元的引用,在一命令钮的OnClick事件中书写如下代码(用于在邮政汇款单上的相应方框内打印邮政编码843300):

Printer.BeginDoc;

PrintText(16, 14, '8', 'config.txt');

PrintText(26, 14, '4', 'config.txt');

PrintText(36, 14, '3', 'config.txt');

PrintText(46, 14, '3', 'config.txt');

PrintText(56, 14, '0', 'config.txt');

PrintText(66, 14, '0', 'config.txt');

Printer.EndDoc;

  观察结果,用尺子测量偏移量,在config.txt文件中修改X,Y的值即可。
woniugongzuoshi 2009-03-05
  • 打赏
  • 举报
回复
我碰到过,应该和系统和打印机驱动有关,和程序无关。什么都没动,就是纸张出现了较大的默认边距,即使你设置边距为0,也打不满纸张。曾经用过的解决办法:
1。调整打印机的进纸方式,自动、牵引都试试,有时候没准在特顶的送纸方式下就正常了。
2。换打印机驱动。
3。将系统装回98。(呵呵,有点难以接受)

tobelost 2009-03-05
  • 打赏
  • 举报
回复
和打印机驱动有关,用MS WORD可以知道最小边距

5,928

社区成员

发帖
与我相关
我的任务
社区描述
Delphi 开发及应用
社区管理员
  • VCL组件开发及应用社区
加入社区
  • 近7日
  • 近30日
  • 至今
社区公告
暂无公告

试试用AI创作助手写篇文章吧