Imprimir BMP

[gallipi]

Hola a todos,

Estoy intentando imprimir una imagen (BMP).
Inicialmente lo intente con el objeto TPrinterDialog, pero leí en el foro que solo debe usarse para asignar propiedades de impresion, pero no para imprimir.

Ahora estoy utilizando el API StretchDIBits, pero todavia no consigo imprimir nada. El error q me da es el siguiente: "Printer is not currently printing"

Código PHP:

procedure TForm1.PrintBMP(bmp: TBitmap);
var
  Info      : PBitmapInfo;
  InfoSize  : DWORD;
  Image     : Pointer;
  ImageSize : DWORD;
  Bits      : HBITMAP;
begin
     Bits := bmp.Handle; 
     GetDIBSizes(Bits, InfoSize, ImageSize);
     Info := AllocMem(InfoSize);
     try
       Image := AllocMem(ImageSize);
       try
         GetDIB(Bits, 0, Info^, Image^);
          
         StretchDIBits(Printer.Canvas.Handle,
             5, 30, Bmp.Width, bmp.Height,
             0,  0, bmp.Width, bmp.Height,
             Image, Info^, DIB_RGB_COLORS, SRCCOPY);
          
       finally
         FreeMem(Image, ImageSize);
       end;
     finally
       FreeMem(Info, InfoSize);
     end;
end; 


Si alguien ve el error o tiene una forma mejor de imprimir una imagen q no dude en postearlo!

Gracias por adelantado.

[[seoane]]

Hola,

http://www.clubdelphi.com/foros/show...92&postcount=2

[gallipi]

gracias, me viene genial!!