procedure TForm5.Button4Click(Sender: TObject);
begin
QRLabel1.Caption:= edit1.Text;
QRLabel47.Caption:='测试教师:'+edit2.text;
QRDBText1.DataField:='学号';
QRDBText2.DataField:='姓名';
QRDBText3.DataField:='性别';
QRDBText4.DataField:='身高cm';
QRDBText5.DataField:='体重kg';
QRDBText6.DataField:='肺活量ml';
QRDBText7.DataField:='握力kg';
QRDBText8.DataField:='测50m';
QRDBText9.DataField:='测50m得分';
QRDBText10.DataField:='测800m女1000m男';
QRDBText11.DataField:='测800m女1000m男得分';
QRDBText12.DataField:='身高标准体重得分';
QRDBText13.DataField:='肺活量体重指数成绩';
QRDBText14.DataField:='肺活量体重指数得分';
QRDBText16.DataField:='握力体重指数成绩';
QRDBText15.DataField:='握力体重指数得分';
QRDBText17.DataField:='总分';
QRDBText18.DataField:='标准50分';
QRDBText19.DataField:='体育课50分';
QRDBText20.DataField:='学年综合得分';
QRDBText21.DataField:='备注';
quickrep1.Preview;
end;这是我的代码  只能显示到一半  即横排只能显示到“测800m女1000m男得分” 如何变为横向打印呢  谢谢