How to Print the Text in a TextBox Using Visual Basic 2008 ..(Page Setup and Print Dialog)

0
522

This tutorial is all about How to Print the Text in a TextBox Using Visual Basic 2008 ..(Page Setup and Print Dialog).
This is the continuation of my previous tutorial which is How to Print the Text in a TextBox Using Visual Basic 2008. This time, I’m going to add the Page Setup and Print Dialog. In the Page Setup you can choose any setup that you wanted in your page and it contains selections such as the margin,sizes and etc.. While in the Print Dialog you can select the number of pages and copies that you want to print. And you can set up your printer too.

Let’s begin :

Open the project of How to Print the Text in a TextBox Using Visual Basic 2008 and add the two Buttons, PageSetupDialog and Print Dialog in the Form. Name the two Buttons, first is “btnpagesetup” and the other one is “btnprintdialog”. It will look like this.

firstform2

Double click the “Page Setup” Button and do this following code.

[vbnet] Private Sub btnpagesetup_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnpagesetup.Click
Try
With PageSetupDialog1
‘SET THE VALUE THAT INDICATES THE PRINT DOCUMENT TO GET PAGE SETTING FORM.
.Document = PrintDocument1
‘SET THE VALUE THAT INDICATES TO MODIFY THE PAGE SETTINGS
.PageSettings = PrintDocument1.DefaultPageSettings
End With
If PageSetupDialog1.ShowDialog = Windows.Forms.DialogResult.OK Then
‘SET THE DEFAULT SETTING FOR ALL THE PAGES TO BE PRINTED
PrintDocument1.DefaultPageSettings = PageSetupDialog1.PageSettings
End If
Catch ex As Exception
MsgBox(ex.Message)
End Try
End Sub
[/vbnet]

After that, go to the design views, double click the “Print Dialog” Button and do this following code.

[vbnet] Private Sub btnprintdialog_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnprintdialog.Click
Try
If PrintDialog1.ShowDialog = Windows.Forms.DialogResult.OK Then ‘CHECKING THE DIALOG RESULT
PrintDocument1.Print() ‘START THE PRINTING PROCESS
End If
Catch ex As Exception
MsgBox(ex.Message)
End Try
End Sub
[/vbnet]

Complete source code is included and you can download it.
DOWNLOAD HERE

 

 

Readers might read also:

 

 

Facebook Comments

LEAVE A REPLY

Please enter your comment!
Please enter your name here

This site uses Akismet to reduce spam. Learn how your comment data is processed.