Delphi水晶横向竖向打印

时间:2023-03-09 21:30:48
Delphi水晶横向竖向打印

最近做一个打印项目,本来报表已经设为横向打印了,可是运行程序,打印出来的是竖向的,非要在打印机里再设定为横向,郁闷了很久,看看UCrpe32的源码之后,由于我重新封装了TCrpe,在TCrpe的派生类里没有设置Printer.Orientation属性所以打出来一直是竖的,所以在TCrpe的派生类里加上这么一句话,

T***report.Printer.Orientation:= orDefault;

好了现在打印出来的就是就是横向了,Orientation是一个TCrOrientation的枚举类型数据 原型为:

TCrOrientation = (orDefault, orPortrait, orLandscape); {orDefault:默认打印,orPortrait:竖向打印,orLandscape:横向打印}。

而如果直接使用TCrpe控件则没有这种情况,因为他的Printer.Orientation属性默认为orDefault。

有问题请联系 9面学习网