PrintPreviewDialog1.Document = PrintDocument1 ‘SET THE DOCUMENT TO PREVIEW Private Sub btnprev_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnprev.Click Then, double click the Button and do the following code for the Print Preview will appear. ‘CHECKING IF WHETHER THE PRINTING MODULE SHOULD BE FIRE TO ANOTHER PRINTPAGE EVENT ‘FORMULA FOR ADVANCING THE CURRENT TO THE LAST CHARACTER PRINTED ON THIS PAGE. ‘IN THIS AREA, THE TEXT WILL BE PRINT IN THE PAGEĮ.Graphics.DrawString(Mid(TextBox1.Text, CurCharInt + 1), fnt, _ New SizeF(printwidthInt, printheightInt), format, _ ‘CALL MEASURESTRING TO KNOW HOW MANY CHARACTERS THAT WILL FIT IN THE PRINTING AREA RECTANGLE.Į.Graphics.MeasureString(Mid(TextBox1.Text, CurCharInt + 1), fnt, _ ‘DISPLAY MANIPULATIONS AND OPENTYPE FEATURES.ĭim format As New StringFormat(StringFormatFlags.LineLimit)ĭim linesfilledInt As Int32 ‘MUST BE PASSED WHEN PASSING CHARFIT.ĭim charsfittedInt As Int32 ‘USED WHEN CALCULATING CurCharInt AND HasMorePages. ‘ INSTANTIATE THE STRINGFORMAT CLASS THAT CONTAINS TEXT LAYOUT INFORMATION, ‘ SET THE RECTANGLE STRUCTURE THAT SERVES AS THE PRINTING AREA.ĭim printAreaRec As New RectangleF(leftmargin, topmargin, printwidthInt, printheightInt) ‘ COMPUTE THE TOTAL LINES IN THE DOCUMENT BASED ON THE HEIGHT OF THE FONT AND ITS PRINTING AREA.ĭim linecountInt As Int32 = CInt(printheightInt / fnt.Height) ‘THE X AND Y COORDINATES OF THE UPPER LEFT CORNER OF THE PRINTING AREA RECTANGLE ‘ SET THE VARIABLES TO HOLD THE VALUES OF THE MARGIN THAT WILL WORK FOR ‘ SET THE VARIABLE THAT HOLD THE LIMITS OF THE PRINTING AREA RECTANGLE ‘SET THE FONT THAT YOU WANT TO USE FOR PRINTING.ĭim printheightInt, printwidthInt, leftmargin, topmargin As Int32 ‘AND IT CAN REFERECE THE SUBSEQUET PRINTPAGE EVENTS.

‘HOLD THE POSITION OF THE LAST PRINTED CHARACTER

Private Sub PrintDocument1_PrintPage(ByVal sender As System.Object, ByVal e As ) Handles PrintDocument1.PrintPage Now, double click the PrintDocument and do this following code for setting up the font,margin and the process where in the message in the Textbox will appear in the PrintDocument.

Add the PrintDocument and PrintPreviewDialog. Open Visual Basic 2008, create a new Window Application and do the Form just like this.

How to find a text box online