Question in excel Automation

[titoneon]

Hi Everyone
I am using vfp 9.0. sp2 and i did an excel automation to printing the data from excel, but i would like to print the Gridlines in my output file, w/o selecting manually from the excel menu.

i just added this for footer and headers, but don't know how to define for printing the gridlines, from the vfp, can anyone tell me the line code i need.


.CenterHeader = m.lcJobNos+' |As of '+Dmy(Date())
.CenterFooter = "&G"
.RightFooter = "Page &P of &N"

Thanks in advance

 

[Mike Lewis]

Hi Ernesto,

Quite easy. Assuming your Excel object is loXL, the do the following:

[tt]loXL.Windows(1).DisplayGridLines = .T.[/tt]

Mike

__________________________________
Mike Lewis (Edinburgh, Scotland)

Visual FoxPro articles, tips and downloads

 

[Mike Lewis]

Oops. Just noticed you want to print the gridlines. In that case, same principle as before, but you use [tt].PageSetup.DisplayGridLines[/tt] - just as you are doing with [tt]CenterHeader[/tt], etc.

Mike

__________________________________
Mike Lewis (Edinburgh, Scotland)

Visual FoxPro articles, tips and downloads

 

[Mike Lewis]

Sorry. I seem to be having a bad afternoon (probably because it's late on Friday).

It's not [tt]DisplayGridLines[/tt]. It's [tt]PrintGridLines[/tt].

So, just to be clear, this is a property of the PageSetup object, which is in turn a property of the worksheet. Thus:

[tt]loMyWorkbookObject.Sheets("sheet1").PageSetup.PrintGridLines = .T.[/tt]

I think I've got it right this time.

Mike

__________________________________
Mike Lewis (Edinburgh, Scotland)

Visual FoxPro articles, tips and downloads

 

[titoneon]

Hi Mike,

Here is code i have, but it does not work for me the line
.PageSetup.DisplayGridLines = .T. && what i did wrong ?

Local loExcel As excel.Application, lcFile
    loExcel = Createobject('excel.application')
    lcFile = "c:\qjob\"+._Filename+'.xls'
    
 With loExcel
    .Workbooks.Open(m.lcFile)     
    * Insert logo 
    .ActiveSheet.PageSetup.CenterFooterPicture.Filename = "C:\qjob\apexlogo.jpg"

    With .ActiveSheet.PageSetup
       .PageSetup.DisplayGridLines = .T. 
        .CenterHeader = m.lcJobNos+' |As of '+Dmy(Date()) 
        .CenterFooter = "&G"
        .RightFooter = "Page &P of &N"
    Endwith

Thanks

 

[titoneon]

Thanks mike it worked

 

[Mike Lewis]

You've got a spurious .PageSetup in your code:

With .ActiveSheet.PageSetup
  [b].PageSetup[/b].DisplayGridLines = .T.

Otherwise it looks fine.

Mike

__________________________________
Mike Lewis (Edinburgh, Scotland)

Visual FoxPro articles, tips and downloads