社区
Delphi
帖子详情
delphi里面怎么打印?
bhut
2003-08-30 11:08:37
一个stringgrid,有滚动条,窗口上只能显示一部分数据
想把整个表的数据打印出来,该怎么处理?
能否整个表格作为一个整体打印?(stringgrid类好像没有print方法)
...全文
57
5
打赏
收藏
delphi里面怎么打印?
一个stringgrid,有滚动条,窗口上只能显示一部分数据 想把整个表的数据打印出来,该怎么处理? 能否整个表格作为一个整体打印?(stringgrid类好像没有print方法)
复制链接
扫一扫
分享
转发到动态
举报
写回复
配置赞助广告
用AI写文章
5 条
回复
切换为时间正序
请发表友善的回复…
发表回复
打赏红包
yk_xiong
2003-08-30
打赏
举报
回复
当年用BCB写的,看看
void TFQuickRep::ShowForm(TStringGrid* StringGrid)
{
TList *ShapeList ;
TList *ShapeList2 ;
TList *LabelList ;
TList *QRTextList ;
TQRShape *NewShape ;
TQRShape *OneShape ;
TQRLabel *NewLabel ;
TQRDBText *NewQRText;
int iTemp1,iTemp2 ;
AnsiString sSQL;
ShapeList = new TList ;
ShapeList2 = new TList;
LabelList = new TList ;
QRTextList = new TList;
QRTitleShape->Width = StringGrid->ColWidths[0] ;
QRDetailShape->Width = StringGrid->ColWidths[0];
QRTitleLabel->Caption = StringGrid->Cells[0][0];
for(int m=0;m<StringGrid->FixedRows;m++)
{
ShapeList->Clear();
LabelList->Clear();
LabelList->Add(QRTitleLabel) ;
ShapeList->Add(QRTitleShape) ;
if(m>0)
{
QRBand1->Height = QRBand1->Height+QRTitleShape->Height;
NewShape = new TQRShape(this);
NewShape->Parent = QRBand1;
NewShape->Height = QRTitleShape->Height;
NewShape->Width = StringGrid->ColWidths[0];
NewShape->Left = QRTitleShape->Left;
NewShape->Top=QRTitleShape->Top+m*(NewShape->Height);
NewLabel = new TQRLabel(this);
NewLabel->Parent = QRBand1;
NewLabel->Caption = StringGrid->Cells[0][m];
NewLabel->Left = iTemp1+5;
NewLabel->Top=NewShape->Top + 3;
NewLabel->AutoSize = true;
NewLabel->BringToFront();
}
for(int i=1;i<StringGrid->ColCount;i++)
{
iTemp1 = QRTitleShape->Left;
NewShape = new TQRShape(this);
NewShape->Parent = QRBand1;
NewShape->Height = QRTitleShape->Height;
NewShape->Width = StringGrid->ColWidths[i];
for(int j=0;j<ShapeList->Count;j++)
{
iTemp1 = iTemp1+((TQRShape *)(ShapeList->Items[j]))->Width-1;
}
NewShape->Left = iTemp1;
NewShape->Top=QRTitleShape->Top+m*(NewShape->Height);
ShapeList->Add(NewShape);
NewLabel = new TQRLabel(this);
NewLabel->Parent = QRBand1;
NewLabel->Caption = StringGrid->Cells[i][m];
NewLabel->Left = iTemp1+5;
NewLabel->Top=NewShape->Top + 3;
NewLabel->AutoSize = true;
NewLabel->BringToFront();
}
}
ShapeList2->Add(QRDetailShape);
QRTextList->Add(QRDBDetailText);
for(int i=1;i<StringGrid->ColCount;i++)
{
iTemp1 = QRDetailShape->Left;
OneShape = new TQRShape(this);
OneShape->Parent = QRBand2;
OneShape->Height = QRDetailShape->Height;
OneShape->Width = StringGrid->ColWidths[i];
for(int j=0;j<ShapeList2->Count;j++)
{
iTemp1 = iTemp1+((TQRShape *)(ShapeList2->Items[j]))->Width-1;
}
OneShape->Left = iTemp1;
OneShape->Top=QRDetailShape->Top;
ShapeList2->Add(OneShape);
NewQRText = new TQRDBText(this);
NewQRText->Parent = QRBand2;
NewQRText->Left = iTemp1+5;
NewQRText->Top=QRDBDetailText->Top;
NewQRText->AutoSize = true;
NewQRText->BringToFront();
QRTextList->Add(NewQRText);
}
sSQL = "select * from tReport_tmp";
if(OpenSQL(DMMain->qryCall,sSQL))
{
for(int i=0;i<QRTextList->Count;i++)
{
((TQRDBText *)(QRTextList->Items[i]))->DataSet=DMMain->qryCall;
((TQRDBText *)(QRTextList->Items[i]))->DataField="F"+IntToStr(i);
}
}
QuickRep1->Preview();
}
雨后阳光2000
2003-08-30
打赏
举报
回复
数据库里有和stringgrid中数据结构相同下表吗,有直接用表相连在quickrep中实现;
没有就用临时表把stringgrid中的数据存进去,再在stringgrid中实现。
wooden954
2003-08-30
打赏
举报
回复
要么自己写,要么用QuickRep控件,要么第三方
popnew
2003-08-30
打赏
举报
回复
用QUICKREP控件
bhut
2003-08-30
打赏
举报
回复
跟数据库没有关系,就是一个stringgrid控件显示一些数据
不是数据库的表
Delphi
万能
打印
控件含源码实例.rar
Delphi
万能
打印
控件含源码实例,可以传入N多表格进行
打印
,基于win2k
delphi
7 开发,导出文件为:zyPrintcrt.dll。 zyprint.mdb为本地
打印
方案,你也可以保存在SQLSERVER
里面
。 zyprint.pas是调用文件 zyprintcrt.dll是
打印
控件 parameter目录是保存一些参数文件(ini)用的.现在暂时只有一个printcfg.ini文件
Delphi
动态支票
打印
自定义实例.rar
Delphi
竖向报表设计和自定义的动态支票
打印
程序,用到Fastreport3.15,FlatStyle和Ehlib3.5控件,在网上可以找到。程序特点是要把支票
打印
做成竖向的,于是另外做了一个竖向的Fr报表,Memo的Rotation都设为270,文字都竖向了,然后再点击“竖向支票”的时候,读取横向时的坐标,经过X和Y的对换换算,得到竖向时 Fr报表里各个Memo的坐标,相应的在动态调整时修改坐标,在预览报表前重新读取和换算坐标,这样就实现的竖向的支票
打印
了。
delphi
10.1调用BarTender2016R5文件
打印
标签例子程序
压缩包里文件说明 1.bartender_package.rar -----------我创建的bartender的package项目,这里引入了bartender,并打包了 2.bartender_test.rar ---测试项目源码,就一个Form,一个Button,一个TBtApplication(bartender的类) 3.BarTender_unit.rar ---从bartender提取出的组件,存放的位置。【我本机所在位置:D:\Program Files (x86)\BarTender_unit\】 4.BarTenderPackage.bpl ---安装好bartender包后生成的文件(BPL可以理解为
Delphi
特有的动态链接库,与DLL不同的是,它可以包含组件。) 【我本机的位置是:C:\Users\Public\Documents\Embarcadero\Studio\18.0\Bpl\BarTenderPackage.bpl】 5.test.btw ---测试
打印
标签的btw文件。
delphi
操作excel模块,图片,表格,读写删除
不需Excel也可讀寫xls檔的
Delphi
控件 用来读取Excel,Access的控件 读写任何单元值 数字型、字符型、布尔型以及错误型。但是你了解日期和时间型单元吗?在Excel中没有这样的单元。Excel是和
Delphi
一样的方式来存储日期和时间的,即浮点型。那是什么制造了日期或时间值啦,是格式化。 完全支持公式。你可以使用和Excel一样的函数,也支持对外部工作簿引用的公式,你甚至可以从外部引用读取结果。 与操作
Delphi
的TStringGrid一样的方式操作单元格,或则通过给单元格命名,比如:”D7” 根据单元格的规则以字符串格式读取单元值 根据你的需求格式化单元 格式化很简单。通过获取单元格,你就可以操作单元的格式属性。例如:XLSReadWriteII.Sheet[n].Cell[Col,Row].FontSize := 12; 你也可以对域进行格式化,比如设置边框。 支持所有的Excel格式选项 合并单元格 操作所有的
打印
选项 选择页面大小,设置边距 设置标题和页脚,包括格式码。 定义
打印
区域 设置分页符 XLSReadWriteII完全支持Unicode 所有的字符型都是宽字符型。你完全不必担心非英语字符。 控件 你可以插入控件以及定义他们的源和目的单元 绘图 插入所有种类的绘图,从简单的线条到AutoShapes 多行文本和文本框 创建和编辑文本框以及多行文本 图表 创建和Excel中一样选项的图表 复制/移动/删除 可以以Excel一样的行为复制、移动和删除单元 行列也可以像单元一样复制和移动 支持工作簿之间的复制和移动 可以复制整个工作簿 使用命名的域/单元 你可以在你想要的任何地方命名 通过命名访问单元格,例如:XLS.NameAsFloat['MyCell'] := 202.5; 支持指定、内置的名称 支持所有超链接类型 网页和E-mail地址 本地文件 服务器文件 工作薄引用 加密文档 你可以读写加密文件。条件是你需要知道文件的密码。 计算 可计算单元以及整个工作薄 计算引擎将依据单元进行计算。 可读取引用的外部工作薄。这通过一个特殊的快速查询程序进行执行 Rich Text单元 为了轻松地创建多字体格式的单元,单元可以以RTF格式读写 VBA宏 可以读写文件中的宏,使用XLSReadWriteII可以为控件比如:按钮、组合框等添加宏 导入及导出 从下列导入数据… Open Office Calc文档 CSV文件以及其他可以自动识别分隔符、小数分隔符和文本引用字符的文本文件 HTML表格(标签) 数据库 导出数据为… CSV文件 HTML文件 其他 自动过滤 单元验证 有条件的格式 合并单元 PaintCell方法:将单元内容渲染到TCanvas对象的 XLSReadWriteII包还包含下列组件: 从任何数据库中导入数据到工作薄 工作薄导出为HTML文件
Delphi
银行业务票据
打印
程序范例源代码.rar
银行业务票据
打印
程序,
Delphi
7.0源代码,这是一种按照指定格式
打印
的程序,将内容
打印
在模板上,
里面
有模块把小写数字变成零壹贰叁肆伍陆柒捌玫拾佰仟万亿。使用了FASTREPORT控件,编译时要声名这个控件。本单据
打印
可扩展成其它的业务类票据
打印
,可灵活变通哦。
Delphi
5,392
社区成员
262,732
社区内容
发帖
与我相关
我的任务
Delphi
Delphi 开发及应用
复制链接
扫一扫
分享
社区描述
Delphi 开发及应用
社区管理员
加入社区
获取链接或二维码
近7日
近30日
至今
加载中
查看更多榜单
社区公告
暂无公告
试试用AI创作助手写篇文章吧
+ 用AI写文章