打印机横向

Portrait 纵向

landscape  横向

RM_reg.pas ；TRMPageSetupForm

打印机设置RM_PageSetup.dfm

 TRMPageSetting定义在RM_Printer.pas

TRMPrinterOrientation = (rmpoPortrait, rmpoLandscape);

TRMPageSetting

property PageOr: TRMPrinterOrientation read FPageOr write SetPageOr;

TRMPageSetupForm = class(TForm)

property PageSetting: TRMPageSetting read FPageSetting;

TRMPageLayout = class(TPersistent)

property PageOrientation: TRMPrinterOrientation read FPageOr write FPageOr;

调用打印机设置窗口

RM_reg.pas

procedure TRMPageLayoutProperty.Edit;

打印机横向

原文：http://www.cnblogs.com/cb168/p/4635216.html