如何设计横向打印的报表?(300分)(300分)

  • 主题发起人 主题发起人 liuchffd
  • 开始时间 开始时间
L

liuchffd

Unregistered / Unconfirmed
GUEST, unregistred user!
我要设计一个横向的报表,横向打印。不知如何做,请各路高手帮帮我。
 
什么内容?什么格式?
建议使用ReportBuilder,该控件功能强大,WWW.51DELPHI.COM上面就有。
 
就是从数据库中调用数据后,做成报表后打印。
 
类似与交叉表?用reportBuider或者fastreport都可以实现的
 
在打印控件中设置页面不就行了
 
修改打印機設置不就行了
 
设置QuickRep1的Page中的Orientation为poLandscape即可。
 
var
ADevice,ADriver,APort:string;
ADeviceMode:THandle;
DevMode:PDeviceMode;
Page:TPoint;
begin
DevMode:=GlobalLock(ADeviceMode);
try
DevMode^.dmFields:=DevMode^.dmFields or DM_PaperSize;
DevMode^.dmPaperSize:=?;
DevMode^.dmFields:=DevMode^.dmFields or DM_PaperWidth;
DevMode^.dmPaperWidth:=2090;
DevMode^.dmFields:=DevMode^.dmFields or DM_PaperLength;
DevMode^.dmPaperLength:=?;
finally
GlobalUnlock(ADeviceMode);
end;


 
在Pagesize中设置为LandScape
设置为横向后,要打印一次,不管有没有连接打印机,空答也可,下次预览就好了。
 
看不清题意;用什么做报表,还是自己控制打印
 
接受答案了.
 
后退
顶部