Update using Take Screenshot tool

It is possible not all screenshots produced by the Help Generator Wizard are exactly as you would like them, maybe you want to make a tutorial which uses a specific set of data. Or the form changed since you ran the wizard. In that case you can replace the screenshots using the Take Screenshot tool. It is capable of creating both screenhots and a fresh HTML (generator) page. The screenshots and HTML file are by default inserted in the Screenshots subfolder. To use Take Screenshot  tool to update your project:

  1. Open the new form or report
  2. From Access menu: Tools > Help Generator > Take Screenshot
  3. Check 'Generate HTML files' and press OK - repeat for all new forms and reports
  4. Open the HTML Help Editor
  5. Menu: File > Open Help folder
  6. Move new screenshots from \screenshots to the \images folder
  7. Move new pages to \chm folder
  8. Select the 'Dialogs' node and right-click > Add
  9. Select the new HTML file
  10. For each image in the added HTML file fix the picture: right-click on the picture > picture Properties and change picture source to the picture in the \images folder
  11. If you are using stylesheets, add this menu: Format > Style > Link to...
  12. Start adding content to the HTML page.
Note: The code below van be used in databases to determine what forms are considered new (don't have Helpfile property set, DAO) 
Sub ListNewForms()
Dim dbs As Database
Dim doc As Document
Dim cnt As Container
Dim frm As Form
On Error GoTo HandleError
Set dbs = CurrentDb
Set cnt = dbs.Containers("Forms")
For Each doc In cnt.Documents
    DoCmd.OpenForm doc.Name, acDesign
    Set frm = Screen.ActiveForm
    If Len(frm.HelpFile) = 0 Then
        Debug.Print doc.Name
    End If
    DoCmd.Close acForm, doc.Name
Next
HandleExit:
    Exit Sub
HandleError:
    MsgBox Err.Number & ": " & Err.Description
    Resume HandleExit
End Sub

Sub ListNewReports()
Dim dbs As Database
Dim doc As Document
Dim cnt As Container
Dim rpt As Report
On Error GoTo HandleError
Set dbs = CurrentDb
Set cnt = dbs.Containers("Reports")
For Each doc In cnt.Documents
    DoCmd.OpenReport doc.Name, acDesign
    Set rpt = Screen.ActiveReport
    If Len(rpt.HelpFile) = 0 Then
        Debug.Print doc.Name
    End If
    DoCmd.Close acReport, doc.Name
Next
HandleExit:
    Exit Sub
HandleError:
    MsgBox Err.Number & ": " & Err.Description
    Resume HandleExit
End Sub