Qreport换页问题。(200分)

程序设计纸张是16开，预览显示是分页的，但我用A4纸打印时，打完一页后并没有走完纸就在后面开始打印第2页的内容了，请问，如何能让打印机打印一页后走完纸，重新放纸后才开始打印第2页的内容？
我是在QuickRepNeedData里赋值、换页的。
我的代码如下：
procedure TQReport1.QuickRepNeedData(Sender: TObject;
var MoreData: Boolean);
var
i:integer;
begin
with Pubdb.adomldo
begin
first;
while not eofdo
begin
if FieldByName('ciPrintFlag').AsInteger=1 then
begin
moredata:=true;
QReport1.NewPage;
ylset;//打印内容赋值
end;
Next;
if eof then
moredata:=False;
end;
end;
end;

那你从新设置成a4纸不行吗？

好象会自己打印机会自动换页的吧！

把要分叶的部分放在DETAIL中 然后你必须知道有多少页 才能实现分页

你看一下，是不是你的quickreport 的打印区域过小，不够长。这样导致打印机在打印完第一页后，就开始打印第二页。
还有可能是，是不是手动进纸的。如果是的话，也要注意一下进纸深度。

在操作系统中设置纸张：
控制面板－＞打印机－＞“文件”菜单－＞服务器属性--》创建新格式，按照你要的纸张大小创建，然后在QUCIKREPORT的PAPER SIZE 中选择CUSTORM，F9重新编译即可解决。在2000中如此

新设置成a4纸，编译一下就行了！

QuickReport报表的强制分页命令：
newpage;