Сохранение точных размеров при печати

Written on 31 Октября 2007. Posted in [Delphi] Система. Принтеры

Приведенный ниже модуль демонстрирует принцип использования GetDeviceCaps для получения исчерпывающей информации о вашем принтере, включая HORZRES и VERTRES (горизонтальное и вертикальное разрешение в пикселах) на дюйм бумаги. Используя значения LOGPIXELSX и LOGPIXELSY, вы можете откалибровать принтер для точного задания количества точек на дюйм в горизонтальном и вертикальном направлениях.

В дополнение к информации о принтере, приведенный модуль демонстрирует способ печати, при котором изображение выводится на принтер "естественного" размера; также показана возможность размещения изображения на бумаге в определенной позиции и определенного размера (т.е. с применением масштабирования). Я думаю это должно вам помочь в деле управления принтером.

Пример также демонстрирует вывод на печать синусной кривой в конкретной позиции печати с заданными в дюймах размерами. Я думаю вы без труда разберетесь как перейти на метрическую систему размеров.

unit Tstpr2fm;

{Пример использования объекта Printer из модуля TPrinter.

Приведен избыточный стиль программирования для облегчения

восприятия материала.

Демонстрация величин, возвращаемых функцией Windows API GetDeviceCaps.

interface

uses

SysUtils, WinTypes, WinProcs, Messages, Classes, Graphics, Controls,

Forms, Dialogs, StdCtrls, ExtCtrls;

type

TForm1 = class(TForm)

Print: TButton;

Image1: TImage;

procedure PrintClick(Sender: TObject);

private

{ Private declarations }

public

{ Public declarations }

end;

var

Form1: TForm1;

implementation

USES

Printers;

{Константы WINAPI GetDeviceCaps получены из C++ windows.h и wingdi.h}

{Отдельные константы здесь приведены только для информации о их наличии}

CONST

DRIVERVERSION = 0;

TECHNOLOGY = 2; {Смотри windows.h для значения маски}

HORZSIZE = 4;

VERTSIZE = 6;

HORZRES = 8;

VERTRES = 10;

BITSPIXEL = 12;

PLANES = 14;

NUMBRUSHES = 16;

NUMPENS = 18;

NUMMARKERS = 20;

NUMFONTS = 22;

NUMCOLORS = 24;

PDEVICESIZE = 26;

CURVECAPS = 28; {Смотри windows.h для значения маски}

LINECAPS = 30; {Смотри windows.h для значения маски}

POLYGONALCAPS = 32; {Смотри windows.h для значения маски}

TEXTCAPS = 34; {Смотри windows.h для значения маски}

CLIPCAPS = 36; {Смотри windows.h для значения маски}

RASTERCAPS = 38; {Смотри windows.h для значения маски}

ASPECTX = 40;

ASPECTY = 42;

ASPECTXY = 44;

LOGPIXELSX = 88;

LOGPIXELSY = 90;

SIZEPALETTE = 104;

NUMRESERVED = 106;

COLORRES = 108;

PHYSICALWIDTH = 110; {Смотри определение в windows.h}

PHYSICALHEIGHT = 111; {Смотри определение в windows.h}

PHYSICALOFFSETX = 112; {Смотри определение в windows.h}

PHYSICALOFFSETY = 113; {Смотри определение в windows.h}

SCALINGFACTORX = 114; {Смотри определение в windows.h}

SCALINGFACTORY = 115; {Смотри определение в windows.h}

DeviceCapsString: ARRAY[1..34] OF STRING =

('DRIVERVERSION', 'TECHNOLOGY', 'HORZSIZE',

'VERTSIZE', 'HORZRES', 'VERTRES',

'BITSPIXEL', 'PLANES', 'NUMBRUSHES',

'NUMPENS', 'NUMMARKERS', 'NUMFONTS',

'NUMCOLORS', 'PDEVICESIZE', 'CURVECAPS',

'LINECAPS', 'POLYGONALCAPS', 'TEXTCAPS',

'CLIPCAPS', 'RASTERCAPS', 'ASPECTX',

'ASPECTY', 'ASPECTXY', 'LOGPIXELSX',

'LOGPIXELSY', 'SIZEPALETTE', 'NUMRESERVED',

'COLORRES', 'PHYSICALWIDTH', 'PHYSICALHEIGHT',

'PHYSICALOFFSETX','PHYSICALOFFSETY','SCALINGFACTORX',

'SCALINGFACTORY');

DeviceCapsIndex: ARRAY[1..34] OF INTEGER =

( 0, 2, 4, 6, 8, 10, 12, 14, 16, 18,

20, 22, 24, 26, 28, 30, 32, 34, 36, 38,

40, 42, 44, 88, 90, 104, 106, 108, 110, 111,

112, 113, 114, 115);

{$R *.DFM}

FUNCTION iPosition(const i: INTEGER): INTEGER;
BEGIN

RESULT := Integer(i * LongInt(Printer.PageWidth) DIV 1000)

END {iPosition};

FUNCTION jPosition(const j: INTEGER): INTEGER;
BEGIN

RESULT := Integer(j * LongInt(Printer.PageHeight) DIV 1000)

END {jPosition};

procedure TForm1.PrintClick(Sender: TObject);

VAR

DestinationRectangle: TRect;

GraphicAspectRatio : DOUBLE;

i : INTEGER;

j : INTEGER;

iBase : INTEGER;

iPixelsPerInch : WORD;

jBase : INTEGER;

jDelta : INTEGER;

jPixelsPerInch : WORD;

OffScreen : TBitMap;

PixelAspectRatio : DOUBLE;

SourceRectangle : TRect;

TargetRectangle : TRect;

value : INTEGER;

x : DOUBLE;

y : DOUBLE;

begin

Printer.Orientation := poLandscape;

Printer.BeginDoc;

{Делаем прямоугольник для показа полей}

Printer.Canvas.Rectangle(0,0, Printer.PageWidth, Printer.PageHeight);

{Свойства принтера и страницы}

Printer.Canvas.Font.Name := 'Times New Roman';

Printer.Canvas.Font.Size := 12;

Printer.Canvas.Font.Style := [fsBold];

Printer.Canvas.TextOut(iPosition(50), jPosition(40), 'Свойства принтера и страницы');

Printer.Canvas.Font.Style := [];

Printer.Canvas.Font.Size := 10;

iBase := iPosition(50);

jBase := 60;

jDelta := 18;

Printer.Canvas.TextOut(iPosition(50), jPosition(jBase),

Printer.Printers.Strings[Printer.PrinterIndex]);

INC (jBase, jDelta);