![]() |
Прежде чем задать вопрос, смотрите FAQ.
Рекомендуем загрузить DRKB.
![]() |
NXM |
![]()
Сообщение
#1
|
Группа: Пользователи Сообщений: 1 Пол: Мужской Репутация: ![]() ![]() ![]() |
Уважаемые господа! Есть следующая проблема:
Мне необходимо заполнять бланки с помощью матричного принтера. Бланки находятся в рулоне и их размер 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 |
![]() ![]() |
![]() |
Текстовая версия | 28.07.2025 20:15 |