Недавно добавленные исходники

•  DeLiKaTeS Tetris (Тетрис)  4 442

•  TDictionary Custom Sort  6 472

•  Fast Watermark Sources  6 263

•  3D Designer  9 215

•  Sik Screen Capture  6 600

•  Patch Maker  6 986

•  Айболит (remote control)  6 986

•  ListBox Drag & Drop  5 858

•  Доска для игры Реверси  97 004

•  Графические эффекты  7 188

•  Рисование по маске  6 482

•  Перетаскивание изображений  5 353

•  Canvas Drawing  5 729

•  Рисование Луны  5 442

•  Поворот изображения  4 970

•  Рисование стержней  3 532

•  Paint on Shape  2 801

•  Генератор кроссвордов  3 668

•  Головоломка Paletto  2 953

•  Теорема Монжа об окружностях  3 761

•  Пазл Numbrix  2 481

•  Заборы и коммивояжеры  3 165

•  Игра HIP  2 129

•  Игра Go (Го)  2 061

•  Симулятор лифта  2 426

•  Программа укладки плитки  2 109

•  Генератор лабиринта  2 571

•  Проверка числового ввода  2 260

•  HEX View  2 587

•  Физический маятник  2 201

 
скрыть

  Форум  

Delphi FAQ - Часто задаваемые вопросы

| Базы данных | Графика и Игры | Интернет и Сети | Компоненты и Классы | Мультимедиа |
| ОС и Железо | Программа и Интерфейс | Рабочий стол | Синтаксис | Технологии | Файловая система |



Delphi Sources

Печать на любом принтере



Автор: Mike Scott

Как лучше всего убедиться в том, что текст на странице расположен правильно вне зависимости от принтера, версии windows и т.п.?

Есть пара вызовов принтерных Escape-функций API, возвращающих физический размер страницы и отступ от края при печати (верх лево). Используя это, вы можете убедиться в том, печать начинается в одном и том же месте реального листа. Примечание: тем не менее, вы все еще зависите от точности принтера и драйвера, на практике это может вылиться в разброс 1-2 мм.

Для получения размера физической страницы и отступа от верхнего левого угла печатаемой области, используйте следующий код:


var
  PhysSize, PrintingOffset : TPoint ;
begin
  Escape( Printer.Handle, GetPhysPageSize, 0, NIL, @PhysSize ) ;
  Escape( Printer.Handle, GetPrintingOffset, 0, NIL, @PrintingOffset ) ;

PhysSize и PrintingOffset теперь устанавливаются в единицах устройства, т.е. в пикселях принтера. Для преобразования мм в единицы устройства используйте следующий код:


xDevUnits := MulDiv( XXXmm,
GetDeviceCaps( Printer.Handle, HORZRES ),
GetDeviceCaps( Printer.Handle, HORZSIZE ) ) ;
yDevUnits := MulDiv( YYYmm,
GetDeviceCaps( Printer.Handle, VERTRES ),
GetDeviceCaps( Printer.Handle, VERTSIZE ) ) ;

Затем, для примера, вы можете использовать эти координаты для вывода текста с помощью методов Printer.Canvas. Хорошая идея для этого метода - измерение единиц устройств, отступа и размера страниц для различных принтеров и сохранение полученной информации в базе данных. Также можно предусмотреть удобный для пользователя диалог, где он мог бы внести свои изменения и откорректировать точность своего принтера.





Похожие по теме исходники

Печать тетради




Copyright © 2004-2025 "Delphi Sources" by BrokenByte Software. Delphi World FAQ

Группа ВКонтакте