Private Sub frmPrinterSelection_Load(ByVal sender As Object, ByVal e As System.EventArgs) Handles Me.Load
    Dim i As Integer
    Dim ioPrinter As Integer
    Dim found As Boolean = False

    'Add this computers avail printers to the combobox
    cbbPrinters.Items.Clear()
    For i = 0 To (Printing.PrinterSettings.InstalledPrinters.Count - 1)
      cbbPrinters.Items.Add(Printing.PrinterSettings.InstalledPrinters.Item(i))

      'Check to see if there is a IO Printer in the list
      If InStr(Printing.PrinterSettings.InstalledPrinters.Item(i), "IO PRINTER") Then
        ioPrinter = i
        found = True
      End If
    Next

    'There is a problem with the printer at sales this makes them choose the printer
    'found = False

    'If the IO printer is found on the users machine use as default and print automatical
    'If not display the print form and let the user select the printer
    If found Then
      'Set the default printer to be the printer being used to print to
      frmPlaceOrder.ioDoc.PrinterSettings.PrinterName = "IO PRINTER"

      Try
        frmPlaceOrder.ioDoc.Print()

        'Close the form if printing to the default printer
        Me.Close()
        Exit Sub
      Catch ex As Exception
        MsgBox(ex.Message, MsgBoxStyle.Critical, "Printing Error")
      End Try
    End If

    cbbPrinters.Focus()
  End Sub