Private Sub PrintToolStripMenuItem_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles PrintToolStripMenuItem.Click
Try
Dim streamToPrint As StreamReader
Dim printFont As Font
Dim screencapturer As New ScreenshotCapture.ScreenCapture
Dim randomGenerator As New System.Random(2000)
Dim filePath As String = Application.StartupPath + "\tempScreenShoot" + randomGenerator.Next().ToString + ".jpg"
screencapturer.CaptureWindowToFile(
Me.Handle, filePath, System.Drawing.Imaging.ImageFormat.Jpeg)
streamToPrint =
New StreamReader(filePath)
printFont =
New Font("Arial", 10)
Dim pd As New Printing.PrintDocument
Dim myDialog As New PrintDialog
myDialog.Document = pd
If myDialog.ShowDialog() = DialogResult.OK Then
pd.PrinterSettings = myDialog.PrinterSettings
pd.Print()
End If
Dim fileToBeDeleted As New System.IO.FileInfo(filePath)
fileToBeDeleted.Delete()
Catch ex As Exception
ExceptionManager.Publish(ex)
End Try
End Sub
this id the code i created for ptinting.it is creating jpg file and then finally printing.i am not able to figure out why it is printing the blank page.
can anybody tell me what is the problem in the code?
n hw can i achieve this task