Ole and Insert Page Break

[Jack]

I want to insert a page break in a excell sheet with ole
What is the instruction ??

oSheet:HPageBreaks:Add("Before") ???

Thanks

[Enrico Maria Giordano]

Code: Select all  Expand view

#define xlPageBreakManual -4135


FUNCTION MAIN()

    LOCAL oExcel := CREATEOBJECT( "Excel.Application" )

    LOCAL oSheet

    oExcel:WorkBooks:Add()

    oSheet = oExcel:ActiveSheet

    oSheet:Cells( 1, 1 ):Value = "This is the first page"

    oSheet:Rows( 2 ):PageBreak = xlPageBreakManual

    oSheet:Cells( 2, 1 ):Value = "This is the second page"

    oExcel:Visible = .T.

    RETURN NIL

EMG

[Jack]

Thanks, it works .

Where did you find the syntax about OLE ?

Thanks .

[Enrico Maria Giordano]

Thanks, it works .

Where did you find the syntax about OLE ?

Thanks .

VBA*.CHM or MSDN.

EMG