Уважаемые господа! Есть следующая проблема:
Мне необходимо заполнять бланки с помощью матричного принтера. Бланки находятся в рулоне и их размер 210Х305, мм т.е. больше чем стандартный лист А4.
При печати происходит смещение вверх на 8,мм каждого последующего бланка по сравнению с предыдущим. При этом бланков за один раз может быть 70-100 шт.

Код вывода на печать привожу ниже:

Var
    LPol:TstringList;
...
Begin
...
if PrintDialog1.Execute then
  Begin
    printer.BeginDoc;
    printer.Canvas.Font.Height:=- 30;
    SetMapMode(printer.Canvas.Handle, MM_LOMETRIC);
    Escape(Printer.Handle, GETPRINTINGOFFSET,0,nil,@pntMargins);
    i:=1; 
    Ox:=pntMargins.X;
    Oy:=pntMargins.Y;
    repeat
          printer.Canvas.TextOut(-Ox+130,+Oy-280, LPol.Strings[i]);
          ...
      end;
      inc(i);
      printer.NewPage;
    Until i>Lpol.Count-1;
    Printer.EndDoc;
  end;
end;

Подскажите как можно решить эту проблему! Заранее огромное спасибо !!!