如何動態設置 FastReport 列印中字體 ( 积分: 144 )

  • 主题发起人 主题发起人 Delphiguanshui
  • 开始时间 开始时间
D

Delphiguanshui

Unregistered / Unconfirmed
GUEST, unregistred user!
如何動態設置 FastReport 列印中字體
我想在列印之前提出一個提示框，讓其選擇要列印的字體，該怎麽處理呢。
哪位大蛺知道請回複，謝謝。。
本人在線等，
 
如何動態設置 FastReport 列印中字體
我想在列印之前提出一個提示框，讓其選擇要列印的字體，該怎麽處理呢。
哪位大蛺知道請回複，謝謝。。
本人在線等，
 
如何動態設置 FastReport 列印中字體
我想在列印之前提出一個提示框，讓其選擇要列印的字體，該怎麽處理呢。
哪位大蛺知道請回複，謝謝。。
本人在線等，
 
不知道我水平太差还是怎么的,我总感觉fastreport有很多方面存在不足,到现在碰到几个问题解决不了的了
 
例如：在frxReport设计器中加一个Memo1控件，在BeforePrint事件中写以下代码即可！
其它控件类似！如果其它控件都需改变字体，可共用一个BeforePrint事件就行了！
procedure Memo1OnBeforePrint(Sender: TfrxComponent);
begin
Memo1.font:='宋休';
Memo1.font.size:=8;

end;
 
我也碰到这个问题.关注....
 
你看一下我提的问题，就是动态创建MEMO中的居中，居中没解决，但你的问题是能解决的，呵呵
 
好的.
 
如何動態設置 FastReport 列印中字體
我想在列印之前提出一個提示框，讓其選擇要列印的字體，該怎麽處理呢。
哪位大蛺知道請回複，謝謝。。
本人在線等，
 
如何動態設置 FastReport 列印中字體
我想在列印之前提出一個提示框，讓其選擇要列印的字體，該怎麽處理呢。
哪位大蛺知道請回複，謝謝。。
本人在線等，
 
如何動態設置 FastReport 列印中字體
我想在列印之前提出一個提示框，讓其選擇要列印的字體，該怎麽處理呢。
哪位大蛺知道請回複，謝謝。。
本人在線等，
 
問題解決了沒。。。。。。
 
怎麽沒動靜了啊。。。。。人呢。。。。。
 
在你的打印按钮中实现这个内容
var
AReport:TfrReport;
p,i:integer;
for p := 0 to AReport.Pages.Count -1do
for i :=0 to AReport.Pages[p].Objects.Count-1 do
if TObject(AReport.Pages[p].Objects) is TfrView then
begin
with (TfrView(AReport.Pages[p].Objects))do
begin
Memo.font:='你选择的字体名称';
Memo.font.size:=你选择的字体大小;
end;
end;
 
TO:
flj328,
我试了.可是会出错啊....
 
怎么没人了呢.
 
不好意思点错了.还有会的吗?
 
var
AReport:TfrReport;
p,i:integer;
for p := 0 to AReport.Pages.Count -1do
for i :=0 to AReport.Pages[p].Objects.Count-1 do
if TObject(AReport.Pages[p].Objects) is TfrView then
begin
with (TfrView(AReport.Pages[p].Objects))do
begin
Memo.font:='你选择的字体名称';//这句应该是Memo.font.name 不过没有测试
Memo.font.size:=你选择的字体大小;
end;
end;
 
您必须登录或注册才可回复。

Similar threads

I
IDE Expert
回复
0
查看
800
import
I
X
TfrMemoView如何實現自動文字大小(100)
回复
3
查看
769
xnium
X
H
TStringGrid中設置字體顏色(0分)
回复
3
查看
471
huangyaoxu
H
L
cxgrid中設置某列為tdate ，但是要求並不是每一行記錄的tdate都是enabled狀態，隻有前一列中對應cell不為空時，然後才將本列中的tdate
回复
3
查看
327
lkdbdlkq
L
X
ReportBuilder Enterprise 7 中設計報表問題 ( 积分: 100 )
回复
1
查看
354
K
K
后退
顶部