Printing multiple pages using PrintDocument and HasMorePages

by

The way you wrote your code tells me you think the PrintPage method is only getting called once, and that you are using that one call to print everything. That’s not the way it works.

When a new page needs to be printed, it will call the PrintPage method again, so your loop variable has to be outside the PrintPage scope. When the next page prints, you need to know what line number you are currently printing.

Try it like this:

Private printLine As Integer = 0

Private Sub PrintDocument1_PrintPage(sender As Object, e As PrintPageEventArgs)
  Dim startX As Integer = e.MarginBounds.Left
  Dim startY As Integer = e.MarginBounds.Top
  Do While printLine < SoftwareLBox.Items.Count
    If startY + SoftwareLBox.ItemHeight > e.MarginBounds.Bottom Then
      e.HasMorePages = True
      Exit Do
    End If
    e.Graphics.DrawString(SoftwareLBox.Items(printLine).ToString, SoftwareLBox.Font, _
                          Brushes.Black, startX, startY)
    startY += SoftwareLBox.ItemHeight
    printLine += 1
  Loop
End Sub

Set the printLine variable to zero before you print, or set it to zero in the BeginPrint event.

More Related Contents:

  1. TCP Client to Server communication
  2. Add an event to all Forms in a Project
  3. Disable Image blending on a PictureBox
  4. Clickable URL in a Winform Message Box?
  5. How to print hidden and visible content of a Container with ScrollBars
  6. .DrawImage with opacity?
  7. How do I prevent a form from being resized by the user?
  8. VB.NET Checking if a File is Open before proceeding with a Read/Write?
  9. Get File Size on FTP Server and put it on a Label
  10. Saving ListBox with Additional information in My.settings
  11. loop over all textboxes in a form, including those inside a groupbox
  12. Automatically adjusting winform and controls to screen size
  13. VB.Net Passing values to another form
  14. Transparency of picture box
  15. DataGridView Cascading/Dependent ComboBox Columns
  16. VB: Unhandled exception [duplicate]
  17. First time execution was not stopped
  18. OleDbException was unhandled…….Syntax error in UPDATE statement
  19. How To Get Control Property by “String Name”?
  20. (OrElse and Or) and (AndAlso and And) – When to use?
  21. Write text files without Byte Order Mark (BOM)?
  22. handling dbnull data in vb.net
  23. How can I get the WebClient to use Cookies?
  24. IsNothing versus Is Nothing
  25. Equivalent of MoveNext in VB.NET
  26. Is VB really case insensitive?
  27. Associating file extensions with a program
  28. Is there a possibility to address elements on a website which have no ID?
  29. How do I fill an empty textbox with default text?
  30. Collection initialization syntax in Visual Basic 2008?

Leave a Comment