打印机套打发票问题。。。

Question

我用的是映美24针打印机，用于打印两联压感发票，用ReportMachine作的套打模块，打印时一切正常，唯一不足就是打完一联后，如果不退纸，第二联就比第一联打得高，第三联就更高，其它依次。这样很麻烦，只有打一联撒一联，重新进纸。
我看到过其它的打印机套打程序，用户不需要操作打印机，也不需要进纸退纸，发票就会连续打印。
不知这是打印机问题，还是程序问题。
我已将ReportMachine中纸张的大小设为了发票的大小，不知设计套打程序还有什么要注意的事项？

Answer 1

针打要设置它的硬件设施，那样才可以让纸头按你的要求打，不是在操作系统中设，是要在启动打印机时启动打印机的EPROM设置

Answer 2

我以前好象也碰到過﹐這是打印機里的紙張設置問題﹐先量好紙張的長﹐寬﹐在打印機 屬性
'紙張設置' 和'高級'選卡里 設好紙張的樣板。做好之后﹐最好是先用word 來試一下。
如果在word 不出現問題的話﹐在程序里應該是不會出現類似情況的﹗（在2000的操作系統里﹐紙張的設置在 控制板-打印機-點進的空白區-右鍵-格式設置

Answer 3

我用代码实现，你参考一下，希望有帮助...Function TSysPrinter_1.PrintMe: Boolean;
Var
  PrnDevice, PrnDriver, PrnPort: Array[0..255] Of Char;
  PrnHandle: THandle;
  PrnMode: PDeviceMode;
Begin
  Result:= False;  { 设定打印参数 }
  Try
    Printer.GetPrinter(PrnDevice, PrnDriver, PrnPort, PrnHandle);
  Except
    MessageBox(Application.Handle, '无法获取系统打印机信息！', '系统信息',
      MB_OK + MB_ICONERROR);
    Exit;
  End;  If PrnHandle = 0 Then
    Begin
      MessageBox(Application.Handle, '无法获取系统打印机信息！', '系统信息',
        MB_OK + MB_ICONERROR);
      Exit;
    End
  Else
    Begin
      PrnMode:= GlobalLock(PrnHandle);
      With PrnMode^ Do
        Begin
          //打印份数
          dmFields:= dmFields Or dmCopies;
          dmCopies:= 1;          //打印方向
          dmFields:= dmFields Or dmOrientation;
          dmOrientation:= DMORIENT_PORTRAIT;          //纸张类型为用户自定义
          dmFields:= dmFields Or dmPaperSize;
          dmPaperSize:= DMPAPER_USER;          //纸宽，单位为0.1mm
          dmFields:= dmFields Or dmPaperWidth;
          dmPaperWidth:= PaperWid;          //纸长，单位为0.1mm
          dmFields:= dmFields Or dmPaperLength;
          dmPaperLength:= PaperLen;          dmFields:= dmFields Or PrnMode^.dmLogPixels;
          dmLogPixels:= 300;          ResetDC(Printer.Handle, PrnMode^);
        End;
    End;  { 开始打印 }
  Try
    Printer.Canvas.Font.Name:= SysInfo.PrnFont;
    Printer.Canvas.Font.Size:= SysInfo.PrnSize;    Printer.BeginDoc;    { 税务登记号 }
    Printer.Canvas.TextOut(pstX_RegNO, pstY_RegNO, str_RegNO);    { 收款单位 }
    Printer.Canvas.TextOut(pstX_Payee, pstY_Payee, str_Payee);    { 付款单位 }
    Printer.Canvas.TextOut(pstX_Payer, pstY_Payer, str_Payer);
    Printer.Canvas.TextOut(pstX_PayerID, pstY_PayerID, str_PayerID);    { 经营项目 }
    Printer.Canvas.TextOut(pstX_Item1, pstY_Item1, str_Item1);
    Printer.Canvas.TextOut(pstX_Charge1, pstY_Charge1, str_Charge1);    Printer.Canvas.TextOut(pstX_Item2, pstY_Item2, str_Item2);
    Printer.Canvas.TextOut(pstX_Charge2, pstY_Charge2, str_Charge2);    Printer.Canvas.TextOut(pstX_Item3, pstY_Item3, str_Item3);
    Printer.Canvas.TextOut(pstX_Charge3, pstY_Charge3, str_Charge3);    Printer.Canvas.TextOut(pstX_Item4, pstY_Item4, str_Item4);
    Printer.Canvas.TextOut(pstX_Charge4, pstY_Charge4, str_Charge4);    Printer.Canvas.TextOut(pstX_Item5, pstY_Item5, str_Item5);
    Printer.Canvas.TextOut(pstX_Charge5, pstY_Charge5, str_Charge5);    { 金额合计 }
    Printer.Canvas.TextOut(pstX_Total, pstY_Total, str_Total);    Printer.EndDoc;
    Result:= True;
  Except
    MessageBox(Application.Handle,
      '无法处理打印信息，请确定打印机驱动程序安装正确！', '系统信息', MB_OK +
      MB_ICONERROR);
    Exit;
  End;
End;