Imprimir bitmap na impressora

Delphi

15/06/2004

Estou tentando imprimir um bitmap na impressora, so que so sai no preview, na hora de mandar imprimir so sai o texto.


procedure TForm1.RvSystem1Print(Sender: TObject);
var Bitmap1 : TBitmap;
begin
BitMap1 := TBitMap.Create;
Bitmap1.LoadFromFile(´C:\logo.bmp´);


With Sender as TBaseReport do Begin
GotoXY(1,1); // Coluna 1cm, linha 1cm
FontSize := 10;
FontName := ´Arial´;
FontColor := clBlack;
PrintImageRect();
PrintBitmap( 0.0, 0.0, 0.4, 0.5, Bitmap1);
GotoXY(5.0,2.3); // Coluna 1cm, linha 1cm
Print(´Teste de Impressão´);

End;


Wanderson

Wanderson

Curtidas 0
POSTAR