How di I print the page header/footer from an excel spreadsheet

boat73 has asked for the wisdom of the Perl Monks concerning the following question:

Replies are listed 'Best First'.
Re: How do I print the page header/footer from an excel spreadsheet by Albannach (Monsignor) on Nov 08, 2006 at 18:01 UTC
`my $Book = $Excel->Workbooks->Open('test.xls'); my $Sheet = $Book->Worksheets("Sheet1"); $Sheet->Activate(); for my $position ( qw( Header Footer ) ) { for my $element ( qw( Left Center Right ) ) { my $item = $element . $position; print "$element$position: ", $Sheet->PageSetup->$item, "\n"; } }` [download] ++ to the first person to show me how to eliminate `$item` - I feel like it is unnecessary. -- I'd like to be able to assign to an luser	[reply] [d/l] [select]
Re^2: How do I print the page header/footer from an excel spreadsheet by friedo (Prior) on Nov 08, 2006 at 18:50 UTC
++ to the first person to show me how to eliminate `$item` - I feel like it is unnecessary. `$Sheet->PageSetup->${ \"$element$position" };` [download]	[reply] [d/l] [select]
Re^3: How do I print the page header/footer from an excel spreadsheet by bmann (Priest) on Nov 08, 2006 at 18:54 UTC
You can use the "hash syntax" to access object properties (see Win32::OLE documentation)~~Properties of an object are implemented as a hashref~~, so more simply: `$Sheet->PageSetup->{"$element$position"} # or $Sheet->PageSetup->{$element . $position}` [download] Update: pr	[reply] [d/l]
Re^4: How do I print the page header/footer from an excel spreadsheet by friedo (Prior) on Nov 08, 2006 at 19:12 UTC
Re^5: How do I print the page header/footer from an excel spreadsheet by bmann (Priest) on Nov 08, 2006 at 19:21 UTC
Some notes below your chosen depth have not been shown here
Re^2: How do I print the page header/footer from an excel spreadsheet by boat73 (Scribe) on Nov 08, 2006 at 18:32 UTC
Perfect, thanks much	[reply]