OpenEuphoria

Re: Report Printing under windows

• Posted by Crow <3anmagudi at infovia.com.ar> Nov 09, 2000
• 401 views

Hello Prasanta,

Thursday, November 09, 2000, 11:44:07 PM, you wrote:

PC> Firstly thanks to David for resolving the Tab printing problem. Now, I
PC> would like to print some fancy reports under windows. To start with I would
PC> like to print a Listview with all the headers etc... How do I do this ? Do
PC> I need to calculate all the positions of the columns and then put the text
PC> in the printer (like we did in good ol days with COBOL) or there is any
PC> other easy way of doing this under windows in EU?

PC> Regards,
PC> Prasanta.

Try with this:

include win32lib.e
constant
    Win   = create( Window, "List", 0, Default, Default, 200, 220, 0
    ), -- create window
    List1 = create( List, "", Win, 10, 10, 120, 140, 0 ) -- create
    list

procedure when_load()

    -- build the list
    addItem( List1, "one" )
    addItem( List1, "two" )
    addItem( List1, "three" )
    addItem( List1, "four" )
    addItem( List1, "five" )
    addItem( List1, "six" )
    addItem( List1, "seven" )
    addItem( List1, "eight" )
    addItem( List1, "nine" )
    addItem( List1, "ten" )

end procedure

onOpen[ Win ] = routine_id( "when_load" )
WinMain( Win, Normal )

Best regards,
 Crow                            mailto:3anmagudi at infovia.com.ar