I need to programmatically set the margins on my output. The only solution I have found so far is through the use of forms. Has anyone found any undocumented command to set the left and top margins?

Please reply to me directly. I'll summarise <non list echoed> replies to the list.

David

Has anyone else also noticed that if you do the following, the page and line size values are wrong?

Options NoXWait SysPrint = 'Lpt1:' 'Laser Printer' SysPrintFont = "SAS Monospace Bold" 9;

Data _NULL_; Set TABULATE( Obs = 1); If PGORIENT Eq 'L' Then Call Execute( 'Dm "DlgPrtSetup Orient = Landscape NoDisplay";'); Else Call Execute( 'Dm "DlgPrtSetup Orient = Portrait NoDisplay";'); Run;

Data _NULL_; PAGESIZE = %SysFunc( GetOption( PS) ); LINESIZE = %SysFunc( GetOption( LS) ); Put _all_; Run;

But if you change the order and do it this way, they are correct? Is this an undocumented feature? Or should I expect that changing orientation alone will not recalculate the page dimension? (By the way, don't get tricked into believing Page Setup is telling you the truth. If you open page setup, the menu command seems to recalculate the PS and LS options.)

Data _NULL_; Set TABULATE( Obs = 1); If PGORIENT Eq 'L' Then Call Execute( 'Dm "DlgPrtSetup Orient = Landscape NoDisplay";'); Else Call Execute( 'Dm "DlgPrtSetup Orient = Portrait NoDisplay";'); Run;

Options NoXWait SysPrint = 'Lpt1:' 'Laser Printer' SysPrintFont = "SAS Monospace Bold" 9;

Data _NULL_; PAGESIZE = %SysFunc( GetOption( PS) ); LINESIZE = %SysFunc( GetOption( LS) ); Put _all_; Run;