OpenEuphoria

Changing Default Printer Page Orientation & Size

• Posted by Rad <radhx at rediffmail.com> Mar 20, 2006
• 496 views

Hi,

I have 4 reports, 2 with Portrait as Page Orientation and 2 with Landscape.
They all differ in Page size too, A4, Letter, etc.

getPrintChoice() is always invoked with default Printer setup for
Orientation and Size, Portrait and A4 in my case.

I tried setting up these 2 properties before invoking printer:

procedure setPaper(atom pDevMode)
atom Memset, DevMode

		Memset  = w32new_memset()
		DevMode = w32acquire_mem(Memset, SIZEOF_DEVMODE)
		poke(DevMode, peek({pDevMode, SIZEOF_DEVMODE}))

		w32store(DevMode, DEVMODE_dmOrientation, PaperOrient)
		w32store(DevMode, DEVMODE_dmPaperSize, PaperSize)

		poke(pDevMode, peek({DevMode, SIZEOF_DEVMODE}))
		w32release_mem(Memset)
end procedure

But still the Printer dialogue is set to default.

I would like to change these 2 default properties before invoking
the Printer. Is is possible?

Regards,
Rad.