Здравствуйте, ArtDenis, Вы писали:

Делаю все следующим образом (где-то на форуме подсмотрел):

procedure PrintGraphic(ObjectToPrint: TGraphic; ObjectCanvas: TCanvas);
begin
  with Printer do
  begin
    BeginDoc;
    Canvas.CopyRect(Rect(0, 0, 1911, 2807), ObjectCanvas, Rect(0, 0, 273, 401) );
    EndDoc;
  end;
end;

//кнопка печати
procedure TForm1.Button3Click(Sender: TObject);
begin
PrintGraphic(Image1.Picture.Graphic, Image1.Canvas);
end;

//выводим текст на канву при активации формы
procedure TForm1.FormActivate(Sender: TObject);
begin
   with Image1.Canvas do
     begin
  Brush.Color:=clWhite;
  Image1.canvas.font.name:='Times New Roman';
  Image1.canvas.font.style:=[];
  Image1.canvas.font.height:=-7;
  textout (10,5,'ТЕКСТ');
  Image1.canvas.font.height:=-3;
  textout (10,20,'текст.');
    end;
end;

В итоге, получаем картинку и текст.
Картинка смаштабировалась и текст тоже.
Но текст масштабируется как растровое изображение, т.е. каждый пиксель увеличивается.
Прочитать такой текст практически невозможно. Особенно мелкий.

Спасибо.