ayuda urgente¡¡ como imprimo y guardo timage

[Neftali [Germán.Estévez]]

Antes de nada...

(1) No repitas el mismo mensaje varias veces.
(2) Si utilizas TAG's en tu código, éste se leerá mejor...

En cuanto a la pregunta, puedes utilizar el propio Print del formulario; No es muy sofisticado, pero funciona, y dado la urgencia...
Haz los siguientes cambios y prueba.

Si realizas un:

Código Delphi [-]
    Self.Print;

verás que funciona, pero imprime todo el formulario; Para "mejorarlo" un poco haz lo siguiente:

(1) Coloca los botones y el TEdit dentro de un panel y lo situas en la parte inferior del form.
(2) En el evento de print coloca lo siguiente:

Código Delphi [-]
  var
    bi:TBorderIcons;
  begin
  
    // Antes de imprimir
    Self.Color := clWhite;
Self.BorderStyle := bsNone;
    bi := Self.BorderIcons;
    Self.BorderIcons := [];
  
    // Ocultarlo antes de imprimir
    panel1.Visible := False;    <<-- Panel donde están los controles
    
    try
      // Imprimir
      Self.Print;
  
      // Despues de imprimir....
      Self.BorderIcons := bi;
      Self.BorderStyle := bsSizeable;
Self.Color := clBtnFace;
  
    finally
  panel1.Visible := False;
    end;

[eljuan]

hola Neftali te agradesco de verdad la ayuda proporcionada y la rapidez con que la brindan. mi problema de la impresion ha quedado resuelta, ahora mi otro problema es el guardado de este mismo programa.
espero y me puedas dar una sugerencia.

[Neftali [Germán.Estévez]]

Pon un componente TImage en el formulario y prueba con un código como éste:

Código Delphi [-]
 var
   DestRect, SourceRect: TRect;
 begin
   // Rectangulos origen y destino
   SourceRect := Rect(0, 0, Self.Width, Self.Height);
   DestRect := Rect(0, 0, Self.Width, Self.Height);
   // Copiar la imagen
   Image1.Canvas.CopyRect(DestRect, Self.Canvas, SourceRect);
   // Grabarla en disco
   Image1.Picture.Bitmap.SaveToFile('c:\temp\image1.bmp');

A partir de éste puedes modificarlo para mejorarlo, pero la base ya la tienes.