Печать

← →
Bond (2004-04-20 07:53) [0]

Подскажите плз, как напечатать на принтере прямоугольник строго 3х3 см. И чтобы этот прямоугольник печатался с такими размерами на всех без исключения принтерах, вне зависимости от их разрешения. Если не трудно, напишите текст программы. Спасибо.

← →
Anatoly Podgoretsky © (2004-04-20 09:00) [1]

GetDeviceCaps для получения характеристик принтера, для рисования метод Rectangle

← →
Bond (2004-04-20 10:16) [2]

А можно поподробнее о GetDeviceCaps: в параметрах нужно указать
DC: HDC; Index: Integer;
Что обозначают эти параметры? Если не сложно, напишите примерчик. Мне также хотелось бы узнать разрешение принтера в точках на дюйм, а ещё лучше в точках на см. или мм.

← →
Anatoly Podgoretsky © (2004-04-20 10:23) [3]

Разрешение в пикселях на дюйм

hdc, // device-context handle
nIndex // index of capability to query

← →
vl_chel © (2004-04-20 10:46) [4]

см модуль Windows строка 13615
{ Device Parameters for GetDeviceCaps() } {$EXTERNALSYM DRIVERVERSION} DRIVERVERSION = 0; { Device driver version } {$EXTERNALSYM TECHNOLOGY} TECHNOLOGY = 2; { Device classification } {$EXTERNALSYM HORZSIZE} HORZSIZE = 4; { Horizontal size in millimeters } {$EXTERNALSYM VERTSIZE} VERTSIZE = 6; { Vertical size in millimeters } {$EXTERNALSYM HORZRES} HORZRES = 8; { Horizontal width in pixels } {$EXTERNALSYM VERTRES} VERTRES = 10; { Vertical height in pixels } {$EXTERNALSYM BITSPIXEL}

← →
Григорьев Антон (2004-04-20 11:05) [6]

На место DC надо ставить Printer.Canvas.Handle. Второй параметр показывает, значение какой величины вы хотите получить. Вам нужны LogPixelsX и LogPixelsY - число точек на дюйм по горизонтали и вертикали. Ну а зная эти значения, сосчитать, сколько пиксеслов в трёх сантиметрах, проблемы не составит.

Печать Найти похожие ветки