Information of Print Area is missing in VB6 Addin of version Excel 2007 and Excel 2010

Question

Hallo, 
I have a problem with my old VB 6 COM Addin. My document has Print Area, but when I use my addin to open this document. The information of print area is lost. 
This problem takes place only in the following situations.
If the PrintArea is set in Excel 2007 and 2010, it will be missing. But in Excel 2003 without problem.
From the code, the  ".ActiveSheet.PageSetup.printArea" is always empty, although when the print area is configurate in Excel 2007 and 2010
What is the possible reason of this problem?
Thanks very much.

Answer 1

There are several things I don't follow in the details you gave
"I click an excel document in the third-part program and Excel 2007 will be open automatically"
- Describe the 3rd party program you open the workbook in if not Excel"
- What do you mean by "click and Excel document", what do you click and where is the document
- Why click on an Excel document (workbook, worksheet something else?) to get a 3rd party app to automate Excel, then does some other workbook load?
It's very confusing!
Did you try the code in VBA in the instance of the workbook whose sheet you want to return the Print Area
Re: Excel Object Library is 9.0
Did you set a reference to XL-9 in the test app with my code then transfer to a different system with 2007?
However, a ref to xl-9 shouldn't be a problem if the code compiled with that ref. If the app/dll is transferred to a different system it will pick up the Excel GUID in that system, which is exactly the same for all versions since Excel97. The only time it
would be an issue is if code compiled with a new object model is not supported when used with an older Excel object model.
The fact my code appears to work without error returning the message "Print Area not defined" suggests it is referring to a different workbook, ie one in which the Print-Area has not been defined. Double check which workbook it is referring to,
eg
Private Sub cbPrintArea_Click(ByVal Ctrl As Office.CommandBarButton, _
CancelDefault As Boolean)
Dim ws As Excel.Worksheet
Dim s As String, s2 As String
On Error Resume Next
s = xlApp.Caption
If Err.Number Then
MsgBox "xlApp error " & vbCr & Err.Description
Exit Sub
End If
Set ws = xlApp.ActiveSheet
s2 = ws.Parent.Name & vbCr & _
ws.Name & vbCr & _
ws.Range("A1").Value & vbCr
If Err.Number > 0 Then
MsgBox "failed to reference ActiveSheet"
Else
s = ws.PageSetup.PrintArea
If Err.Number Then
MsgBox Err.Description
Else
If Len(s) = 0 Then s = "Print Area not defined"
MsgBox s2 & vbCr & s
End If
End If
End Sub
This should confirm the workbook name, activesheet name and value in A1 (before running maybe add the current time in A1 with ctrl-shift-;  in the same workbook as the print-area has been defined)
Peter Thornton