IPB
ЛогинПароль:

> ВНИМАНИЕ!

Прежде чем задать вопрос, смотрите FAQ.
Рекомендуем загрузить DRKB.

> Не стандартная печать!, Заполнение бланков...
NXM
сообщение 14.04.2005 13:13
Сообщение #1





Группа: Пользователи
Сообщений: 1
Пол: Мужской

Репутация: -  0  +


Уважаемые господа! Есть следующая проблема:
Мне необходимо заполнять бланки с помощью матричного принтера. Бланки находятся в рулоне и их размер 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;


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

Сообщение отредактировано: volvo - 5.04.2010 14:25
 Оффлайн  Профиль  PM 
 К началу страницы 
+ Ответить 

Сообщений в этой теме


 Ответить  Открыть новую тему 
1 чел. читают эту тему (гостей: 1, скрытых пользователей: 0)
Пользователей: 0

 

- Текстовая версия 28.07.2025 20:15
Хостинг предоставлен компанией "Веб Сервис Центр" при поддержке компании "ДокЛаб"