HELP Presentation on Monday...Print Issue question

[spcolsen]

Hi all;

I am haveing a bit of trouble with my print issue. I am using VB.net. Here is my code ya'all, how do I get the fields to print, I believe I am alomost there please help I have to present my program to my Training NCO on Monday.

Private Sub editROSTER___Enter(ByVal sender As Object, ByVal e As System.EventArgs) Handles editROSTER__.Enter
editROSTER__.BackColor = System.Drawing.Color.Yellow
End Sub

Private Sub editROSTER___Leave(ByVal sender As Object, ByVal e As System.EventArgs) Handles editROSTER__.Leave
editROSTER__.BackColor = System.Drawing.Color.White
End Sub

Private Sub editSSN_Enter(ByVal sender As Object, ByVal e As System.EventArgs) Handles editSSN.Enter
editSSN.BackColor = System.Drawing.Color.Yellow
End Sub

Private Sub editSSN_Leave(ByVal sender As Object, ByVal e As System.EventArgs) Handles editSSN.Leave
editSSN.BackColor = System.Drawing.Color.White
End Sub

Private Sub editSECT_Enter(ByVal sender As Object, ByVal e As System.EventArgs) Handles editSECT.Enter
editSECT.BackColor = System.Drawing.Color.Yellow
End Sub

Private Sub editSECT_Leave(ByVal sender As Object, ByVal e As System.EventArgs) Handles editSECT.Leave
editSECT.BackColor = System.Drawing.Color.White
End Sub

Private Sub editFIRST_NAME_Enter(ByVal sender As Object, ByVal e As System.EventArgs) Handles editFIRST_NAME.Enter
editFIRST_NAME.BackColor = System.Drawing.Color.Yellow
End Sub

Private Sub editFIRST_NAME_Leave(ByVal sender As Object, ByVal e As System.EventArgs) Handles editFIRST_NAME.Leave
editFIRST_NAME.BackColor = System.Drawing.Color.White
End Sub

Private Sub editLAST_NAME_Enter(ByVal sender As Object, ByVal e As System.EventArgs) Handles editLAST_NAME.Enter
editLAST_NAME.BackColor = System.Drawing.Color.Yellow
End Sub

Private Sub editLAST_NAME_Leave(ByVal sender As Object, ByVal e As System.EventArgs) Handles editLAST_NAME.Leave
editLAST_NAME.BackColor = System.Drawing.Color.White
End Sub

Private Sub editRANK_Enter(ByVal sender As Object, ByVal e As System.EventArgs) Handles editRANK.Enter
editRANK.BackColor = System.Drawing.Color.Yellow
End Sub

Private Sub editRANK_Leave(ByVal sender As Object, ByVal e As System.EventArgs) Handles editRANK.Leave
editRANK.BackColor = System.Drawing.Color.White
End Sub

Private Sub btnPageSetup_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnPageSetup.Click
Try
PageSetupDialog1.PageSettings = PrintPageSettings
PageSetupDialog1.ShowDialog()
Catch ex As Exception
MessageBox.Show(ex.Message)
End Try
End Sub

Private Sub btnPrint_Click(ByVal sender As Object, ByVal e As System.EventArgs) Handles btnPrint.Click
Try
PrintDocument1.DefaultPageSettings = PrintPageSettings
StringToPrint = "editROSTER__.Text, editLast_Name.Text, editFirst_Name.Text"
PrintDialog1.Document = PrintDocument1
Dim result As DialogResult = PrintDialog1.ShowDialog()
If result = DialogResult.OK Then
PrintDocument1.Print()
End If
Catch ex As Exception
MessageBox.Show(ex.Message)

End Try
End Sub

Private Sub PrintDocument1_PrintPage(ByVal sender As System.Object, ByVal e As System.Drawing.Printing.PrintPageEventArgs) Handles PrintDocument1.PrintPage
Dim numChars As Integer
Dim numLines As Integer
Dim stringForPage As String
Dim strFormat As New StringFormat()
strFormat.Trimming = StringTrimming.Word
stringForPage = StringToPrint.Substring(0, numChars)
If numChars < StringToPrint.Length Then
StringToPrint = StringToPrint.Substring(numChars)
e.HasMorePages = True
Else
e.HasMorePages = False
StringToPrint = "editROSTER__.Text, editLast_Name.Text, editFirst_Name.Text"
End If

End Sub

Private Sub btnPrintPreview_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnPrintPreview.Click
Try
PrintDocument1.DefaultPageSettings = PrintPageSettings
StringToPrint = "*.doc"
PrintPreviewDialog1.Document = PrintDocument1
PrintPreviewDialog1.ShowDialog()
btnPrint.Enabled = True
btnPageSetup.Enabled = True
btnPrintPreview.Enabled = True
Catch ex As Exception
MessageBox.Show(ex.Message)

End Try
End Sub
End Class

[hellswraith]

StringToPrint = "editROSTER__.Text, editLast_Name.Text, editFirst_Name.Text"

I don't know that much about printing yet. But the line above looks like you are doing it wrong. I think you are meaning something like this:

StringToPrint = editROSTER__.Text & ", " & editLast_Name.text & ", " & editFirst_Name.Text