Масштабирование при распечатке

← →
Medusa__ (2007-04-04 20:19) [0]

Здравствуйте! Распечатываю TControl (а именно TPanel) вот таким вот макаром:
var tp:TPrinter; begin tp:=TPrinter.Create; PrintDialog1.Execute; tp.BeginDoc; TPanel.PaintTo(tp.Canvas.Handle,0,0); tp.EndDoc; end;

Распечатывается форма 3.5 на 1.5 см. Как лучше смасштабировать, чтобы было на весь лист? (в пропорциях)

← →
Medusa__ (2007-04-04 22:19) [1]

Актуально :-)

← →
Medusa__ (2007-04-04 22:19) [2]

Актуально :-)

← →
{RASkov} (2007-04-05 00:06) [3]

Вот это вот:
> var tp:TPrinter;

нафик не надо, убери. В модуле Printers уже есть объект Printer его и используй. Создавать его не надо.

> Как лучше смасштабировать, чтобы было на весь лист? (в пропорциях)

А здесь можно много чего придумать, но нужно учитывать, что разрешение(dpi) монитора и принтера разные...
Например рисуй TControl на временный битмап, а его(битмап) выводи на канву принтера StrechDraw()
Посмотри на GetDeviceCaps.... может полегче станет.

← →
Medusa__ (2007-04-05 20:08) [4]

Спасибо, попробую.

>нафик не надо, убери. В модуле Printers уже есть объект Printer его и используй. Создавать его не надо.

Сделано.

← →
Medusa__ (2007-04-09 12:22) [5]

Чтот я не совсем понимаю как это реализовать..
подскажите куда дальше копать..)

> Как лучше смасштабировать, чтобы было на весь лист? (в пропорциях)

Через SetMapMode переключи канвас в анизотропный режим, через SetWindowExtEx задай текущае пропорции, через SetViewportExtEx задай необходимые тебе, после чего рисуй.

Масштабирование при распечатке Найти похожие ветки