help printing

[COMPCAD]

I know I have had several New Threads here lately that is because I think no one understands what I am trying to do. I am trying to get the printout on a peice of paper to look like this:

1. example

KF
123
O45
1975

and not like this:

2. example

KF 123 O45 1975

In one of the threads someone had sent me some code which I have listed below when I try it, it comes out looking like example 2.:

Public Class Form1
    Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
        'TODO: This line of code loads data into the 'Replica_of_db181DataSet.CARD_CATALOG' table. You can move, or remove it, as needed.
        Me.CARD_CATALOGTableAdapter.Fill(Me.Replica_of_db181DataSet.CARD_CATALOG)

    End Sub
    Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
        PrintDocument1.Print()
    End Sub
    Private Sub PrintDocument1_PrintPage(ByVal sender As System.Object, ByVal e As System.Drawing.Printing.PrintPageEventArgs) Handles PrintDocument1.PrintPage
        Dim fnt As New Font("Arial", 10, FontStyle.Regular, GraphicsUnit.Point)
        e.Graphics.DrawString(TextBox1.Text, fnt, Brushes.Black, 0, 0)
        TextBox1.Multiline = True
        e.HasMorePages = False
    End Sub
End Class

I want the code to print out the data to look like example 1. I hope there is someone out there that can help me

[COMPCAD]

Could you tell me if there is some other forum on the internet that would work better for me to get my problem looked at and answered by someone.

[bgibson]

I am no expert in printing, which can be pretty clumsy in Visual Studio, but I'll make a suggestion. Instead of hoping your very narrow multi-line text box will be rendered accurately by the print routine, why don't you force the issue by inserting carriage returns and line feeds between each of the parts.

Try the following:

'In your current Button1_Click, 
'assign the content of TextBox1.Text to OneLineText

Dim OneLineText As String = TextBox1.Text
Dim Parts() As String
Dim TextWith_CR_and_LFs As String = ""

'add Cr&Lf to each part
Parts = OneLineText.Split(" ")
For Each Part In Parts
TextWith_CR_and_LFs &= Part & vbCrLf
Next

'assign the split-up text back to TextBox1.Text
TextBox1.Text = TextWith_CR_and_LFs

'Then call PrintDocument1.Print()

Good luck!

Benn Gibson

[COMPCAD]

Thank you for the post but I did not think anyone would post and so I have not checked back until today. I did try the code you gave to me but it did not work it printed a blank page. and on the screen inside of the textbox it shows the return charecters what could be wrong.

[bgibson]

What do you mean "on the screen inside of the textbox it shows the return charecters"? I don't know what "return characters" are.

Are you trying to say that the screen shows accurately what you hope it would, but nothing gets printed?

Benn Gibson