Imprimir Canvas en un TCustomControl

[salvica]

He pasado los métodos del Paint a un procedimiento DibujarBanda, con lo que queda así:

Código Delphi [-]
procedure TBandaPluvio.Paint;
var
  BitmapBanda : TBitmap;
begin
  BitmapBanda := TBitmap.Create;
  try
    DibujaBanda(BitmapBanda);
    Canvas.Draw(0, 0, BitmapBanda); <--- aqui copio el Bitmap en el Canvas
  finally
    BitmapBanda.Free;
  end;
end;

y la impresión queda así

Código Delphi [-]
procedure TBandaPluvio.ImprimirBanda;
var
  BitmapBanda : TBitmap;
begin
  BitmapBanda := TBitmap.Create;
  try
    DibujaBanda(BitmapBanda);
    PrintScaled(BitmapBanda);
  finally
    BitmapBanda.Free;
  end;
end;

Saludos
salvica