In[]:=
expr=TabularSummary@ResourceData["Sample Tabular Data: Car Models"];boxes=ToBoxes[expr];newBoxes=boxes/.TableViewBox[body_,opts___]:>TableViewBox[body,Sequence@@FilterRules[{opts},Except[TableViewBoxItemSize]],ImageSize->{579,{0,300}},TableViewBoxItemSize->{"ColumnsIndexed"->{1->7,2->13,3->11,4->6,5->6,6->6}}];Rasterize@Cell[BoxData[newBoxes],"Output"]
Out[]=
