有人在用fastReport作报表时处理过字体自动缩小的问题吗,怎么做
最佳答案![](data:image/png;base64,iVBORw0KGgoAAAANSUhEUgAAAIgAAAAmCAMAAAAociP+AAAABGdBTUEAALGPC/xhBQAAAAFzUkdCAK7OHOkAAAEmUExURQAAAEvLbUrLbUrKbkvKbUzLcVX/qlLRbUrLbkvLbUvLbkvKblXVgErKbkvKblTOdVDPcErKbUvLbkvLbUrLbVPNdUzLbU7McFDPcErNbkvLbUvLbkvKbkvKbUrOc03McEvKbkvLblbOdkrLbUrLblnPeU/ObUvKbmbMmV3RdEvLbkzLb0vLb0rKbUvSeErKbU7NcUrLbk3Mb0vLbljPeEvKbkzLb0vLbUvKb0zLbkrKbkvKbUzLcP///0rKbez672/Vi9Hy2u/78uL36Pj9+n7al4zeotr04fv++7Tpwrfqxfb998Xu0KHks6PktaznvXbXkGLRgM3x12XSg/7//rjrxordoPT89tv14pbhqr7sy3jYko7epPL89aDjsr3symHRf8jv0yiB0vUAAAA9dFJOUwDN4u3nNgMc5qZ79gazOv4gvZmY/v6K/hBW9eF01B9Qz7X++on+KsEFC/5eeukR9ySX/v3+vGzbXErV3kBkHM2LAAAA8ElEQVRYw83YZUKCARQF0UeDCWKLooRgd/uGtBW7C/e/CZfx3VnB+T1miVSSwDs6tkQEhQ4txUnNg+6XkCUJ3vG9zb5B4A7/YscUIA3W1hUg548smwKkw3RVAdIaGx4wBcgdWVOAPBMdV4A0C0yYAuSFOVOAPDA5owBp35MzBcgNs3EFyNUIMVOAXJMxCcgtoxqQS4Y0IGdE+yQgXqdHA9KgNy0B8VP6NSDNQfISEL9gakEC8lSnJAHxt8XivATE36loQF7LLElA/IOVVQmIf7KhAWltbsUkIP5DKC6xJdpddjVGzR9hlXUVNo2Zt3fwD9amp3fW/DHBAAAAAElFTkSuQmCC)
2017-07-14
在我常用的finereport中可以直接调整字体的大小的,稍微看了一下,如果想要在fastreport中实现字体自动缩小,可以进行如下操作:
在frxMemoView.OnAfterData/OnBeforePrint:
begin
while ((TfrmMemoView(Sender).CalcHeight-TfrxMemoView(Sender).LineSpacing)-TfrxMemoView(Sender).Height>0) do
begin
TfrxMemoView(Sender).Font.Size := TfrxMemoView(Sender).Font.Size-1;
end;
end;
在frxMemoView.OnAfterData/OnBeforePrint:
begin
while ((TfrmMemoView(Sender).CalcHeight-TfrxMemoView(Sender).LineSpacing)-TfrxMemoView(Sender).Height>0) do
begin
TfrxMemoView(Sender).Font.Size := TfrxMemoView(Sender).Font.Size-1;
end;
end;
//我最后是改成这样了
while (memo_ZKSM.CalcHeight-memo_ZKSM.LineSpacing-memo_ZKSM.Height>0) do
begin
memo_ZKSM.Font.Size := memo_ZKSM.Font.Size-1;
end;