在QP里自定义打印纸,也通过PRINTER的方法动态设定系统打印机纸张类型后,为什么打印完后还是进纸太多(50分)

procedure SetPaperSize(X, Y: Integer);
// 单位是0.1mm 
// A4时 Printer.Pagewidth:=1440； A5时 Printer.Pagewidth:=1049； 
// B5时 Printer.Pagewidth:=1290； 16K时 Printer.Pagewidth:=1035； 
// lq1600宽行打印机这个值宽度最大为42cm左右, 长度大约2m。 
//改变devicemode结构 
var 
   Device: array[0..255] of char;
   Driver: array[0..255] of char;
   Port: array[0..255] of char;
   hDMode: THandle;
   PDMode: PDEVMODE;
begin
 
   Printer.PrinterIndex := Printer.PrinterIndex;
   Printer.GetPrinter(Device, Driver, Port, hDMode);
   if hDMode <> 0 then
 
   begin
 
      pDMode := GlobalLock(hDMode);
      if pDMode <> nil then
 
      begin
 
         if (x = 0) or (y = 0) then
 
         begin
 
            {Set to legal} 
            pDMode^.dmFields := pDMode^.dmFields or dm_PaperSize;
            {pDMode^.dmPaperSize := DMPAPER_LEGAL;
changed by wulianmin} 
            pDMode^.dmPaperSize := DMPAPER_FANFOLD_US;
         end 
         else
 
         begin
 
            {Set to custom size} //这里设纸张大小
            pDMode^.dmFields := pDMode^.dmFields or 
              DM_PAPERSIZE or 
              DM_PAPERWIDTH or 
              DM_PAPERLENGTH;
            [red]pDMode^.dmPaperSize := DMPAPER_USER[/red];
            pDMode^.dmPaperWidth := x {SomeValueInTenthsOfAMillimeter};
            pDMode^.dmPaperLength := y {SomeValueInTenthsOfAMillimeter};
         end;

         {Set the bin to use}  //这两句是设进纸来源的，不要可以删掉
         pDMode^.dmFields := pDMode^.dmFields or DMBIN_MANUAL;
         pDMode^.dmDefaultSource := DMBIN_MANUAL;
 
         GlobalUnlock(hDMode);
      end;

   end;

   Printer.PrinterIndex := Printer.PrinterIndex;
   //以下开始打印 
end;