-
-
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
