Print Price

If you're just printing the price of the selected item here, then I'd have thought that you want to replace these lines:

For intListIndex = 0 To lstProducts.Items.Count - 1

e.Graphics.DrawString(CStr(lblPrice.Text(lstProducts.SelectedIndex)), fntPrintFont, Brushes.Black, sngX, sngY)

Next

with this one:

e.Graphics.DrawString(lblPrice.Text, fntPrintFont, Brushes.Black, sngX, sngY)

Imports System.IO.File

Imports System.IO

Public Class Form1

Structure ProductRecord

Dim strProduct As String

Dim intQuantity As Integer

Dim sngPrice As Single

End Structure

Dim ProRec(10) As ProductRecord

Private Sub btnExit_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnExit.Click

' End the application

Me.Close()

End Sub

Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load

Dim intIndex As Integer

Dim strFileNameIn As String

Try

btnPrint.Enabled = False

Dim Reader As New IO.StreamReader("C:\products.txt")

strFileNameIn = "products.txt"

Do Until Reader.Peek = -1

With Reader

ProRec(intIndex).intQuantity = CInt(.ReadLine())

ProRec(intIndex).sngPrice = CSng(.ReadLine())

End With

Loop

Catch ex As Exception

MessageBox.Show(ex.Message, "Error in Reading file", MessageBoxButtons.OK, MessageBoxIcon.Exclamation)

End Try

End Sub

Private Sub lstProducts_SelectedIndexChanged(ByVal sender As Object, ByVal e As System.EventArgs) Handles lstProducts.SelectedIndexChanged

lblPrice.Text = ("$") & CStr((ProRec(lstProducts.SelectedIndex).sngPrice))

End Sub

Private Sub btnOrder_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnOrder.Click

Dim outputfile As StreamWriter

outputfile = AppendText("C:\outputfile.txt")

lblCost.Text = ("$") & CStr(CSng(lblPrice.Text) * nudQuantity.Value)

btnOrder.Enabled = False

btnPrint.Enabled = True

lstProducts.Enabled = False

nudQuantity.Enabled = False

End Sub

Private Sub btnPrint_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnPrint.Click

btnOrder.Enabled = True

btnPrint.Enabled = False

lstProducts.Enabled = True

nudQuantity.Enabled = True

End Sub

Private Sub btnReport_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnReport.Click

End Sub

Private Sub PrintReport_PrintPage(ByVal sender As System.Object, ByVal e As System.Drawing.Printing.PrintPageEventArgs) Handles PrintReport.PrintPage

Dim sngX As Single

Dim sngY As Single

Dim fntPrintFont As New Font("Arial", 12)

Dim sngLineHeight As Single = fntPrintFont.GetHeight + 2

Dim intListIndex As Integer

btnPrint.Enabled = True

'print heading

e.Graphics.DrawString(" Iventory Report", fntPrintFont, Brushes.Black, sngX, sngY)

e.Graphics.DrawString("Products Quantity Price", fntPrintFont, Brushes.Black, sngX, sngY)

'display list of Products

For intListIndex = 0 To lstProducts.Items.Count - 1

e.Graphics.DrawString(CStr(lstProducts.Items(intListIndex)), fntPrintFont, Brushes.Black, sngX, sngY)

Next

End Sub

Private Sub PrintSelected_PrintPage(ByVal sender As System.Object, ByVal e As System.Drawing.Printing.PrintPageEventArgs) Handles PrintSelected.PrintPage

Dim sngX As Single

Dim sngY As Single

Dim fntPrintFont As New Font("Arial", 12)

Dim sngLineHeight As Single = fntPrintFont.GetHeight + 2

Dim intListIndex As Integer

'print heading

e.Graphics.DrawString(" Order", fntPrintFont, Brushes.Black, sngX, sngY)

e.Graphics.DrawString("Products Cost", fntPrintFont, Brushes.Black, sngX, sngY)

e.Graphics.DrawString("-----------------------", fntPrintFont, Brushes.Black, sngX, sngY)

'display list of Products

e.Graphics.DrawString(CStr(lstProducts.Items(lstProducts.SelectedIndex)), fntPrintFont, Brushes.Black, sngX, sngY)

For intListIndex = 0 To lstProducts.Items.Count - 1

e.Graphics.DrawString(CStr(lblPrice.Text(lstProducts.SelectedIndex)), fntPrintFont, Brushes.Black, sngX, sngY)

Next

End Sub

End Class