OpenEuphoria

Re: setPrintJobProperty problem

• Posted by Bernie Ryan <xotron at blue?rog.co?> Oct 28, 2007
• 622 views

Andy Drummond wrote:
> 
> Andy Drummond wrote:
> 
> I just tried this but it seems no better. Here is the code I'm using; it
> outputs in portrait mode to the printer.
> 
> }}}
<eucode>
> --  code generated by Win32Lib IDE v1.1.0 Build Oct-07-2007
> 
> constant TheProgramType="exw" 
>  
> include Win32Lib.ew
> without warning
> 
>
> --------------------------------------------------------------------------------
> --  Window Window1
> constant Window1 = createEx( Window, "Window1", 0, Default, Default, 400, 300,
> 0, 0 )
> constant PushButton2 = createEx( PushButton, "Print", Window1, 180, 120, 90,
> 30, 0, 0 )
> ---------------------------------------------------------
> 
>
> --------------------------------------------------------------------------------
> procedure PushButton2_onClick (integer self, integer event, sequence
> params)--params is ()
> 	VOID = getDefaultPrinter()
> --	VOID = setPrintJobProperty(JP_Orientation, DMORIENT_LANDSCAPE)
> 	VOID = startDoc("fred")
> 	VOID = startPage()
> 	VOID = setPrintJobProperty(JP_Orientation, DMORIENT_LANDSCAPE)
> 	wPuts(Printer, "This is output on the default printer!")
> 	VOID = endPage()
> 	VOID = endDoc()
> 	releasePrinter()
> 	abort(0)
> end procedure
> setHandler( PushButton2, w32HClick, routine_id("PushButton2_onClick"))
> 
> 
> WinMain( Window1,Normal )
> </eucode>
{{{

> 
> Have I done something particularly daft? If not, have we any ideas?


AndyD:

What is JP_Orientation ??


Bernie

My files in archive:
WMOTOR, XMOTOR, W32ENGIN, MIXEDLIB, EU_ENGIN, WIN32ERU, WIN32API 

Can be downloaded here:
http://www.rapideuphoria.com/cgi-bin/asearch.exu?dos=on&win=on&lnx=on&gen=on&keywords=bernie+ryan