Imprimir de um TImage

Delphi

07/09/2003

Carrego arquivos *.jpg num TImage, e queria imprimir esses arquivos, com fazer?


Fabio Colli

Fabio Colli

Curtidas 0

Melhor post

Cebikyn

Cebikyn

07/09/2003

Não sei se funciona, mas vc pode tentar:

uses
  Printers;

procedure TForm1.Button1Click(Sender: TObject);
var
  ScaleX, ScaleY: Integer;
  RR: TRect;
begin
  with Printer do
  begin
    BeginDoc;
    try
      ScaleX := GetDeviceCaps(Handle, logPixelsX) div PixelsPerInch;
      ScaleY := GetDeviceCaps(Handle, logPixelsY) div PixelsPerInch;
      RR := Rect(0, 0, Image1.picture.Width * scaleX, Image1.Picture.Height * ScaleY);
      Canvas.StretchDraw(RR, Image1.Picture.Graphic);
    finally
      EndDoc;
    end;
  end;
end;



GOSTEI 1

Mais Respostas

Valtenir Carvalho

Valtenir Carvalho

07/09/2003

Obrigado pela dica, comigo funcionou. Teria como eu redimensionar a imagem e centralizar no momento da impressão?
GOSTEI 0
POSTAR