View the first page

[Sueprnaut]

Hi,
When I open the Visio file it opens the page which I've watched at last
before I close the file. I want to view my first page "Page-1" at every
opening of the Visio file. How can it happens? I don't know if there is a
function in Visio or I have to write code to do this.
If someone know please tell me.
Thank you in advance.

 

[JuneTheSecond]

You would put nect code in the module named ThisDocument.
Private Sub Document_DocumentOpened(ByVal doc As IVDocument)
ActiveWindow.Page = doc.Pages(1)
End Sub