[mav_c]

printer := TPrinter.Create();
printer.BeginDoc();
printer.Canvas.Draw(0, 0, Image1.Picture.Bitmap);
printer.EndDoc();
printer.Destroy();
или printer.Canvas.StretchDraw(Rect(0, 0, 400, 400), Image1.Picture.Bitmap); если нужно растянуть image