TPrintDialogdoes not provide this information. Rather, it allows the user to select a printer, print range, and number of copies.
When you show TPrintDialog, the user has the ability to set properties for his selected printer, including page orientation. Then you should read this information from the object TPrinteryou are using to print. A.
, Printer, . . , , Printer.Orientation, .