Hello! I am new so hi, anyways, I am searching for a way to print multiple lines of vertical numbers. Here is a picture: error.jpg. There should be more numbers but those never printed due to size but I have no idea on how to then have it go to the top and continue. Here is my code:
Code:Private Sub PrintDocument1_PrintPage(sender As Object, e As PrintPageEventArgs) Handles PrintDocument1.PrintPage Dim font As New Font("Times New Roman", 12, FontStyle.Regular) e.Graphics.DrawString(rtbDisplay.Text, font, Brushes.Black, 100, 200) End SubCode:ElseIf (e.KeyCode = Keys.F3) Then 'PrintPreviewDialog1.ShowDialog() PrintDialog1.ShowDialog() PrintDocument1.Print() End If




Reply With Quote
