VB 6.0 - How to programatically add a comment to spreadsheet

•

What is DaniWeb IT Discussion Community?

You're currently browsing the Visual Basic 4 / 5 / 6 section within the Software Development category of DaniWeb, a massive community of 456,601 software developers, web developers, Internet marketers, and tech gurus who are all enthusiastic about making contacts, networking, and learning from each other. In fact, there are 3,464 IT professionals currently interacting right now! Registration is free, only takes a minute and lets you enjoy all of the interactive features of the site.

Join our community!

Please support our Visual Basic 4 / 5 / 6 advertiser: Programming Forums

Thread Tools Display Modes

Views: 920 | Replies: 2

•

Join Date: Jul 2007

Posts: 113

Reputation: tgifgemini is an unknown quantity at this point

Rep Power: 2

Solved Threads: 0

tgifgemini tgifgemini is offline

Offline

Junior Poster

VB 6.0 - How to programatically add a comment to spreadsheet

Sep 7th, 2007

Good people,
Please can someone show me how I can add a permanent comment to the end (footer) of my spreadsheet. I want this comment to be visible when the spreadsheet is printed.

I know how to add the comment on the spreadsheet that is visible only when you hover the cursor on it. But I want to hard-code it in my module.
Thanks,
tgifgemini

•

Join Date: Nov 2006

Posts: 743

Reputation: QVeen72 is an unknown quantity at this point

Rep Power: 4

Solved Threads: 101

QVeen72

Offline

Master Poster

Re: VB 6.0 - How to programatically add a comment to spreadsheet

Sep 8th, 2007

Hi tgif,

I think u want a Custimized Page Footer. This is how you do it :

 Help with Code Tags 
 vb Syntax (Toggle Plain Text) 
ActiveSheet.PageSetup.PrintArea = ""
With ActiveSheet.PageSetup
        .LeftHeader = ""
        .CenterHeader = ""
        .RightHeader = ""
        .LeftFooter = "New Page Footer "
        .CenterFooter = ""
        .RightFooter = ""
    End With
ActiveSheet.PageSetup.PrintArea = ""
With ActiveSheet.PageSetup
        .LeftHeader = ""
        .CenterHeader = ""
        .RightHeader = ""
        .LeftFooter = "New Page Footer "
        .CenterFooter = ""
        .RightFooter = ""
    End With

REgards
Veena

Last edited by QVeen72 : Sep 8th, 2007 at 7:43 am.

•

Join Date: Jul 2007

Posts: 113

Reputation: tgifgemini is an unknown quantity at this point

Rep Power: 2

Solved Threads: 0

tgifgemini tgifgemini is offline

Offline

Junior Poster

Re: VB 6.0 - How to programatically add a comment to spreadsheet

Sep 10th, 2007

Hi Veena,
Haven't heard from you in a while. I hope everything is okay with you.
Thanks for your input. objective accomplished.
Have a good day.
tgif.