Getting Multi-page Output To Printer?

I am continuing a previous thread to keep it from becoming tooooooo long. I tried most of the helpful suggestions offered by kind forum contributors but can't seem to make them work. I tried to analyze somewhat but it's beyond my skill level. So a different approach was to try to incorporate the code in the PrintDocument1_PrintPage event of my application that prints acceptably, but only prints first page of multi page document. I had three somewhat different approaches offered by John Anthony Oliver, ACAMAR, and Crazy Pennie. I cut the code and placed in the PrintDocument1_PrintPage event code. All three approaches made the "Printing"message box page counter go wild without outputing to my printer. Family Man Mike suggested resetting the variables after the e.HasMorePages=false line. I tried that approach but couldn't make that work for me, I really don't comprehend but made an attempt such as num_of_pages = 0, startVal = 0, endVal = 0. That had no affect on the functionality.

Public Sub DrawStringRectangleFormat _
(ByVal stringToDraw As String, _
ByVal stringFont As Font, _
ByVal stringFrmt As StringFormat, _

[code].....