==================一个超级奇怪的打印问题============== ( 积分: 50 )

用DELPHI和QUICKREPORT做的程序，打印预览的时候显示很正常，打印出来后，第一页的最后总是跟着后一页的前几行，这样打印出来的文档总是前页中重复打印了后页的顶行数据，如何调整啊。我调整了下边距，还是会打出后页的数据，我的QRDBTEXT的属性是自动换行，但是为什么预览的内容和实际打印的内容不一致呢。谢谢您的回答。在线等待中。。。。。。。

用DELPHI和QUICKREPORT做的程序，打印预览的时候显示很正常，打印出来后，第一页的最后总是跟着后一页的前几行，这样打印出来的文档总是前页中重复打印了后页的顶行数据，如何调整啊。我调整了下边距，还是会打出后页的数据，我的QRDBTEXT的属性是自动换行，但是为什么预览的内容和实际打印的内容不一致呢。谢谢您的回答。在线等待中。。。。。。。

没有人能回答吗,我现在手里没有分了,等我打工挣到分的时候,一定补上.

你最好的发到我的邮箱，不然很难判断你哪个属性设置有问题。<br>bonnyhero@163.com

我已经给您发了MAIL,请查收.

这种情况一般是QUICKREPORT中设置的纸张大小与系统打印机的默认纸张不一致造成的。

我的纸张都是A4的，没有什么不同啊。

打印机的分辨率不同

分辨率有什么不同，具体有什么不同请您说明详细一些。

可以试试：不是有个设置每页可打印固定记录（行数）的属性，你找找看把它设设。<br><br><br><br>还有关于分辨率：<br>而不同设备的像素点的大小不同，打印机的分辨率比显示器要高很多，所以导致同样图形，文字等在打印时候变小。打印机有300dpi,600dpi等等<br>获得当前打印机的分辨率<br>在Uses中加入Printers<br>1英寸=25.4毫米<br>ResX:=GetDeviceCaps(Printer.Handle,LOGPIXELSX);<br>ResY:=GetDeviceCaps(Printer.Handle,LOGPIXELSY);<br>获得不可打印区域的<br>PoffsetX:=GetDeviceCaps(Acanvas.Handle,PHYSICALOFFSETX);<br>PoffsetY:=GetDeviceCaps(Acanvas.Handle,PHYSICALOFFSETY);<br><br>程序中可以这样实现：<br>prt-&amp;gt;BeginDoc();<br>int OldMode=SetMapMode(prt-&amp;gt;Handle,MM_ISOTROPIC);<br>SetWindowExtEx(prt-&amp;gt;Handle,Screen-&amp;gt;Width ,Screen-&amp;gt;Height ,0);<br>SetViewportExtEx(prt-&amp;gt;Handle,<br> &nbsp; &nbsp; &nbsp; &nbsp;Screen-&amp;gt;Width*GetDeviceCaps(prt-&amp;gt;Handle,LOGPIXELSX)/Screen-&amp;gt;PixelsPerInch,<br> &nbsp; &nbsp; &nbsp; &nbsp;Screen-&amp;gt;Height*GetDeviceCaps(prt-&amp;gt;Handle,LOGPIXELSY)/Screen-&amp;gt;PixelsPerInch,0);<br><br>.......<br>.......<br><br>prt-&amp;gt;EndDoc();<br>SetMapMode(prt-&amp;gt;Handle,OldMode);<br><br>如果你想自己用Delphi编写一个打印程序，那么，下面这些技巧或许对你有所帮助。<br>1.[green]获娶显示当前打印机的分辨率[/green]<br>Windows下的打印分辨对打印程序有着至关重要的作用，如果你想知道[red]打印机的分辨率[/red]，请在程序中加入一行：ShowMessage(′水平分辨率′＋inttostr(GetDeviceCaps(printer?Handle,LOGPIXELSX))＋chr(13)＋′垂直分辨率：′＋inttostr(GetDeviceCaps(printer?Handle,LOGPIXELSY)));结果就一目了然了。<br>2.将结果直接送到打印机<br>Delphi提供了两种打印方式：一是将结果输送到Form，再调用Form的print方法将结果输送到打印机，二是将结果直接输送到打印机。如果你采用第一种方式，则无论你怎样调整Form的PrintScal属性，打印出来的东西也不会让你满意。因此建议采用第二种方式。<br>3.尽量不要使用AssignPrn<br>尽管AssignPrn简化了文本打印操作，使输出到打印机像输出到文件一样简单。但简单带来的是一系列的不方便：你无法知道当前打印的行数，无法准确控制行距，无法灵活改变字体字形等等。还是用打印机的Canvas属性进行打印吧。<br>4.用打印机的点数做度量单位<br>如果想让打印程序在任何打印机上都能正常地打印，你就必须改变你的度量单位。如果采用固定的度量，不同分辨率的打印效果是不同的。举例来讲：printer?Canvas?rectangle(0,0,360,720)在360×360的佳能4200SP上能打出一个1英寸宽、2英寸高的矩形，但在600×600的惠普6L上只能打出0?6英寸宽、1?2英寸高的矩形。使用打印机的点数做为度量单位是一个明智的选择。具体做法如下：VarPointX,PointY:integer;PointX:=GetDeviceCaps(printer?Handle,LOGPIXELSX);PointY:=GetDeviceCaps(printer?Handle,LOGPIXELSX);printer?Canvas?rectangle(0,0,PointX＊1,PointY＊2)这样，无论你使用什么样的打印机，都能得到一个1英寸宽、2英寸高的矩形。<br>5.添加打印程序单元<br>尽管Delphi在生成窗体时会自动在USES部分加入许多程序单元，但打印程序单元(Printers)却不在之列，要想使打印机正常工作和程序不出错，你还是老老实实手工给它加上吧。(

多人接受答案了。