DoCMD with visCmdOptionsPageSetup shows diagram for print set up.
Or if you would not like the dialog, change of the formulaU of
PrintPageOrientation cell into "2" would do, with the exchange of each
formulaU of the PageWidth cell and PageHeight cell.