Visual Basic: The code below prints 1 page of data from a text file and stops wi
ID: 3868806 • Letter: V
Question
Visual Basic: The code below prints 1 page of data from a text file and stops without printing the rest of the data in the file. How do I get this routine to print more than one page?
Private Sub printCustomerReport_PrintPage(sender As Object, e As Printing.PrintPageEventArgs) Handles printCustomerReport.PrintPage
Dim count As Integer = 0
Dim intVertPos As Integer
e.Graphics.DrawString("Customer Account Report", New Font("Courier New", 12, FontStyle.Bold), Brushes.Black, 200, 10)
' ID the file to open.
txtfileName = "Records.txt"
' Open the file to read the records.
txtFile = File.OpenText(txtfileName)
' Use the setData function to place the file data into the text boxes
setData()
searchFile = File.OpenText(txtfileName)
intVertPos = 50
Try
' Read the file to end of file.
' Print the contents to the PrintDocument.
While Not searchFile.EndOfStream
If count = 10 Then
count = 0
intVertPos += 20
Else
e.Graphics.DrawString(String.Format("{0,20}{1,10}", "Last Name:",
searchFile.ReadLine()),
New Font("Courier New", 12, FontStyle.Regular),
Brushes.Black, 15, intVertPos)
intVertPos += 15
count += 1
e.Graphics.DrawString(String.Format("{0,20}{1,10}", "First Name:",
searchFile.ReadLine()),
New Font("Courier New", 12, FontStyle.Regular),
Brushes.Black, 15, intVertPos)
intVertPos += 15
count += 1
e.Graphics.DrawString(String.Format("{0,20}{1,10}", "Customer Number:",
searchFile.ReadLine()),
New Font("Courier New", 12, FontStyle.Regular),
Brushes.Black, 15, intVertPos)
intVertPos += 15
count += 1
e.Graphics.DrawString(String.Format("{0,20}{1,10}", "Address:",
searchFile.ReadLine()),
New Font("Courier New", 12, FontStyle.Regular),
Brushes.Black, 15, intVertPos)
intVertPos += 15
count += 1
e.Graphics.DrawString(String.Format("{0,20}{1,10}", "City:",
searchFile.ReadLine()),
New Font("Courier New", 12, FontStyle.Regular),
Brushes.Black, 15, intVertPos)
intVertPos += 15
count += 1
e.Graphics.DrawString(String.Format("{0,20}{1,10}", "State:",
searchFile.ReadLine()),
New Font("Courier New", 12, FontStyle.Regular),
Brushes.Black, 15, intVertPos)
intVertPos += 15
count += 1
e.Graphics.DrawString(String.Format("{0,20}{1,10}", "ZIP Code:",
searchFile.ReadLine()),
New Font("Courier New", 12, FontStyle.Regular),
Brushes.Black, 15, intVertPos)
intVertPos += 15
count += 1
e.Graphics.DrawString(String.Format("{0,20}{1,10}", "Telephone Number:",
searchFile.ReadLine()),
New Font("Courier New", 12, FontStyle.Regular),
Brushes.Black, 15, intVertPos)
intVertPos += 15
count += 1
e.Graphics.DrawString(String.Format("{0,20}{1,10}", "Account Balance:",
searchFile.ReadLine()),
New Font("Courier New", 12, FontStyle.Regular),
Brushes.Black, 15, intVertPos)
intVertPos += 15
count += 1
e.Graphics.DrawString(String.Format("{0,20}{1,10}", "Date of Last Payment:",
searchFile.ReadLine()),
New Font("Courier New", 12, FontStyle.Regular),
Brushes.Black, 15, intVertPos)
intVertPos += 15
count += 1
End If
End While
Catch ex As Exception
MessageBox.Show(ex.Message)
End Try
End Sub
Thanks for the help!
Explanation / Answer
Private Sub printCustomerReport_PrintPage(sender As Object, e As Printing.PrintPageEventArgs) Handles printCustomerReport.PrintPage
Dim count As Integer = 0
Dim intVertPos As Integer
e.Graphics.DrawString("Customer Account Report", New Font("Courier New", 12, FontStyle.Bold), Brushes.Black, 200, 10)
' ID the file to open.
txtfileName = "Records.txt"
' Open the file to read the records.
txtFile = File.OpenText(txtfileName)
' Use the setData function to place the file data into the text boxes
setData()
searchFile = File.OpenText(txtfileName)
intVertPos = 50
Try
' Read the file to end of file.
' Print the contents to the PrintDocument.
While Not searchFile.EndOfStream
If count = 10 Then
count = 0
intVertPos += 20
Else
e.Graphics.DrawString(String.Format("{0,20}{1,10}", "Last Name:",
searchFile.ReadLine()),
New Font("Courier New", 12, FontStyle.Regular),
Brushes.Black, 15, intVertPos)
intVertPos += 15
count += 1
e.Graphics.DrawString(String.Format("{0,20}{1,10}", "First Name:",
searchFile.ReadLine()),
New Font("Courier New", 12, FontStyle.Regular),
Brushes.Black, 15, intVertPos)
intVertPos += 15
count += 1
e.Graphics.DrawString(String.Format("{0,20}{1,10}", "Customer Number:",
searchFile.ReadLine()),
New Font("Courier New", 12, FontStyle.Regular),
Brushes.Black, 15, intVertPos)
intVertPos += 15
count += 1
e.Graphics.DrawString(String.Format("{0,20}{1,10}", "Address:",
searchFile.ReadLine()),
New Font("Courier New", 12, FontStyle.Regular),
Brushes.Black, 15, intVertPos)
intVertPos += 15
count += 1
e.Graphics.DrawString(String.Format("{0,20}{1,10}", "City:",
searchFile.ReadLine()),
New Font("Courier New", 12, FontStyle.Regular),
Brushes.Black, 15, intVertPos)
intVertPos += 15
count += 1
e.Graphics.DrawString(String.Format("{0,20}{1,10}", "State:",
searchFile.ReadLine()),
New Font("Courier New", 12, FontStyle.Regular),
Brushes.Black, 15, intVertPos)
intVertPos += 15
count += 1
e.Graphics.DrawString(String.Format("{0,20}{1,10}", "ZIP Code:",
searchFile.ReadLine()),
New Font("Courier New", 12, FontStyle.Regular),
Brushes.Black, 15, intVertPos)
intVertPos += 15
count += 1
e.Graphics.DrawString(String.Format("{0,20}{1,10}", "Telephone Number:",
searchFile.ReadLine()),
New Font("Courier New", 12, FontStyle.Regular),
Brushes.Black, 15, intVertPos)
intVertPos += 15
count += 1
e.Graphics.DrawString(String.Format("{0,20}{1,10}", "Account Balance:",
searchFile.ReadLine()),
New Font("Courier New", 12, FontStyle.Regular),
Brushes.Black, 15, intVertPos)
intVertPos += 15
count += 1
e.Graphics.DrawString(String.Format("{0,20}{1,10}", "Date of Last Payment:",
searchFile.ReadLine()),
New Font("Courier New", 12, FontStyle.Regular),
Brushes.Black, 15, intVertPos)
intVertPos += 15
count += 1
End If
End While
Catch ex As Exception
MessageBox.Show(ex.Message)
End Try
End Sub
Related Questions
Navigate
Integrity-first tutoring: explanations and feedback only — we do not complete graded work. Learn more.