还是打印的老问题--如何解决不要打印机自动进纸(100分)

  • 主题发起人 主题发起人 windyson
  • 开始时间 开始时间
W

windyson

Unregistered / Unconfirmed
GUEST, unregistred user!
查了查前面的问题,这个问题前面已经有好多人问过了,也有部分解决了,脱离了苦海。
我是在Win2000下开发,很多Win98下的常规方法可能不行。
不过我依照前面的办法试过,却总是不成功。还请各位过来人指点一二。
我的需求:打印机一行行打印,不要自动进纸。
试验代码一:
AssignFile(lpt, 'prn' );
ReWrite(lpt );
...//我的打印处理
Writeln(lpt, '打印测试' );
...
CloseFile( lpt );
这种情况下打印效果就是我所想要的,不过遇到中文输出乱码.前面一些解答中从来没有提到过
这种方式下的中文乱码问题.我现在用Epson 750作测试,不知是否和打印机有关。
试验代码二:
直接发ESC命令。参考各位解答我试验了几组代码,但总是不成功,现在随便贴出一段,
还请点拨一二。
...
procedure TForm1.Directprint(s:string);
type
PrnBuffRec=record
Bufflength:integer;
Buffer:array[0..255] of char;
end;
var Buff:PrnBuffRec;
begin
StrPcopy(Buff.Buffer,s);
Buff.Bufflength:=Strlen(Buff.Buffer);
Escape(Printer.handle,Passthrough,0,@Buff,nil);
end;
procedure TForm1.Button1Click(Sender: TObject);
begin
Printer.begin
Doc;
DirectPrint(chr(28) + chr(38));
'选择汉字
DirectPrint(chr(28) + chr(107) + chr(0));'选择宋体字体
DirectPrint(chr(28) + chr(83) + chr(0) + chr(0));'设定全角汉字间距
DirectPrint(chr(27) + chr(51) + chr(24));'设定24/180英寸的换行量
...
DirectPrint(CHR(28)+chr(101)+chr(32)+chr(32)+' 客运公司收费单 ');
DirectPrint(CHR(28)+chr(101)+chr(32)+chr(32)+' 客运公司收费单 ');
...
Printer.EndDoc;
end;
这种情况下有内容送到打印队列,但打不出内容.
另外,设置自定义纸张尺寸和写端口我也是过,没有成功。我是用BCB开发,不过Delphi和BCB
代码都没有问题,能否贴出代码指点一下我的问题究竟出在哪里。问题解决立刻结账。
 
这是我收集的,你参考
Delphi中票据凭证的精确打印
  一、概述
  在银行,税务,邮政等行业的实际工作中,经常涉及到在印刷好具有固定格式的汇款单,储蓄凭证,税票等单据上的确定位置打印输出相关的信息。在此类需求中,精确地定位单据并打印相关信息,是解决问题]的关键。一般情况下,开发者都是通过在打印机上通过重复的测试来达到实际需求。那么,有没有简单有效而又灵活的方法实现上述功能呢?
  二、基本思路
  分析上述单据的特征,可以发现:此类打印输出的信息一般比较简短,不涉及到文字过长的折行处理,另外,其打印输出的位置相对固定。因此,我们可以通过用尺子以毫米为单位,测量好每个输出信息位置的横向和纵向坐标,作为信息输出的位置。但由于不同打印机在实际输出效果上,总是存在理论和实际位置的偏差,因此,要求程序具有一定的灵活性,供最终用户根据需要,进行必要的位置调整。因此,可设置一打印配置文件,用于存储横坐标和纵坐标的偏移量,用于用户进行位置校正,从而提供了一定的灵活性。
  三、精确打印输出的程序实现
  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.begin
Doc;
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的值即可。
  其它,设置打印机和纸张类型从略。
  四、结束语
  笔者通过该方法,实现了邮政汇款单,储蓄凭证,客户信封等单据的精确打印,取得了较为满意的效果。该程序在Windows98,Delphi5下调试通过。
 
你用喷墨打印的话是不是得根据其分辨率?
 
to ugvanxk: 我看了你的代码,用了Printer.canvas.textout,这种好像没有解决禁止自动进纸的问题
to Gingerzy: 现在打印内容不合要求,还没有考虑分辨率调整的问题
好像过去一段时间听多人讨论这个问题,而且有人解决了,该出手时就出手啊!
如何在win2000下实现一行行连续打印,不整页走纸?或者给段代码说明win2000下如何通过发送ESC控制指令打印。
先谢过!
 
着急,推一下
 
我写过一段程序,用于2000下的发票打印发票打印完后自动进到下一张发票的开始位置。
用的是lq300k 发票是连续纸。不知这种功能是不是你想要的?如果是下一次发源代码!
 
后退
顶部