Printpreview

Question

I have a file c:/Temp.txt i want a print preview in vb.net... On button click...can anyone tell me

Kirtan Patel · Answer

Private printerSettings As System.Drawing.Printing.PageSettings Private printingFont As Font Private streamReader As StreamReader Private filename As String Private Sub mnuPreview_Click ( ByVal sender As System.Object, ByVal e As System.EventArgs ) Handles mnuPreview.Click If Not filename Is Nothing Then Try streamReader = New StreamReader ( filename ) Try printingFont = New Font ( "Arial" , 10 ) Dim pd As New PrintDocument () AddHandler pd.PrintPage, AddressOf Me.pd_PrintPage If Not ( printerSettings Is Nothing ) Then pd.DefaultPageSettings = printerSettings End If With PrintPreviewDialog1 .Document = pd .ShowDialog () End With Finally streamReader.Close () End Try Catch ex As Exception MessageBox.Show ( ex.Message, "Print" , _ MessageBoxButtons.OK, MessageBoxIcon.Error, _ MessageBoxDefaultButton.Button1 ) End Try Else MessageBox.Show ( "Please select file first." , "Print" , _ MessageBoxButtons.OK, MessageBoxIcon.Error, _ MessageBoxDefaultButton.Button1 ) End If End Sub

Printpreview

Answers (1)