Ver Mensaje Individual
  #1  
Antiguo 20-11-2007
Avatar de MAXIUM
MAXIUM MAXIUM is offline
Miembro
 
Registrado: may 2005
Posts: 1.503
Reputación: 23
MAXIUM Va camino a la fama
Imprimir imagen

Hola, como puedo imprimir una imagen usando la API de Windows.
He probado con el siguiente código pero no sale con las dimensiones del dibujo, es decir muy en miniatura

Código Delphi [-]
procedure TForm1.Button1Click(Sender: TObject);
Var Bitmap: TBitMap;
begin
     Bitmap:= TBitmap.Create;
     Bitmap.LoadFromFile('logo.bmp');
     
     Printer.BeginDoc;
     Printer.Canvas.Draw(100, 100, Bitmap);
     Printer.EndDoc;
     
     Bitmap.Free;
end;
Responder Con Cita