如果在query中检索出7条记录，而每次打印，页面只允许有5条记录，不足则自动补空行，超过则转到下一页打印。
-
等级
本版专家分：193结帖率 100% -
打印基本的表格式报表。
如果在query中检索出7条记录，而每次打印，页面只允许有5条记录，不足则自动补空行，超过则转到下一页打印。展开阅读全文
-
等级
本版专家分：193
-
望大侠们指教！
-
等级
本版专家分：41058勋章
-
- 榜眼 2001年 总版技术专家分年内排行榜第二
-
- 金牌 2001年12月 总版技术专家分月排行榜第一
-
- 银牌 2001年11月 总版技术专家分月排行榜第二
-
-
红花
2001年12月 Delphi大版内专家分月排行榜第一
2001年11月 Delphi大版内专家分月排行榜第一
-
-
如果你是用detailband输出你检索得到的记录的话，你要检查一下你的detailband是否高度过大或者报表剩余的空间已经不能再放下7条记录。
或许你检查一下quickrep的forcenewpage这些属性是否变成了true，这样也有影响
-
等级
本版专家分：25076勋章
-
- 进士 2001年 总版技术专家分年内排行榜第五
-
-
微软MVP
2005年9月 荣获微软MVP称号
2008年10月 荣获微软MVP称号
2007年10月 荣获微软MVP称号
2006年10月 荣获微软MVP称号
2004年9月 荣获微软MVP称号
2003年9月 荣获微软MVP称号
2002年9月 荣获微软MVP称号
-
-
红花
2005年7月 VB大版内专家分月排行榜第一
2005年6月 VB大版内专家分月排行榜第一
2001年5月 VB大版内专家分月排行榜第一
2001年4月 VB大版内专家分月排行榜第一
2001年3月 VB大版内专家分月排行榜第一
-
-
黄花
2005年9月 VB大版内专家分月排行榜第二
2001年2月 VB大版内专家分月排行榜第二
-
-
你是用什么执行打印的？自己些代码还是利用报表控件?
-
等级
本版专家分：63 -
同意楼上，如果你用quickrep的话，你可以在onneeddata中写适当的代码控制翻页。
-
等级
本版专家分：8438 -
先说说你是用什么打的吧，那样可以对症下药。
-
等级
本版专家分：54
-
将症状说清楚点，不然看不懂
-
等级
本版专家分：100
-
同意楼上fenglin2000(风林2000)的解法
在onneeddata事件中写代码
下面是我以前程式的代码, 不很好各位兄弟别见笑
procedure TFGatheringReceipt10.NeedData(Sender: TObject;
var MoreData: Boolean);
begin
inherited;
nowrow:=nowrow+1;
moredata:=(nowRow<=nowdbgrid.SelectedRows.count)or(nowrow mod 4<>1);
if moredata then
begin
if (nowrow mod 4 =1)and(nowrow<>1) then
QuickRep1.NewColumn;//我记得有一段时间无"and(nowrow<>1)"时
//NewColumn会报错，不知是否因为未安装打印机
if nowRow<=nowdbgrid.selectedrows.count then
Nowquery.gotobookmark(pointer(nowdbgrid.SelectedRows.items[nowRow-1]));
//assign value to all qrlabel
QuickRep1.QRPrinter.Progress:=QuickRep1.QRPrinter.Progress+1;
end
else
QuickRep1.QRPrinter.Progress:=QuickRep1.QRPrinter.Progress+1;
end;
-
等级
本版专家分：41058勋章
-
- 榜眼 2001年 总版技术专家分年内排行榜第二
-
- 金牌 2001年12月 总版技术专家分月排行榜第一
-
- 银牌 2001年11月 总版技术专家分月排行榜第二
-
-
红花
2001年12月 Delphi大版内专家分月排行榜第一
2001年11月 Delphi大版内专家分月排行榜第一
-
-
我试了一下cbtianbo(三飞)的方法，好象不太行。
或者请cbtianbo(三飞)再详细一点吧
-
等级
本版专家分：193
-
我是用的quickrep
如果要自己控制，请问如何做到？
- Delphi_打印_不用预览直接打印
不用预览直接打印：主要应用于批量打印功能。1、用Excel打印，方法：Excel.ActiveSheet.PrintOut;2、用ppReport打印，需将默认打印设备改成打印机（默认打印设备是屏幕，将打印设备=打印机， 然后打印 ）...
- Delphi没落了？...告诉你一个事实：现在全世界有300万程序员每天在用Delphi开发各种软件APP应用！
的一个部门）今天发布了RAD Studio 10.3。这个最新版本使开发人员能够使用相同的本机代码库为Windows，macOS，iOS，Android和Linux Server创建图形复杂，高性能的应用程序，因此他们花费更少的时间来构建多设备应...
- delphi XE对中文变态支持！
无意中发现delphi XE 对的Unicode支持的变态。从版本几开始支持不知道。因为我是从D7直接跳到XE 7，现在用的是XE 10.2。先看看下面的代码：unit 中文变量;interfaceuses Winapi.Windows, Winapi.Messages, System....
- Delphi二维码中文支持、分组、批量打印经验小结
一直也没接触到什么复杂的报表，都是一些简单的报表，在DelphI下使用QuickReport一般也就能满足需要了，由于公司现在需求的变化，对条码扫描提出了新的要求，主要是扫码要包含更多地内容，以前的一维码显然不能完全...
- delphi指令打印时横向移动打印头问题。
最近在做delphi指令打印，我用以下程序打印时横向位移参数n1不能大于127，如果大于，导致打印位置错误，小于127时就没有任何问题，请问这个问题怎么解决？ AssignFile(F,'lpt1'); Rewrite(F); //ESC \ n1 n2 ...
- delphi xe 10.3 用FastReport打印预览当前记录
以下在WINDOWS10 + DELPHI XE 10.3 FireDAC +SQL SERVER 2008 下通过: 第一步，创建如下表单： 第二步 拖入以下几个控件： frxDBDataset1.DataSet:=SalesTable; 双击： FrxReport1打开FastReport...
- delphi webbrowser打开一个网页的问题？
 我用webbrowser打开了这个网页，在什么地方可以判断我点击了“收货和物流信息”的链接呢？
