quickreport 诡异的打印问题

最新推荐文章于 2014-01-16 15:28:43 发布
最新推荐文章于 2014-01-16 15:28:43 发布
阅读量374 收藏
点赞数
原文链接：http://www.cnblogs.com/yxbsmx/articles/1731849.html
版权
今天遇到一个quickreport的很诡异的打印问题,打印成pdf.xps都可以成功,打印.tif时输入文件名后却没有打印出图像,用实际的打印机也是在输入打印密码后就没反应了.无意中发现报表无法切换纵横向.重新将页面选成标准A4纸后,切换纵横向后居然解决问题.具体原因未知.有空再去深究.暂时把解决办法记下来备忘

转载于:https://www.cnblogs.com/yxbsmx/articles/1731849.html

aitanwu4387
关注
Quickreport万能打印程序
布衣坊
07-14 2500
作程序经常使用报表打印，使用delphi编程最长用的是使用quickreport做报表打印，rave是在ｄｅｌｐｈｉ７中才出现的，我用ｑｕｉｃｋｒｅｐｏｒｔ做了一个万能打印程序，由于时间紧迫，没有时间优化和美化，欢迎网友修改。 他的基本思想是：动态的取ｄａｔａｓｅｔ中的列，动态的生成报表，程序如下： unit unit_QReport_lxr; interface uses Windows, Sy
浅议QuickReport的汉化问题
11-17
Q​u​i​c​k​R​e​p​o​r​t​是​C​+​+​B​u​i​l​d​e​r​旧​版​本​自​带​的​一​个​好​用​报​表​控​件​。​随​着​D​e​l​p​h​i​、​C​+​+​B​u​i​l​d​e​r​的​进​化​,...
QuickReport 分页打印演示
01-13
QuickReport 报表按要求分页打印的演示例子。
quickreport 打印问题
aitanwu4387的博客
05-10 272
今天早上业务部门反映一个用quickreport的报表打印不出来,经测试,出现的现像是用pdf和xps虚拟打印机可以,用实际的打印机和office 的.tif到输入密码或输入文件名后就没反映了,开始以为是句柄传输的问题,debug了半天也没有搞定,后来无意发现在页面设置的时候切换横向和纵向不成功,于是修改成标准A4纸,然后切换横向和纵向后居然打印成功 .究竟是什么原因实在没有搞明白,不过...
quickreport 5.05 pdf输出
03-13
quickreport 5.05 pdf输出 支持 xe seattle。源代码。解压缩后 ，修改 delphi - tools - options -delphi options - libaray - libaray path , 点右边三个点，添加解压出来的路径。 是先转tif再转pdf。速度不快，100页要等3分钟。
Delphi中用QuickReport实现动态报表
12-01
通过把QuickReport自带的“报表设计器”集成进自己的项目，最终被生成进exe文件，可以方便的实现报表的修改。
Delphi 10.3 Rio版QuickReport VCL打印控件安装指南
描述“Delphi 经典打印控件包，支持 Delphi，C++Builder 10.3 Rio”说明了QuickReport是一个被广泛认为是Delphi和C++Builder的经典报表生成和打印控件包。QuickReport 6支持Delphi 10.3 Rio和C++Builder 10.3 Rio...
汉化版QuickReport打印预览控件资源包
1. **QuickReport打印预览汉化**： - QuickReport是一款流行的报表控件，它广泛用于软件开发中，特别是在Delphi或C++Builder这类编程环境中。 - 汉化通常指的是将软件界面中的英文或其他语言翻译成中文，使得中文...
Qt之生成pdf
信笔涂鸦
01-16 1629
Qt中如何让图片、文本、HTML或者其他形式的内容生成pdf呢？主要利用QPrinter来实现，QPrinter不止可以操作打印机来打印纸张文件，并且可以将文件保存至磁盘，存储为pdf格式的文件。 图片生成pdf 代码如下： QPrinter printer_pixmap(QPrinter::HighResolution); printer_pixmap.setPa
利用QuickReport创建报表
02-23
一、 简单了解各控件功能 　　以下是各控件最简单的使用功能，其他功能依具体的实现而介绍。　　TquickRep:带有坐标，作为其他报表控件(如TQRBand)的容器,它的Band属性可以自动添加各种类型的TQRBand. 　　TQRLabel:打印静态的文本（即不是根据数据库值来改变的），作用象Tlabel , Caption的内容就打印出来的内容。 　　TQRDBText:打印数据库字段值，一个值一行。作用象TDBText.把它的DataSet , DataField分别赋予Table1，Company时，将打印Table1所指向的表的Company字段的内容。 　　TQRSysData:打印系统信息如时间，页码，报表头等。 　　TQRMemo:非常象TQRLabel，只是它可以打印多行，也是打印静态数据。 　　TQRRichText:打印RichText格式，能够连接到一个Form上的RichEdit控件并打印它的内容，不过必须是32位版本的。 　　TQRShape:打印方框、圆和垂直、水平线。 　　TQRImage:打印静态的图片，包括（BMP,WMF,ICON）. 　　TQRDBImage:从数据库接收图片。 　　TQRBand:用来确定报表的不同位置应该显示什么内容，它上面可以放控件(参见二)。 　　TQRGoups:Groups可以不限级别的组操作。当你连接了几个datasets到报表时可以通过Groups成组的对dataset进行操作。 　　二、 报表的控件摆放循序 　　出现在所有页上的标题(PageHeader) 　　标题（只有首页才有）(Title) 　　所有列的标题(ColumnHeader) 　　记录的内容，一个字段一列(Detail) 　　摘要（最后一页才有）(Summary) 　　出现在所有页上的页脚(PageFooter) 　　这些根据设置不同的Band(不是控件，一种类型而已，在其上面可以放其他控件)来定位。总共有六种Band。 　　三、 一个简单的例子 　　这个例子制作打印一张表的部分字段名及该字段数据内容的报表。 　　建立一个新project 　　放一个TTable到Form上，DatabaseName设为BCDEMOS,TableName指向Customer表，Active设为true. 　　放一个TquickRep控件在Form上，DataSet属性为Table1.（即要显示上边Table1所指向的表的内）。 　　展开TquickRep的Bands属性，设HasDetail为true,这时自动增加个detail band(一个TQRBand控件，故也可以直接放一个TQRBand控件，BandType属性设为detail就行了)。 　　放一个TQRDBText控件在detail band上面，设DataSet指向Table1,DataField指向Company。第四步是设置在报表的什么位置显示什么类型的数据，而TQRDBText则具体实现。 　　选TquickRep控件，按右键，选择”Preview”预览，应该看到表Customer的字段Company的所有字段值。　　到这一个简单的例子就OK了，程序实现预览及利用TQRuickRep自带的打印功能只须在Form中加一个按钮，它的OnClick事件为：QuickRep1->Preview();　　四、一个使用TQRGoups、TQRExpr控件的报表 　　该报表先列出州名，接着列出该州的所有公司及公司总数，一个州列完后空一行（groups中断），列出新的州名，接着列新州下的所有公司，没有填州名的公司统一列在Unknown state下面。　　建立一个新project。 　　放一个Tquery在Tquickrep上，其SQL属性为：select * from customer order by State,Company;(即根据州、公司排序)，DatabaseName为BCDMome,Active为true. 　　放一个TquickRep控件在Form1上,DataSet为Tquery1. 　　放一个TQRGroups控件在TquickRep上，这时默认为group header。（任何时候当group中断或更高级别的group中断，这个header都将打印出来，如果有表达式，根据表达式的值显示内容。）接着添加一个group footer band,添加时，放一个TQRBand控件在报表上，连接TQRGroups的FooterBand属性到这个QRBand，这时这个新建的TQRBand就成为Group Footer. （TQRGroup的一个重要特性是表达式，任何时候当表达式的值变时Group都将中断，如表达式是按省列出城市名，当前列出广东省，当属于该省的城市列完后，表达式值改变，这时Group中断，接着显示其他省的城市名。）TQRGroups的Expression属性设为Query1.State(根据不同的州来中断)。 　　放一个TQRBand控件在报表上,BandType为rbDetail. 　　放一个TQRExpr控件在group header上面，其Expression属性为：if(State<>’’,State,’Unknown state’)，即如果公司的州没填，就归入Unknown state,否则归入State. 　　放三个TQRDBText在Detail上，他们的DataSet都指向Query1,DataField分别指向Company,Contact,Phone. 　　在放一个TQRExpr控件在group Footer上面,Expression为’Customers in’+State+’:’+Str(Count) 作用是在每个州的公司列完后显示该州总共有多少个公司。 　　按右键选预览，应该看到不同的州名及其公司和公司公司总数。　　五、QuickReport 条件式列印 　　可以直接在 TQuickReport 的 OnFilter 事件中写明条件判断,OnFilter事件的引数中有一个以 var 宣告的 PrintRecord 布林型态变数,将这个变数设为 True(预设值), 该笔记录便会印出;反之, 设为False,就不印出这笔记录. procedure TForm1.QuickReport1Filter(var PrintRecord: Boolean); begin PrintRecord := False; if YourTable.FieldByName(‘WantedField‘).AsInteger <= 100 then Exit; if YourTable.FieldByName(‘WantedField‘).AsInteger >= 150 then Exit; PrintRecord := True;
QuickReport让安装的所有打印机同时打印(多台打印)
weixin_34107955的博客
01-03 425
uses Printers 示例代码如下 ------------------ vari : Integer;prn : TPrinter;begin try prn := Printer(); for i:=0 to prn.Printers.Count-1 do begin QuickRep.PrinterSettings...
评论
添加红包

请填写红包祝福语或标题

个

红包个数最小为10个

元

红包金额最低5元

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

抵扣说明：

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

余额充值