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面学习网

转载于:https://www.cnblogs.com/fyluyg/p/3154398.html