- Delphi中强制结束一个进程
强制结束一个进程的 API 为 TerminateProcess BOOL TerminateProcess( HANDLE hProcess, // 进程句柄 UINT uExitCode // 退出代码 ); 你可以使用语句 invoke TerminateProcess,structProcInfo.hProcess...
- DELPHI 打印预览功能
预览实现方式为通过创建一个Tpanel的派生类并公开它的canvas属性比例尺或视区范围，使用较为不方便，笔者通过实践实现了用图元文件（Metafile）来实现打印预览的方法，这种方式不需要调整比例尺和视区范围。...
- DELPHI 查询sql2008r2问题！
疯了，群里有会delphi的没，2008R2 查询一个月数据没问题，查询一年数据 报错，“对象被打开” 如果只查询一列，一年数据可正常查询！ C# 其他程序查询都没问题。。。。。 主程序是delphi的，所以需要用主...
- 在Delphi中打印条码的方法步骤如下
这个控件(msbcode9.occx)随同Office一起安装到系统中。 2 在“ActiveX”下可以看到该控件，可以直接拖放到窗体上。通过属性设置，可以设置条码类型，内容，宽度、高度等等。 条码的数据是通过”...
- Delphi中access和sql数据库分别判断一个表中某字段是否存在
{$IFDEF sql}//在sql server数据库语句中进行判断 with dm.ADOQuery1 do begin Close; SQL.Clear; SQL.Add(' SELECT 1 FROM SYSOBJECTS T1 INNER JOIN SYSCOLUMNS T2 ON T1.ID=T2.ID WHERE T1.NAME='...
- Delphi 打印实例
unit Unit1; interface uses Windows, Messages, SysUtils, Classes, Graphics, Controls, Forms, Dialogs,printers,inifiles, StdCtrls; type TForm1 = class(Tform
- Delphi 调用BarTender打印条码
使用Delphi调用BarTender打印条码，在网上搜索了一下，很多都是介绍导入ActiveX组件，其实完全没有必要。用OLE控件完全可以解决。但需要注意所使用的BarTender必须是正式的安装版(PS:破解版好像也可以)，试用版和...
- [Delphi]将一个窗体Form1嵌入另一个窗体Form2
在做较大功能模块时常常需要调用已经写好的页面, 对于某些诸如向导,步骤式的模块每次弹出页面是不太友好的, 因此我尝试将已有的页面嵌入新做的页面中.以下为部分代码(由于项目保密, 在原工程上有删减),只列出实现...
- delphi线程问题 delphi 程序里我写了一个方法
delphi 程序里我写了一个方法，方法里面的算法比较复杂，计算起来时间比较长，我想把这个方法单独放到一个线程里去执行，请问是怎么写？一点头绪没有啊，谢谢
- Delphi rave如何选择指定页打印
Delphi rave如何选择指定页打印，打印预览的时候选择了打印2到2，或3到4，但总是从第一页开始打印，请问各位大侠，怎么解决，谢谢！
- delphi按钮弹出新窗口，添加的数据在返回到第一个窗口的数据库中
 点击添加之后会跳出form2窗口，在form2中写入数据之后，数据会添加到form1的数据库中
- Delphi 打印 Tprinter（1）
打印对于许多 Windows 程序员来说是十分棘手的问题。 Delphi 简化了打印时用户所必须了解的大部分内容。用户可以很轻松地写出简单的打印程序来输出文本和位图化了的图像。 对于更为复杂的打印，仅需了解几个...
- delphi 10.3 FastReport 多设备跨平台 打印之解决方法
delphi 10.3 FastReport 多设备跨平台 打印之解决方法
- Delphi D10.X中实现安卓中文语音合成（中文朗读）就这么简单
语音合成，据说Android系统从1.6版本开始就支持TTS（Text-To-Speech）。但是android系统默认的TTS引擎:Pic TTS不支持中文。好在现在国内较多的手机都已安装好...使用Delphi开发一个可以朗读中文的APP就非常的简单了。
- Delphi中画一个矩形
Perform($000B, 0, 0); //锁屏幕 防止闪烁 Canvas.Rectangle(Width+40-step,Height div 3-50,Width -step,0); Canvas.Rectangle(Width-step,Height,Width +40-step,Height div 3); Perform($000B, 1, 0);
- delphi直接打印jpg文件
procedure TSDIAppForm.Button2Click(Sender: TObject); var pxprint,pyprint:Integer; rect:Trect; jpg: TJPEGImage;... //获得打印机的分辨率,就是每英寸多少个像素 pxprint := getdevicecaps
- Delphi FastReport 打印条码
新建delphi过程，放入控件ADOQuery1，ADODataSource1，frxReport1，frxDesigner1（用于运行时设计报表），frxDBDataset1，frxBarCodeObject1。 ADOQuery1，ADODataSource1连接数据库。 frxDBDataset1的...
- Delphi中如何让编辑框只能输入数字或者只能输入一个浮点数值呢？
在Delphi中使用TEdit控件的时候我们有些时候让该控件只能输入数字，或者只能输入一个浮点小数。 首先来实现一个编辑框接收键盘按下只能是数字的方法： 向界面拖一个TEdit控件。 取名为：edt1. 其次： 添加键盘...
- 关于DELPHI中出现'BOF或EOF'中有一个是“真”，或者当前的记录已被删除,
据所用D5 D7版本,D5存在此问题,D7不存在此问题 解决方法: 不用更新Ado，是Ado的bug，可以通过先关闭ado的记录集后关闭ado解决 if (adoQuery1.active) then begin adoquery1.recordset.close; ...
- delphi7 如何把一个表数据读出来再写到另一个表中
现有一个SQL数据库文件 请问怎么用DELPHI7把里面数据读取出来再写入另外一个表中。 数据库结构为： 学校名 学号 姓名 考号 ...... 一中 1 啊啊 1 二中 2 问问 2 ........ 以此类推 请问该怎么把数据读取...
- Delphi XE2 中的Indy10中的关于Response中文乱码问题
小弟最近在写一用Indy写的webservice中间层代码发现了Reponse的内空中如果有中文，客户端显示是乱码 原来的代码片断如下： procedure THisWebBase.DealEaiServerAction(Sender: TObject; Request: TWebRequest; ...
- Delphi 中实现判断某个外部程序是否运行（如果运行则执行一个命令否则执行一个命令）
前段时间在写一个工具型小软件时需要实现“在触发某个控件的一个事件时，判断某个外部程序（exe）是否已经运行，如果运行则将该程序主窗体打开或窗口置顶，如果没有运行，就通过一个自己指定的路径打开该应用程序”...
- 关于Delphi cxGrid主从表中从表只能编辑第一条记录的问题
在Delphi cxGrid主从表中从表只能编辑第一条记录，这个问题是由于设置主从关联字段错误造成的。 从表DBtableView2的keyfieldnames,DetailKeyFieldNames和MasterKeyFieldNames 是关键： MasterKeyFieldNames为...