Fórum Imprimir componente #194304

procedure PrintSomeControl(Control: TControl; X, Y: Integer);
var
  R: TRect;
begin
  Assert((Control is TWinControl) or (Control is TGraphicControl), ´Controle inválido´);
  with Printer do
  begin
    BeginDoc;
    try
      if Control is TWinControl then
        TWinControl(Control).PaintTo(Canvas, 0, 0)
      else if Control is TGraphicControl then
        CopyRect(Bounds(X, Y, Control.Width, Control.Height),
          TGraphicControl(Control).Canvas,
          Rect(0, 0, Control.Width, Control.Height));
    finally
      EndDoc;
    end;
  end;
end;