Imprimir Pantalla, como ?

[Pascual Montes]

Hello, Hay alguna forma de Imprimir lo que esta en pantalla
por ejemplo poner un boton de imprimir pantalla y que al pulsarlo
se fotografia (por asi decirlo) la pantalla y posteriormente
imprimir esto ?


Gracias Trompañeros.

Hasta La vista.

[defcon1_es]

Hola, mira este código:

Código Delphi [-]
procedure Capturar_Pantalla;
var
  c: TCanvas;
  r: TRect;
  Foto: TBitmap;
  FotoJPEG : TJPEGImage;
begin
  c := TCanvas.Create;
  c.Handle := GetWindowDC(GetDesktopWindow);
  try
    r := Rect(0, 0, Screen.Width, Screen.Height);
    Foto := TBitmap.Create;
    Foto.Width := Screen.Width;
    Foto.Height := Screen.Height;
    Foto.Canvas.CopyRect(r, c, r);
//  Para convertir la captura de pantalla a jpg, el bmp ocupa mucho 
    FotoJPEG := TJPEGImage.Create;
    FotoJPEG.Assign(Foto);
    FotoJPEG.SaveToFile('MiCaptura.jpg');
  finally
    ReleaseDC(0, c.Handle);
    Foto.Free;
    FotoJPEG.Free;
    c.Free;
  end;
end;

Un salu2.

[defcon1_es]

Se me olvidaba....

El truco lo saqué de http://www.swissdelphicenter.ch/en/showcode.php?id=259

[madman]

Esto ya estaba en clubdelphi
http://www.clubdelphi.com/foros/show...light=capturar