快逸报表：将文字旋转90度显示

最新推荐文章于 2024-02-03 14:49:25 发布
原创 最新推荐文章于 2024-02-03 14:49:25 发布 · 710 阅读 · 1 ·
CC 4.0 BY-SA版权
版权声明：本文为博主原创文章，遵循 CC 4.0 BY-SA 版权协议，转载请附上原文出处链接和本声明。
文章标签：

#.net #HTML

本文介绍了两种在快逸报表中实现字体旋转90度的方法：一是通过设置单元格为HTML类型并插入特定的HTML代码；二是使用带有@标记的特殊字体。这两种方法可以帮助用户在报表设计中实现文字的竖向排列。
在快逸报表中，如何将字体旋转90度 竖着显示？

解决方法

方法1：使用HTML方式来显示文字。首先将单元格数据类型变成HTML型，然后在单元格内填入：

<div style=”FILTER: progid:DXImageTransform.Microsoft.BasicImage(Rotation=1); height: 1px”> 快逸报表平台</div>

这里Rotation=1代表顺时针转九十度。

方法2：使用特殊字体，带@的字体都是旋转显示的，操作系统加入这种字体，然后把单元格文字的字体改成这样的字体即可。

引自：.net报表工具
原文链接：快逸报表：将文字旋转90度显示
iteye_1937
关注
FastReport问题集
11-03
FastReport问题集 Q: 我怎样添加我的自定义函数? A: 使用 TfrReport.OnUserFunction 事件. 这里有一个简单的例子: procedure TForm1.frReport1UserFunction(const Name: String; p1, p2, p3: Variant; var val: Variant); begin if AnsiCompareText(‘SUMTOSTR‘, Name) = 0 then val := My_Convertion_Routine(frParser.Calc(p1)); end; 然后，你就可以在报表（任何表达式或脚本）的任何地方使用 SumToStr 函数了。 Q: 但是它仅仅能工作在一个TfrReport组件中。可我想在任何地方（在所有的TfrReport组件中）使用的我的自定义函数？ A: 使 OnUserFunction event 句柄作为所有组件的公用句柄。如果你不能做到这一点，你需要创建函数库： type TMyFunctionLibrary = class(TfrFunctionLibrary) public constructor Create; override; procedure DoFunction(Fno: Integer; p1, p2, p3: Variant; var val: Variant); override; end; constructor TMyFunctionLibrary.Create; begin inherited Create; with List do begin Add(‘DATETOSTR‘); Add(‘SUMTOSTR‘); end; end; procedure TMyFunctionLibrary.DoFunction(Fno: Integer; p1, p2, p3: Variant; var val: Variant); begin val := 0; case Fno of 0: val := My_DateConvertion_Routine(frParser.Calc(p1)); 1: val := My_SumConvertion_Routine(frParser.Calc(p1)); end; end; 要注册函数库，调用 frRegisterFunctionLibrary(TMyFunctionLibrary); 要卸载函数库，调用 frUnRegisterFunctionLibrary(TMyFunctionLibrary); Q: 我怎样将我的函数添加到函数列表中 (用表达式生成器)? A: 使用 frAddFunctionDesc 过程 (在FR_Class 单元中): frAddFunctionDesc(FuncLib, ‘SUMTOSTR‘, ‘My functions‘, ‘SUMTOSTR(<Number>)/Converts number to its verbal presentation.‘); 注意: "/" 符号是必须的! 它从它的描述中分隔函数语法。 FuncLib 被声明为你自己的函数库 (如果你不使用函数库可以将其设置为nil). 当函数库未注册时，所有它的函数将自动从函数列表中删除。 ---------------- 使用变量 ------------------------------------- Q: 我怎样编程实现填充变量列表（在数据词典中）? A: 数据词典中的所有变量及分类都被存储在 TfrReport.Dictionary.Variables 中. with frReport1.Dictionary do begin // 创建分类(名称用空白) Variables[‘ New category‘] := ‘‘; // 创建变量 Variables[‘New Variable‘] := ‘CustomerData.Customers."CustNo"‘; Variables[‘Another Variable‘] := ‘Page#‘; end; Q: 我定义了字符串变量: with frReport1.Dictionary do Variables[‘Month‘] := ‘March‘; 但是当我运行报表是，出现了错误，为什么? A: 因为 FastReport 假定数据词典中的字符串变量值是一个表达式，它需要分析、计算它。 可以使用其它的方法: with frReport1.Dictionary do Variables[‘Month‘] := ‘‘‘‘ + ‘March‘ + ‘‘‘‘; 或者, 使用 frVariables 来传输固定数据到报表。 Q: 我不想在数据词典中显示某些数据集？ A: 使用 TfrReport.Dictionary.DisabledDatasets: with frReport1.Dictionary do begin // 关闭该数据集 DisabledDatasets.Add(‘CustomerData.Bio‘); // 或者, 关闭整个数据模块/窗体 DisabledDatasets.Add(‘CustomerData*‘); end; Q: 我怎样将数据传送到报表? A: 有几个方法可以实现它. 第一是使用全局对象 frVariables (在 FR_Class 单元中被定义): frVariables[‘My variable‘] := 10; 这段代码创建了一个名称为“My variable”，值为 10 的变量。这是最好的传输固定数据的报表的方法。 第二种方法是使用 TfrReport.OnGetValue 事件. 这可以使用这个方法来传送动态数据、记录等。 procedure TForm1.frReport1GetValue(ParName: String; var ParValue: Variant); begin if ParName = ‘MyField‘ then ParValue := Table1MyField.Value; end; 最后, 第三种方法是通过编程在数据词典中定义变量（可以参考以前的问题）: with frReport1.Dictionary do begin Variables[‘MyVariable‘] := ‘CustomerData.Customers."CustNo"‘; Variables[‘Another Variable‘] := ‘10‘; end; Q: 我能在报表和程序间传送数据吗? A: 使用 frVariables 对象. 如果你在报表的任何对象的脚本中写入以下代码： MyVariable := 10 那么，在你的程序中，你可以使用以下代码来获取 MyVariable 的值: v := frVariables[‘MyVariable‘]; ---------------- 脚本 (FastReport Pascal) --------------------------------- Q: Band 中是否可以使用脚本? A: 当然. 选择 band ，然后按 Ctrl+Enter 或在对象浏览器中选择 "OnBeforePrint" 属性。 Q: 报表页中是否可以使用脚本? A: 当然. 选择页 (在空白处单击) ，然后在对象浏览器中选择 "OnBeforePrint" 属性。如果该页是一个对话框窗体，那么这个属性就是 "OnActivate". Q: 我有两个对象: Memo1 和 Memo2. 我能否在 Memo1 的脚本中调用 Memo2 的属性和方法？ A: 当然， 例如，你可以这样做： 对象名.属性名. Q: 在脚本中，我可以使用对象的哪些属性? A: 几乎所有你能在对象浏览器中看到的属性。例如，可以使用 Font.Name, Font.Size等来存取字体属性。 ---------------- 其它问题 -------------------------------------------- Q: 怎样改变多页报表中某一页的顺序? A: 拖动页标签到目的位置。 Q: 我想查看所有的字段及变量，我想在报表中使用列表来实现它？ A: 设置 TfrReport.MixVariablesAndDBFields := True.现在，所有的数据字段及变量可在“插入数据字段”对话框中可存取了。 Q: 我不想显示导入选项对话框？ A: 在导入组件（比如，TfrTextExport)中设置所有必需的选项，然后通过设置ShowDialog属性为False来关闭此对话框。 Q: 为什么 TotalPages 变量不起作用? 它总是返回 0. A: 在你的报表中设置 Two-pass 选项. 要设置它，你需要在报表设计器的“文件”菜单中，打开“报表选项”对话框。 Q: 我用BLOB字段来存储我的报表。当我运行报表设计器时，它显示我的报表未命名？ A: 在运行报表设计器前，这样做: frReport1.FileName := ‘Name of my report‘; Q: 我想在重新定义报表设计器中的“打开”及“保存”按钮的功能？ A: 查看 TfrDesigner 组件. 它有几个必需的事件: OnLoadReport 和 OnSaveReport. 这里有一小段代码例子: procedure TForm1.frDesigner1LoadReport(Report: TfrReport; var ReportName: String; var Opened: Boolean); begin with MyOpenDialog do begin Opened := ShowModal = mrOk; if Opened then begin Report.LoadFromBlobField(…); ReportName := …; end; end; end; procedure TForm1.frDesigner1SaveReport(Report: TfrReport; var ReportName: String; SaveAs: Boolean; var Saved: Boolean); begin if SaveAs then with MySaveDialog do begin Saved := ShowModal = mrOk; if Saved then begin Report.SaveToBlobField(…); ReportName := …; end; end else Report.SaveToBlobField(…); end; Q: 在 QR 中, 我可以写这样的代码： QRLabel1.Caption := ‘Some text‘. 我可以用FR这样做吗？ A: FR 对象并不是一个组件 (这并不像 QR, RB). 但使用 TfrReport.FindObject 方法可以通过对象名称找到该对象。 var t: TfrMemoView; begin t := TfrMemoView(frReport1.FindObject(‘Memo1‘)); if t <> nil then t.Memo.Text := ‘FastReport‘; end; Q: 我想在用户预览（TfrPreview组件）中自定义热键？ A: 这个组件有个窗口: Tform 属性. 将自定义句柄指定到 Window.OnKeyDown 属性. Q: Fast Report 2.4 不能装载 FreeReport 2.21 文件？ A: 这仅需要使用16进制数改变报表文件的第一字节，然后在源代码中修改下面的部分。在这些修改之后， 装载报表并保存它. 最后，返回到源代码处. FR_Class: function ReadString(Stream: Tstream): String; begin { if frVersion >= 23 then} Result := frReadString(Stream) {else Result := frReadString22(Stream);} end; procedure ReadMemo(Stream: Tstream; Memo: Tstrings); begin { if frVersion >= 23 then} frReadMemo(Stream, Memo){ else frReadMemo22(Stream, Memo);} end; FR_Utils: procedure frReadMemo(Stream: Tstream; l: Tstrings); var s: String; b: Byte; n: Word; begin l.Clear; l.Text := frReadString(Stream); exit; Stream.Read(n, 2); if n > 0 then repeat Stream.Read(n, 2); SetLength(s, n); Stream.Read(s[1], n); l.Add(s); Stream.Read(b, 1); until b = 0 else Stream.Read(b, 1); end; function frReadString(Stream: Tstream): String; var s: String; n: Integer; b: Byte; begin Stream.Read(n, 4); SetLength(s, n); Stream.Read(s[1], n); if (n > 0) and (s[n] = #$0A) then SetLength(s, n - 2); // Stream.Read(b, 1); Result := s; end; Q: 怎样不在打印预览中打印报表？ A: 这里有一段代码: frReport1.PrepareReport; frReport1.PrintPreparedReport(‘‘, 1, True, frAll); 或 frReport1.PrintPreparedReportDlg; Q: 我想在报表中旋转图片。问题是这张图片是由我的应用程序生成的。是否有方法可以在打印前将这幅图片装载到报表中？ A: 使用 TfrReport.OnBeforePrint 事件: if View.Name = ‘Picture1‘ then TfrPictureView(View).Picture.LoadFromFile(…) 或 .Assign 或 .你所想要做的任何事情
快逸报表开发安装包
11-04
快逸报表是一款强大的报表设计与分析工具，专为IT专业人士设计，便于他们高效地管理和展示组织内部的数据。这款软件提供了一套完整的报表解决方案，能够帮助用户通过存储过程从数据库中提取、处理并呈现数据，从而...
FastReport控件中Memo文字旋转
lopper的专栏
05-11 5565
Memo控件中有一个Rotation属性，取值为文字的旋转度数。有横向改为纵向则把改属性值改为270，即旋转270度即可。该属性默认为0。
fastreport 旋转90度_怎么将PDF文件向左旋转90度？这款软件还有旋转功能
weixin_39769091的博客
11-04 974
怎么将PDF文件向左旋转90度？在进行PDF文件创作和整理的时候，为了防止其他人插手，经常见PDF文件进行加密，但是加密之后不能在浏览器中进行预览，使用文件非常麻烦。今天小编就教一个防偷窥小妙招，虽然PDF和WORD一样都是文档格式的一种，但是在PDF文件不同的一点在于，它可以是一个整体的PDF文件，也可以是独立的页面，这就使得每个页面之间的联系可大可小。打开迅捷PDF转换器，选中页面上方的PDF...
LaTeX表格：合并单元格、文字旋转90度并居中
最新发布
Xovee
02-03 3674
在LaTeX表格中，如何使用\multirow合并单元格，并将单元格中的文字旋转九十度，并且居中呢？
fastreport 旋转90度_水冷必不可少之90度弯头
weixin_39682560的博客
11-11 585
点击蓝字关注我们设计于Bitspower而言是生活，专注当下，发现需求迎合需求是呼吸，将持续在道上，创新永不止步BP所研发的水冷接头一直以来是众多玩家认可的逸品，兼具质感与特色，赋予水冷无限可能Bitspower好物推荐之90度弯头分别是90度呆头和90旋转弯头其主要作用是改变接头的方向90度呆头是一种高度较小的90度弯头，并且是不可旋转；适用性比较小，相对于可旋转型弯头，90度呆头高度...
快逸报表：高性价比JAVA报表工具的部署与使用
随着信息技术的不断进步和企业对数据可视化需求的不断提高，快逸报表软件等高效易用的报表工具将有更广阔的应用前景。它们将不断优化和升级，以便更好地满足开发人员对于报表工具的集成性、性能和易用性的要求。 ##...
润乾快逸报表：轻量级开源工具，中文友好学习指南
"润乾快逸报表学习笔记详细介绍了润乾软件公司针对中低端报表需求推出的子品牌——快逸报表。快逸报表与润乾报表的主要区别在于其轻量化和易用性。相比于润乾报表的强大功能，如多维分析和任务调度，快逸报表更加...
快逸报表的授权文件
06-14
快逸报表作为一款在中国广泛应用的商业智能和报表工具，以其高效的数据显示和分析功能，以及强大的报表和仪表板构建能力，帮助众多企业快速而精准地完成数据报告的制作。然而，在实际使用过程中，授权文件的存在至关...
快逸报表DOME
02-13
下面我们将深入探讨快逸报表的相关知识点。 一、快逸报表简介 快逸报表是一款高效、灵活的报表设计软件，它提供了丰富的图表类型和强大的数据处理能力，适用于各类企业进行数据分析和展示。这款工具支持多种数据源...
fastReport 汉字显示不全解决办法
10-17
fastReport 汉字显示不全解决办法
latex竖版表格（旋转90度）
DeniuHe的博客
05-26 4569
【代码】latex竖版表格（旋转90度）
LaTex问题解决集[3]：将表格横置(旋转90度)
weixin_48941633的博客
08-09 1万+
问题描述 如图，将表格旋转90°横放在paper中 解决方法 首先加入宏包 \usepackage[figuresright]{rotating} 表格代码如下 \begin{sidewaystable}[htp] \caption{This is a caption} \centering %表格整体居中 \footnotesize %设置字体 \begin{tabular}{l*{7}{L{3cm}}} %共7列，每一列列宽为3cm \hline %横线 1111111
让文字在页面上90度，180度翻转(转)
cqwf95925的博客
07-01 1378
IE5.5的新功能：旋转文字，看一下你就明白了。用法如下： 获取书写方式： object.style.writingMode 设置书写方式： object.style.writingMode = sFlowDir 其中 sF...
Latex如何将长表格Table横置(旋转90度)
热门推荐
Haifeng的博客
09-13 4万+
问题描述 在写论文时，长表格会超出页面的右边界，因此需要将长表格旋转90度横放在页面中。 解决办法[1,2] 首先在导言区添加rotating宏包：\usepackage[figuresright]{rotating} 。 然后，将 \begin{table}[thp] \caption{This is the caption} \centering \begin{tabular}{|c|c|c|c|} \hline ....... \end{tabular} \end{t
python 字符串的旋转
free356的博客
01-04 2528
1，字符串的旋转 def ReverseString(s,fr,to): s = list(s) while (fr &lt; to): t=s[fr] s[fr]=s[to] s[to] = t fr += 1 to -= 1 return "".join(s) def leftRotat...
LaTeX 表格旋转的设置
编程小栈
06-21 1万+
当我们在写论文的时候如果表格太大，这个时候可能需要翻转一下我们的表格 使用的方法如下所示: \documentclass{article} \usepackage{adjustbox} \begin{document} \begin{adjustbox}{angle=90} \begin{tabular}{ll} First First &amp; First Seco...
Python学习笔记：PYQT5 文字及绘图旋转
weixin_51303362的博客
04-24 1726
PYQT5 文字及绘图旋转
tex中如何实现对页面，表格，图片的旋转
辉的博客
08-19 5862
对页面的旋转 lscape宏包的landscape环境可以把整个页面旋转90度。在生成PDF文件的情况下，可以使用pdflscape宏包代替lscape宏包，它可以在旋转页面的同时，让输出的pdf文件的页面在阅读器中显示时同时顺时针旋转90度。 %导言区\usepackage{lscape} \begin{landscape} XXXXXXXXXXXX \end{landscape} 对图片的旋...
评论
成就一亿技术人!
拼手气红包6.0元
还能输入1000个字符
 
红包 添加红包
表情包 插入表情
表情包 代码片
 条评论被折叠 查看
添加红包

请填写红包祝福语或标题

个

红包个数最小为10个

元

红包金额最低5元

当前余额3.43元 前往充值 >
需支付：10.00元
成就一亿技术人!
领取后你会自动成为博主和红包主的粉丝 规则
hope_wisdom
发出的红包
实付元
使用余额支付
点击重新获取
扫码支付
钱包余额 0

抵扣说明：

1.余额是钱包充值的虚拟货币，按照1:1的比例进行支付金额的抵扣。
2.余额无法直接购买下载，可以购买VIP、付费专栏及课程。

余额充值