>I'm trying to set the paper size to 8 1/2 by 14 instead of 8 1/2 by 11.
>this is the code that I'm using. Currrently the user has to chnage the printer settings from the sys(1037) function before running the report. Does any one have a fix.
>I tried setting the Paper size, Width and Height as well
>
>cReportName = 'con1.frx'
>cReport = 'con1'
>
>SELECT contract
>THISFORM.setprn2 && See Blelow
>
>*!* close the temp table
>USE &cReportName IN 0 EXCLUSIVE
>SELECT &cReport
>LOCATE FOR objtype = 1 AND objcode = 53
>REPLACE TAG WITH ''
>REPLACE tag2 WITH ''
>APPEND MEMO EXPR FROM repset.txt OVERWRITE
>USE
>
>SET PRINTER TO NAME ALLTRIM(gcprn)
>
>*** Screen Preview
>REPORT FORM '&cReportName' PREVIEW
>
>*****************************************
>* THISFORM.setprn2
>*****************************************
>
>*!* store the current alias
>ret_cursor = ALIAS()
>*!* set the path statement
>tempdir = (sys(5)+sys(2003))+'\Reports\repset'
>SELECT (ret_cursor)
>
>SET SAFETY OFF
>SET CONSOLE OFF
>
>SET ALTERNATE TO &tempdir
>SET ALTERNATE ON
>? 'device='+ALLTRIM(gcprn)
>? 'orientation='+ALLTRIM(STR(PRTINFO(1,ALLTRIM(gcprn)),10,0))
>? 'papersize='+ALLTRIM(STR(PRTINFO(2,ALLTRIM(gcprn)),10,0))
>? 'paperlength='+ALLTRIM(STR(PRTINFO(3,ALLTRIM(gcprn)),10,0))
>? 'paperwidth='+ALLTRIM(STR(PRTINFO(4,ALLTRIM(gcprn)),10,0))
>? 'scale='+ALLTRIM(STR(PRTINFO(5,ALLTRIM(gcprn)),10,0))
>? 'copies='+ALLTRIM(STR(PRTINFO(6,ALLTRIM(gcprn)),10,0))
>? 'defaultsource='+ALLTRIM(STR(PRTINFO(7,ALLTRIM(gcprn)),10,0))
>? 'printquality='+ALLTRIM(STR(PRTINFO(8,ALLTRIM(gcprn)),10,0))
>? 'color='+ALLTRIM(STR(PRTINFO(9,ALLTRIM(gcprn)),10,0))
>? 'duplex='+ALLTRIM(STR(PRTINFO(10,ALLTRIM(gcprn)),10,0))
>? 'yresolution='+ALLTRIM(STR(PRTINFO(11,ALLTRIM(gcprn)),10,0))
>? 'ttoption='+ALLTRIM(STR(PRTINFO(12,ALLTRIM(gcprn)),10,0))
>? 'collate='+ALLTRIM(STR(PRTINFO(13,ALLTRIM(gcprn)),10,0))
>SET ALTERNATE OFF
>SET ALTERNATE TO
>SET CONSOLE ON
>SET SAFETY ON

Shawn, is there a specific reason to re-set paper size programmatically on the fly?