[Kramarty]

Как можно задать разрешение принтера из своей программы?
В моём приложении рассчитана печать на разрешение 600*600, а у цветных принтеров 4800*1200...

[NumLock]

печатать нужно с учетом разрешения принтера:
property PageWidth: Integer;
property PageHeight: Integer;
и контекста устройства:
GetDeviceCaps

[Kramarty]

Сообщение от NumLock

печатать нужно с учетом разрешения принтера:
property PageWidth: Integer;
property PageHeight: Integer;
и контекста устройства:
GetDeviceCaps

К сожалению все эти способы размывают изображение, резкость ухудшается! Приходится печатать на одну страницу принтера, с нескольких страниц ПэйджКонтрола методом PaintTo.
На принтере с разрешением 600*600 всё отлично но на принтах с большим разрешением придётся уменьшать его.
Нашёл книгу http://rutracker.org/forum/viewtopic.php?t=2422037
буду думать по ней о печати там отлично сказано.

Вот здесь моя прога http://delphisources.ru/forum/showthread.php?t=21238

[NumLock]

ну естественно - невозможно качественно распечатать картинку 32 на 32 пикселя на холсте 3 на 4 метра
решение: создавай изображение изначально высокого разрешения или с учетом текущих параметров контекста устройства.

[Kramarty]

Сообщение от NumLock

ну естественно - невозможно качественно распечатать картинку 32 на 32 пикселя на холсте 3 на 4 метра
решение: создавай изображение изначально высокого разрешения или с учетом текущих параметров контекста устройства.

Я так и сделал, но мне непонятно как помещается на странице PageControl-TabSheet больший по размерам компонент Shape ?????
И при этом всё работает при печати по размерам Shape(a): вот это удивительно....

[NumLock]

ну как бы напечатать stRectangle, stSquare, stRoundRect, stRoundSquare, stEllipse, stCircle не составляет труда на любом разрешеннии.

[Kramarty]

Сообщение от NumLock

ну как бы напечатать stRectangle, stSquare, stRoundRect, stRoundSquare, stEllipse, stCircle не составляет труда на любом разрешеннии.

Это вы о Shape(ах)?
Конечно, хорошо получится если виртуальные Shape(ы) печатать сразу в канву принтера, но ... у меня их 28 штук и высчитывать все сотни размеров придётся через доли ширины и длины принтера...да и текстов 16 штук это сколько высчитывать надо, чтоб из них каждый встал в свою точку!!!

[NumLock]

то есть нужно написать всего 2 (!!!) процедурки: печать Shape и текста.