📄 实例——打印报表的头注.txt
字号:
procedure TReportForm.PrintHeaderReport2(Sender: TObject);
begin {打印报表2的头注}
with Sender as TBaseReport do begin
MarginTop := 0.5;
SetFont('Arial',24);
//设置打印头注的字体和大小
Underline := true;
//在头注下打印下线
Home;
//将光标移到第一行的开始位置
PrintCenter('人员简况', PageWidth / 2);
//在当前行的中间位置打印头注
MarginTop := 1.0;
end; { with }
end; { 打印报表2的头注 }
⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -