Bitmap mit Hintergrund drucken

[thomas2009]

Wie meinst Du ?
Hier ist ein Beispiel :

Delphi-Quellcode:

procedure TForm1.Button1Click(Sender: TObject);
var
bmp: TBitmap;
begin
bmp:=Tbitmap.Create;
bmp.PixelFormat:=pf24Bit;
bmp.Width:=400;
bmp.Height:=400;
Image1.Picture.Bitmap.Assign(bmp);
image1.Canvas.Pen.Width:=2;
image1.Canvas.Pen.Color:=ClRed;
image1.Canvas.Rectangle(2,2,396,396);
bmp.Free;

// nun drucken
with printer do begin
    BeginDoc;
    SetBkColor(Canvas.Handle,clYellow);
    Canvas.Draw(0,0,Image1.Picture.Bitmap);
    EndDoc;
    end;
end;