T
turner
I have written a "Help" file for my application. I got almost everything to
work. When the Word document opens in PrintPreview it displays the NUMBER of
pages that were last viewed by the user. I would like it to force it to
display just the ONE page that is relevent to the users problem.
Any Help would be appreciated!!!!
My Code is:
Public Function OpenHelp(stBookMark As String)
On Error GoTo err_OpenHelp
Dim objWord As Word.Document
Set objWord = GetObject("c:\Tc_Appl\UserHelp.doc", "Word.document")
objWord.Bookmarks(stBookMark).Select
objWord.Application.Visible = True
objWord.Application.WindowState = wdWindowStateMaximize
objWord.Application.ActiveDocument.PrintPreview
exit_OpenHelp:
Exit Function
err_OpenHelp:
Select Case Err.number
Case 287
MsgBox "A Copy of the 'Help' Document is already Open - Please,
Close It an Re-Submit"
Case Else
MsgBox Err.number & "-" & Err.Description
End Select
Resume exit_OpenHelp
End Function
work. When the Word document opens in PrintPreview it displays the NUMBER of
pages that were last viewed by the user. I would like it to force it to
display just the ONE page that is relevent to the users problem.
Any Help would be appreciated!!!!
My Code is:
Public Function OpenHelp(stBookMark As String)
On Error GoTo err_OpenHelp
Dim objWord As Word.Document
Set objWord = GetObject("c:\Tc_Appl\UserHelp.doc", "Word.document")
objWord.Bookmarks(stBookMark).Select
objWord.Application.Visible = True
objWord.Application.WindowState = wdWindowStateMaximize
objWord.Application.ActiveDocument.PrintPreview
exit_OpenHelp:
Exit Function
err_OpenHelp:
Select Case Err.number
Case 287
MsgBox "A Copy of the 'Help' Document is already Open - Please,
Close It an Re-Submit"
Case Else
MsgBox Err.number & "-" & Err.Description
End Select
Resume exit_OpenHelp
End Function