Trouble Sending Report (1 Viewer)

[isladogs]

I'm a bit hazy about the details after all this time & the debug values aren't giving anything unusual.

Please replace

If Me.rptToDoListNotes.Height > Me.What.Height Then
  Me.Line (0, 0)-Step(0, Me.rptToDoListNotes.Height + 2000)
  Me.Line (Me.Line25.Left, 0)-Step(0, Me.rptToDoListNotes.Height + 2000)

with

If Me.rptToDoListNotes.Height > Me.What.Height Then
  Debug.print "1. " & Me.rptToDoListNotes.Height
  Debug.print "2. " & Me.Line (0, 0)-Step(0, Me.rptToDoListNotes.Height + 2000)
  Debug.Print "3. " & Me.Line (Me.Line25.Left, 0)-Step(0, Me.rptToDoListNotes.Height + 2000)	
  Me.Line (0, 0)-Step(0, Me.rptToDoListNotes.Height + 2000)
  Debug.Print "4. The 1st line worked"
  Me.Line (Me.Line25.Left, 0)-Step(0, Me.rptToDoListNotes.Height + 2000)
  Debug.Print "5. The 2nd line worked"

Then when you run it, please post the last set of results where you get all of Debug lines 1-5 and also the the debug lines for the incomplete version where it fails.
Hope that makes sense