Public start_page_kilos As Integer
    Public start_page_hundreds As Integer
    Public start_page_tens As Integer
    Public start_page_units As Integer
    Public start_page_number As Integer
(These numbers are for the start page, and I use them to calculate the start page - I have used this because we may have to print in batches, so rather than setting it to one, we can start from 201, (for example))

    Public end_page_kilos As Integer
    Public end_page_hundreds As Integer
    Public end_page_tens As Integer
    Public end_page_units As Integer
    Public end_page_number As Integer
(Same as the start page, but for the end page...)

    Public total_pages_tens As Integer
    Public total_pages_units As Integer
    Public total_pages_number As Integer
(this is used to calculate how many sheets per exam paper)

    Public full_prefix As String
    Public short_prefix As String
    Public full_subject As String
    Public short_subject As String
(The prefix is the site code and the subject is the... subject)

    Public print_string As String
    Public page_counter As Integer
    Public test_text As String
(These are two variables)

   

1.           Namespace My
2.               ''' <summary>
3.               ''' Represents the lost VB6 functionality of a Printer object
4.               ''' </summary>
5.               ''' <remarks>Usage: My.Printer.Print(text)</remarks>
6.               Public Class Printer
7.                   Private Shared Lines As New Queue(Of String)
8.                   Private Shared _myfont As Font
9.                   Private Shared prn As Printing.PrintDocument
10.       
11.               Shared Sub New()
12.                   _myfont = New Font(SystemFonts.DefaultFont.FontFamily, 0.16, FontStyle.Regular, GraphicsUnit.Inch)
13.                   prn = New Printing.PrintDocument
14.                   AddHandler prn.PrintPage, AddressOf PrintPageHandler
15.               End Sub
16.       
17.               Public Shared Sub Print(ByVal text As String)
18.                   Dim linesarray() = text.Split(New String() {Environment.NewLine}, StringSplitOptions.None)
19.       
20.                   For Each line In linesarray
21.                       Lines.Enqueue(line)
22.                   Next
23.                   prn.Print()
24.               End Sub
25.       
26.               Private Shared Sub PrintPageHandler(ByVal sender As Object, ByVal e As Printing.PrintPageEventArgs)
27.                   Dim sf As New StringFormat()
28.                   Dim vpos As Single = e.PageSettings.HardMarginY
29.       
30.                   Do While Lines.Count > 0
31.                       Dim line As String = Lines.Dequeue
32.                       Dim sz As SizeF = e.Graphics.MeasureString(line, _myfont, e.PageSettings.Bounds.Size, sf)
33.       
34.                       Dim rct As New RectangleF( _
35.                           e.PageSettings.HardMarginX, vpos, _
36.                           e.PageBounds.Width - e.PageSettings.HardMarginX * 2, _
37.                           e.PageBounds.Height - e.PageSettings.HardMarginY * 2)
38.       
39.                       e.Graphics.DrawString(line, _myfont, Brushes.Black, rct)
40.                       vpos += sz.Height
41.                       If vpos > e.PageSettings.Bounds.Height - e.PageSettings.HardMarginY * 2 Then
42.                           e.HasMorePages = True
43.                           Exit Sub
44.                       End If
45.                   Loop
46.               End Sub
47.           End Class
48.       End Namespace

Private Sub PrintDocument1_PrintPage( _
ByVal sender As Object, _
ByVal e As System.Drawing.Printing.PrintPageEventArgs) _
Handles PrintDocument1.PrintPage
Static pageNum As Integer
Dim prFont As New Font("Verdana", 24, GraphicsUnit.Point)
e.Graphics.DrawString( _
"PAGE " & pageNum + 1, prFont, _
Brushes.Black, 700, 1050)
e.Graphics.DrawRectangle(Pens.Blue, 0, 0, 300, 100)
e.Graphics.DrawString( _
"Printing with VB 2005", prFont, _
Brushes.Black, 10, 10)
‘ Add more printing statements here
‘ Following is the logic that determines whether we’re done printing
pageNum = pageNum + 1
If pageNum <= 3 Then
e.HasMorePages = True
Else
e.HasMorePages = False
pageNum = 0
End If
End Sub