TPaintBox + TPrinters = Вывод на печать

[XerSon]

Всем привет,

При таком раскладе на печать выводится изображение размером 1х1 см, хотя размер PainBox'a равен 230х230 пикс, в чем косяк?

var
  pRect: TRect;
  pBitMap: TBitmap;

begin
  pRect := Rect(0, 0, PaintBox.Width, PaintBox.Height);
  pBitMap := TBitmap.Create;
  try
    with pBitMap do
    begin
      Width := PaintBox.Width;
      Height := PaintBox.Height;
      Canvas.CopyRect(pRect, PaintBox.Canvas, pRect);
    end;
    with Printer do
    begin
      BeginDoc;
      Canvas.StretchDraw(pRect, pBitMap);
      EndDoc;
    end;
  finally
    pBitMap.Free;
  end;

[Black Fregat]

У принтера очень высокое разрешение, надо масштабировать
Берите разрегение принтера через GetDeviceCaps и вычисляйте коэффициенты

[XerSon]

Сообщение от Black Fregat

У принтера очень высокое разрешение, надо масштабировать
Берите разрегение принтера через GetDeviceCaps и вычисляйте коэффициенты

Спс, поиск привел в данный топик, попробуем.