问“同甘共苦”:
你有用这个打印RAVE的动态报表否?
我现在不管是我的papersize如何设置,paperheight,paperwidth如何处理,
它给我预览的界面都是那个“16(单位我忘了,比16开小)”。但如果在预
览界面把页面设置改变一下(比如说是A4),打印依然是原来的效果。
是不是我的设置代码有问题?
代码如下:
if datamodule.PaperKind='A4纵向' then
begin
mypage.PageWidth:=8.268;
mypage.PageHeight:=11.693;
step:=6/columnCount;
myregion.Left:=0.8;
myregion.Top:=0.8;
myregion.Width:=6.5;
myregion.Height:=10;
mypage.Orientation:=poportrait;
mytitletext.Width:=6.5;
mysubtitle.Width:=6.5;
self.modifyDataVLine('vLine3',6.5);
self.modifyDataVLine('vLine5',6.5);
//self.modifyDataVLine('vLine8',6.5);
footText.Top:=11;
foottext.Left:=6.8;
end
else
if datamodule.PaperKind='A4横向' then
begin
//step:=8.5/fieldcount;
mypage.PageWidth:=11.693;
mypage.PageHeight:=8.268;
step:=8.5/columnCount;
myregion.Width:=9;
myregion.Height:=6.5;
mypage.Orientation:=polandscape;
//大于6列横打
MyTitleText.Width:=9;
//标题
MySubTitle.Width:=9;
//子标题
self.modifyDataVLine('VLine3',9);
//数据栏的右竖线
self.modifyDataVLine('VLine5',9);
//标题栏的右竖线
//self.modifyDataVLine('vLine8',9);
FootText.Top:=7.5;
//页脚
footText.Left:=9.5;
end
else
if datamodule.PaperKind='A3纵向' then
begin
mypage.PageWidth:=11.693;
mypage.PageHeight:=16.535;
step:=8.5/columnCount;
myregion.Left:=0.8;
myregion.Top:=0.8;
myregion.Width:=10;
myregion.Height:=14.8;
mypage.Orientation:=poportrait;
mytitletext.Width:=10;
mysubtitle.Width:=10;
self.modifyDataVLine('vLine3',10);
self.modifyDataVLine('vLine5',10);
//self.modifyDataVLine('vLine8',10);
footText.Top:=15.6;
foottext.Left:=10.3;
end
else
// A3横向
begin
mypage.PageWidth:=16.535;
mypage.PageHeight:=11.693;
step:=14/columnCount;
myregion.Left:=0.8;
myregion.Top:=0.8;
myregion.Width:=14.8;
myregion.Height:=10;
mypage.Orientation:=polandscape;
mytitletext.Width:=14.8;
mysubtitle.Width:=14.8;
self.modifyDataVLine('vLine3',14.8);
self.modifyDataVLine('vLine5',14.8);
//self.modifyDataVLine('vLine8',14.8);
footText.Top:=10.9;
foottext.Left:=15;
end;