• elhacker.net: C# - Hackear una contrasena de un servidor

• https://stackoverflow.com/q/818704/1248295

File.Create(Settings.Default.directorioComprimidos)

tmp.CompressDirectory(folderToZip, @"test.7z");

tmp.CompressDirectory(folderToZip, File.Create(Settings.Default.directorioComprimidos));

// ...
using (FileStream fs = File.Create(@"C:\File.7z")) {
    tmp.CompressDirectory(folderToZip, fs);
}
// ...

FileStream fs = File.Create(@"C:\File.bin");
tmp.CompressDirectory(folderToZip, fs);
fs.Close();

''' ----------------------------------------------------------------------------------------------------
''' <summary>
''' Analyzes each pixel of the spcified image, counts all the pixels that are within the grayscale RGB range, 
''' then calculates a percentage of the total grayscale presence in the image.
''' </summary>
''' ----------------------------------------------------------------------------------------------------
''' <example> This is a code example.
''' <code>
''' For Each file As FileInfo In New DirectoryInfo("C:\Images").EnumerateFiles("*.gif", SearchOption.TopDirectoryOnly)
''' 
'''     Using img As Image = Image.FromFile(file.FullName)
'''         Dim percent As Double = GetGrayScalePixelPercentOfImage(img)
'''         Dim strFormat As String = String.Format("[{0,6:F2} %]: {1}", percent, file.Name)
''' 
'''         Console.WriteLine(strFormat)
'''     End Using
''' 
''' Next file
''' </code>
''' </example>
''' ----------------------------------------------------------------------------------------------------
''' <param name="img">
''' The source image.
''' </param>
''' ----------------------------------------------------------------------------------------------------
''' <returns>
''' The resulting percentage of grayscale pixels in the source image.
''' </returns>
''' ----------------------------------------------------------------------------------------------------
<DebuggerStepThrough>
Public Shared Function GetGrayScalePixelPercentOfImage(ByVal img As Image) As Double
    Return GetGrayScalePixelPercentOfImage(img, dimensionIndex:=0)
End Function
 
''' ----------------------------------------------------------------------------------------------------
''' <summary>
''' Analyzes each pixel of the spcified image, counts all the pixels that are within the grayscale RGB range, 
''' then calculates a percentage of the total grayscale presence in the image.
''' </summary>
''' ----------------------------------------------------------------------------------------------------
''' <example> This is a code example.
''' <code>
''' For Each file As FileInfo In New DirectoryInfo("C:\Images").EnumerateFiles("*.gif", SearchOption.TopDirectoryOnly)
''' 
'''     Using img As Image = Image.FromFile(file.FullName)
'''         Dim percent As Double = GetGrayScalePixelPercentOfImage(img, dimensionIndex:=0)
'''         Dim strFormat As String = String.Format("[{0,6:F2} %]: {1}", percent, file.Name)
''' 
'''         Console.WriteLine(strFormat)
'''     End Using
''' 
''' Next file
''' </code>
''' </example>
''' ----------------------------------------------------------------------------------------------------
''' <param name="img">
''' The source image.
''' </param>
''' ----------------------------------------------------------------------------------------------------
''' <returns>
''' The resulting percentage of grayscale pixels in the source image.
''' </returns>
''' ----------------------------------------------------------------------------------------------------
<DebuggerStepThrough>
Public Shared Function GetGrayScalePixelPercentOfImage(ByVal img As Image, ByVal dimensionIndex As Integer) As Double
 
    Select Case img.PixelFormat
 
        Case Imaging.PixelFormat.Format16bppGrayScale
            Return 100.0R
 
        Case Else
            Dim bmp As Bitmap = DirectCast(img, Bitmap)
 
            Dim pixelFormat As Imaging.PixelFormat = Imaging.PixelFormat.Format32bppArgb
            Dim bytesPerPixel As Integer = 4 ' PixelFormat.Format32bppArgb
            Dim pixelCount As Integer = (bmp.Width * bmp.Height)
 
            Dim framesGrayscalePercents As New List(Of Double)
 
            Dim dimensionCount As Integer = bmp.FrameDimensionsList.Count
            If (dimensionIndex > (dimensionCount - 1))Then
                Throw New IndexOutOfRangeException("The specified 'dimensionIndex' value is greater than the dimension count in the source image.")
            End If
 
            Dim frameDimension As New FrameDimension(bmp.FrameDimensionsList(dimensionIndex))
            Dim frameCount As Integer = bmp.GetFrameCount(frameDimension)
 
            For frameIndex As Integer = 0 To (frameCount - 1)
 
                bmp.SelectActiveFrame(frameDimension, frameIndex)
 
                ' Lock the bitmap bits.
                Dim rect As New Rectangle(Point.Empty, bmp.Size)
                Dim bmpData As BitmapData = bmp.LockBits(rect, ImageLockMode.ReadOnly, pixelFormat)
 
                ' Get the address of the first row.
                Dim address As IntPtr = bmpData.Scan0
 
                ' Declare an array to hold the bytes of the bitmap. 
                Dim numBytes As Integer = (Math.Abs(bmpData.Stride) * rect.Height)
                Dim rawImageData As Byte() = New Byte(numBytes - 1) {}
 
                ' Copy the RGB values into the array.
                Marshal.Copy(address, rawImageData, 0, numBytes)
 
                ' Unlock the bitmap bits.
                bmp.UnlockBits(bmpData)
 
                ' Iterate the pixels.
                Dim grayscalePixelCount As Long ' of current frame.
                For i As Integer = 0 To (rawImageData.Length - bytesPerPixel) Step bytesPerPixel
 
                    ' Dim alpha As Byte = rawImageData(i + 3)
                    Dim red As Byte = rawImageData(i + 2)
                    Dim green As Byte = rawImageData(i + 1)
                    Dim blue As Byte = rawImageData(i)
 
                    If (red = green) AndAlso (green = blue) AndAlso (blue = red) Then
                        grayscalePixelCount += 1
                    End If
 
                Next i
 
                Dim frameGrayscalePercent As Double = ((grayscalePixelCount / pixelCount) * 100)
                framesGrayscalePercents.Add(frameGrayscalePercent)
 
                grayscalePixelCount = 0
            Next frameIndex
 
            Return (framesGrayscalePercents.Sum() / frameCount)
 
    End Select
 
End Function

For Each file As FileInfo In New DirectoryInfo("C:\Images").EnumerateFiles("*.gif", SearchOption.TopDirectoryOnly)
 
    Using img As Image = Image.FromFile(file.FullName)
        Dim percent As Double = GetGrayScalePixelPercentOfImage(img)
        Dim strFormat As String = String.Format("[{0,6:F2} %]: {1}", percent, file.Name)
 
        Console.WriteLine(strFormat)
    End Using
 
Next file

• StackOverflow.com: How to determine if an Image is Grayscale in C# or VB.NET?

pd.PrintPage += new PrintPageEventHandler(pd_PrintPage);

• ¿Cómo imprimir documentos de texto de forma sencilla?

''' ----------------------------------------------------------------------------------------------------
''' <summary>
''' Prints a text document.
''' </summary>
''' ----------------------------------------------------------------------------------------------------
''' <seealso cref="IDisposable" />
''' ----------------------------------------------------------------------------------------------------
Public Class PrintDocumentBasic : Implements IDisposable
 
#Region " Private Fields "
 
    ''' ----------------------------------------------------------------------------------------------------
    ''' <summary>
    ''' A <see cref="StreamReader"/> instance that encapsulates the document data to be read and printed.
    ''' </summary>
    ''' ----------------------------------------------------------------------------------------------------
    Protected documentStream As StreamReader
 
    ''' ----------------------------------------------------------------------------------------------------
    ''' <summary>
    ''' The <see cref="System.Drawing.Printing.PrintDocument"/> component to print the document.
    ''' </summary>
    ''' ----------------------------------------------------------------------------------------------------
    Protected WithEvents PrintDocument As PrintDocument
 
    ''' ----------------------------------------------------------------------------------------------------
    ''' <summary>
    ''' The <see cref="System.Drawing.Printing.PrinterSettings"/> instance that specifies 
    ''' information about how a document is printed, including the printer that prints it.
    ''' </summary>
    ''' ----------------------------------------------------------------------------------------------------
    Protected PrinterSettings As PrinterSettings
 
#End Region
 
#Region " Properties "
 
    ''' ----------------------------------------------------------------------------------------------------
    ''' <summary>
    ''' Gets the document file path.
    ''' </summary>
    ''' ----------------------------------------------------------------------------------------------------
    ''' <value>
    ''' The document file path.
    ''' </value>
    ''' ----------------------------------------------------------------------------------------------------
    Public ReadOnly Property Filepath As String
 
    ''' ----------------------------------------------------------------------------------------------------
    ''' <summary>
    ''' Gets or sets the text encoding.
    ''' <para></para>
    ''' If no encoding is specified, the default system encoding will be used.
    ''' </summary>
    ''' ----------------------------------------------------------------------------------------------------
    ''' <value>
    ''' The text encoding.
    ''' </value>
    ''' ----------------------------------------------------------------------------------------------------
    Public Property Encoding As Encoding
 
    ''' ----------------------------------------------------------------------------------------------------
    ''' <summary>
    ''' Gets or sets the name of the printer device. 
    ''' <para></para>
    ''' If no printer name is specified, the default printer device will be used.
    ''' </summary>
    ''' ----------------------------------------------------------------------------------------------------
    ''' <value>
    ''' The name of the printer device.
    ''' </value>
    ''' ----------------------------------------------------------------------------------------------------
    Public Property PrinterName As String
        Get
            Return Me.printerNameB
        End Get
        Set(ByVal value As String)
            If Not String.IsNullOrEmpty(value) Then
                Me.PrinterSettings.PrinterName = Me.PrinterName
            Else
                ' Reset the 'PrinterSettings.PrinterName' property to avoid 'PrinterSettings.IsValid' return False.
                Me.PrinterSettings = New PrinterSettings()
            End If
        End Set
    End Property
    ''' ----------------------------------------------------------------------------------------------------
    ''' <summary>
    ''' ( Backing Field )
    ''' <para></para>
    ''' The name of the printer device.
    ''' </summary>
    ''' ----------------------------------------------------------------------------------------------------
    Private printerNameB As String
 
    ''' ----------------------------------------------------------------------------------------------------
    ''' <summary>
    ''' Gets or sets the text font.
    ''' <para></para>
    ''' Default font is: [Font: Name=Arial, Size=10, Units=3, GdiCharSet=1, GdiVerticalFont=False]
    ''' </summary>
    ''' ----------------------------------------------------------------------------------------------------
    ''' <value>
    ''' The text font.
    ''' </value>
    ''' ----------------------------------------------------------------------------------------------------
    Public Property Font As Font
 
    ''' ----------------------------------------------------------------------------------------------------
    ''' <summary>
    ''' Gets or sets the text color.
    ''' <para></para>
    ''' Default color is: <see cref="System.Drawing.Color.Black"/>
    ''' </summary>
    ''' ----------------------------------------------------------------------------------------------------
    ''' <value>
    ''' The text color.
    ''' </value>
    ''' ----------------------------------------------------------------------------------------------------
    Public Property Color As Color
 
#End Region
 
#Region " Constructors "
 
    ''' ----------------------------------------------------------------------------------------------------
    ''' <summary>
    ''' Prevents a default instance of the <see cref="PrintDocumentBasic"/> class from being created.
    ''' </summary>
    ''' ----------------------------------------------------------------------------------------------------
    <DebuggerNonUserCode>
    Private Sub New()
    End Sub
 
    ''' ----------------------------------------------------------------------------------------------------
    ''' <summary>
    ''' Initializes a new instance of the <see cref="PrintDocumentBasic"/> class.
    ''' </summary>
    ''' ----------------------------------------------------------------------------------------------------
    ''' <param name="filepath">
    ''' The document file path.
    ''' </param>
    ''' ----------------------------------------------------------------------------------------------------
    ''' <exception cref="FileNotFoundException">
    ''' </exception>
    ''' ----------------------------------------------------------------------------------------------------
    <DebuggerStepThrough>
    Public Sub New(ByVal filepath As String)
        Me.New(filepath, encoding:=Nothing)
    End Sub
 
    ''' ----------------------------------------------------------------------------------------------------
    ''' <summary>
    ''' Initializes a new instance of the <see cref="PrintDocumentBasic"/> class.
    ''' </summary>
    ''' ----------------------------------------------------------------------------------------------------
    ''' <param name="filepath">
    ''' The document file path.
    ''' </param>
    ''' 
    ''' <param name="encoding">
    ''' The text encoding.
    ''' </param>
    ''' ----------------------------------------------------------------------------------------------------
    ''' <exception cref="FileNotFoundException">
    ''' </exception>
    ''' ----------------------------------------------------------------------------------------------------
    <DebuggerStepThrough>
    Public Sub New(ByVal filepath As String, ByVal encoding As Encoding)
        Me.PrintDocument = New PrintDocument() With {
            .DocumentName = filepath
        }
 
        Me.Filepath = filepath
        Me.Color = Color.Black
 
        Me.PrinterName = ""
 
        If (encoding Is Nothing) Then
            Me.documentStream = New StreamReader(filepath, detectEncodingFromByteOrderMarks:=True)
            Me.Encoding = Me.documentStream.CurrentEncoding
        Else
            Me.Encoding = encoding
            Me.documentStream = New StreamReader(filepath, encoding, detectEncodingFromByteOrderMarks:=False)
        End If
    End Sub
 
#End Region
 
#Region " Public Methods "
 
    ''' ----------------------------------------------------------------------------------------------------
    ''' <summary>
    ''' Prints the current document.
    ''' </summary>
    ''' ----------------------------------------------------------------------------------------------------
    ''' <exception cref="IOException">
    ''' No printer device is installed.
    ''' </exception>
    ''' 
    ''' <exception cref="ArgumentException">
    ''' Printer name is not valid.
    ''' </exception>
    ''' ----------------------------------------------------------------------------------------------------
    <DebuggerStepThrough>
    Public Overridable Sub Print()
 
        If (PrinterSettings.InstalledPrinters.Count = 0) Then
            Throw New IOException("No printer device is installed.")
        End If
 
        If Not String.IsNullOrEmpty(Me.PrinterSettings.PrinterName) AndAlso Not (Me.PrinterSettings.IsValid) Then
            Throw New Exception("Printer name is not valid.")
        End If
 
        Me.PrintDocument.PrinterSettings = Me.PrinterSettings
        Me.PrintDocument.Print()
 
    End Sub
 
    ''' ----------------------------------------------------------------------------------------------------
    ''' <summary>
    ''' Cancels the print job for the current document.
    ''' </summary>
    ''' ----------------------------------------------------------------------------------------------------
    ''' <exception cref="Exception">
    ''' Print job not found.
    ''' </exception>
    ''' ----------------------------------------------------------------------------------------------------
    <DebuggerStepThrough>
    Public Overridable Sub CancelPrint()
 
        Dim scope As New ManagementScope("root\CIMV2")
        Dim query As New SelectQuery(String.Format("SELECT * FROM Win32_PrintJob WHERE Document = '{0}'", Me.PrintDocument.DocumentName))
        Dim options As New EnumerationOptions With {
                .ReturnImmediately = True,
                .Rewindable = False,
                .DirectRead = True,
                .EnumerateDeep = False
            }
 
        Using mos As New ManagementObjectSearcher(scope, query, options),
              moc As ManagementObjectCollection = mos.Get()
 
            If (moc.Count = 0) Then
                Throw New Exception("Print job not found.")
            End If
 
            For Each mo As ManagementObject In moc
                mo.Delete()
            Next mo
 
        End Using
 
    End Sub
 
#End Region
 
#Region " Event-Handlers "
 
    ''' ----------------------------------------------------------------------------------------------------
    ''' <summary>
    ''' Handles the <see cref="System.Drawing.Printing.PrintDocument.BeginPrint"/> event 
    ''' of the <see cref="PrintDocumentBasic.PrintDocument"/> component.
    ''' </summary>
    ''' ----------------------------------------------------------------------------------------------------
    ''' <param name="sender">
    ''' The source of the event.
    ''' </param>
    ''' 
    ''' <param name="e">
    ''' The <see cref="PrintEventArgs"/> instance containing the event data.
    ''' </param>
    ''' ----------------------------------------------------------------------------------------------------
    <DebuggerStepperBoundary>
    Protected Overridable Sub PrintDocument_BeginPrint(ByVal sender As Object, ByVal e As PrintEventArgs) Handles PrintDocument.BeginPrint
        If (Me.Font Is Nothing) Then
            Me.Font = New Font("Arial", 10.0F, FontStyle.Regular)
        End If
    End Sub
 
    ''' ----------------------------------------------------------------------------------------------------
    ''' <summary>
    ''' Handles the <see cref="System.Drawing.Printing.PrintDocument.QueryPageSettings"/> event 
    ''' of the <see cref="PrintDocumentBasic.PrintDocument"/> component.
    ''' </summary>
    ''' ----------------------------------------------------------------------------------------------------
    ''' <param name="sender">
    ''' The source of the event.
    ''' </param>
    ''' 
    ''' <param name="e">
    ''' The <see cref="QueryPageSettingsEventArgs"/> instance containing the event data.
    ''' </param>
    ''' ----------------------------------------------------------------------------------------------------
    <DebuggerStepperBoundary>
    Protected Overridable Sub PrintDocument_QueryPageSettings(ByVal sender As Object, ByVal e As QueryPageSettingsEventArgs) Handles PrintDocument.QueryPageSettings
 
    End Sub
 
    ''' ----------------------------------------------------------------------------------------------------
    ''' <summary>
    ''' Handles the <see cref="System.Drawing.Printing.PrintDocument.PrintPage"/> event 
    ''' of the <see cref="PrintDocumentBasic.PrintDocument"/> component.
    ''' </summary>
    ''' ----------------------------------------------------------------------------------------------------
    ''' <param name="sender">
    ''' The source of the event.
    ''' </param>
    ''' 
    ''' <param name="e">
    ''' The <see cref="PrintPageEventArgs"/> instance containing the event data.
    ''' </param>
    ''' ----------------------------------------------------------------------------------------------------
    <DebuggerStepperBoundary>
    Protected Overridable Sub PrintDocument_PrintPage(ByVal sender As Object, ByVal e As PrintPageEventArgs) Handles PrintDocument.PrintPage
 
        ' Page settings.
        Dim brush As New SolidBrush(Me.Color)
        Dim stringFormat As New StringFormat()
        Dim leftMargin As Single = e.MarginBounds.Left
        Dim topMargin As Single = e.MarginBounds.Top
 
        ' Calculate the number of lines per page.
        Dim linesPerPage As Single = (e.MarginBounds.Height / Me.Font.GetHeight(e.Graphics))
 
        ' Iterate over the file, printing each line.
        Dim line As String = Nothing
        Dim count As Integer
        While (count < linesPerPage)
            line = Me.documentStream.ReadLine()
            If (line Is Nothing) Then
                Exit While
            End If
            Dim yPos As Single = (topMargin + count * Me.Font.GetHeight(e.Graphics))
            e.Graphics.DrawString(line, Me.Font, brush, leftMargin, yPos, stringFormat)
            count += 1
        End While
 
        brush.Dispose()
        stringFormat.Dispose()
 
        ' If more lines exist, print another page.
        e.HasMorePages = (line IsNot Nothing)
 
    End Sub
 
    ''' ----------------------------------------------------------------------------------------------------
    ''' <summary>
    ''' Handles the <see cref="System.Drawing.Printing.PrintDocument.EndPrint"/> event 
    ''' of the <see cref="PrintDocumentBasic.PrintDocument"/> component.
    ''' </summary>
    ''' ----------------------------------------------------------------------------------------------------
    ''' <param name="sender">
    ''' The source of the event.
    ''' </param>
    ''' 
    ''' <param name="e">
    ''' The <see cref="PrintEventArgs"/> instance containing the event data.
    ''' </param>
    ''' ----------------------------------------------------------------------------------------------------
    <DebuggerStepperBoundary>
    Protected Overridable Sub PrintDocument_EndPrint(ByVal sender As Object, ByVal e As PrintEventArgs) Handles PrintDocument.EndPrint
 
    End Sub
 
#End Region
 
#Region " IDisposable Implementation "
 
    ''' ----------------------------------------------------------------------------------------------------
    ''' <summary>
    ''' Flag to detect redundant calls when disposing.
    ''' </summary>
    ''' ----------------------------------------------------------------------------------------------------
    Private isDisposed As Boolean = False
 
    ''' ----------------------------------------------------------------------------------------------------
    ''' <summary>
    ''' Releases all the resources used by this <see cref="PrintDocumentBasic"/> instance.
    ''' </summary>
    ''' ----------------------------------------------------------------------------------------------------
    <DebuggerStepThrough>
    Public Sub Dispose() Implements IDisposable.Dispose
        Me.Dispose(isDisposing:=True)
        GC.SuppressFinalize(obj:=Me)
    End Sub
 
    ''' ----------------------------------------------------------------------------------------------------
    ''' <summary>
    ''' Performs application-defined tasks associated with freeing, releasing, or resetting unmanaged resources.
    ''' </summary>
    ''' ----------------------------------------------------------------------------------------------------
    ''' <param name="isDisposing">
    ''' <see langword="True"/>  to release both managed and unmanaged resources; 
    ''' <see langword="False"/> to release only unmanaged resources.
    ''' </param>
    ''' ----------------------------------------------------------------------------------------------------
    <DebuggerStepThrough>
    Protected Overridable Sub Dispose(ByVal isDisposing As Boolean)
 
        If (Not Me.isDisposed) AndAlso (isDisposing) Then
            If (Me.PrintDocument IsNot Nothing) Then
                Me.PrintDocument.Dispose()
                Me.PrintDocument = Nothing
            End If
 
            If (Me.documentStream IsNot Nothing) Then
                Me.documentStream.Close()
                Me.documentStream = Nothing
            End If
 
            If (Me.Font IsNot Nothing) Then
                Me.Font.Dispose()
                Me.Font = Nothing
            End If
 
        End If
 
        Me.isDisposed = True
 
    End Sub
 
#End Region
 
End Class

Using printBasic As New PrintDocumentBasic("C:\Document.txt", Encoding.Default)
    printBasic.PrinterName = ""
    printBasic.Font = New Font("Arial", 10.0F, FontStyle.Regular)
    printBasic.Color = Color.Black
 
    printBasic.Print()
    ' printBasic.CancelPrint()
End Using

''' ----------------------------------------------------------------------------------------------------
''' <summary>
''' Prints a text document.
''' </summary>
''' ----------------------------------------------------------------------------------------------------
''' <seealso cref="IDisposable" />
''' ----------------------------------------------------------------------------------------------------
Public Class PrintDocumentExpert : Implements IDisposable
 
#Region " Private Fields "
 
    ''' ----------------------------------------------------------------------------------------------------
    ''' <summary>
    ''' The <see cref="System.Drawing.Printing.PrintDocument"/> component to print the document.
    ''' </summary>
    ''' ----------------------------------------------------------------------------------------------------
    Protected WithEvents PrintDocument As PrintDocument
 
#End Region
 
#Region " Properties "
 
    ''' ----------------------------------------------------------------------------------------------------
    ''' <summary>
    ''' Gets the document file path.
    ''' </summary>
    ''' ----------------------------------------------------------------------------------------------------
    ''' <value>
    ''' The document file path.
    ''' </value>
    ''' ----------------------------------------------------------------------------------------------------
    Public ReadOnly Property Filepath As String
 
    ''' ----------------------------------------------------------------------------------------------------
    ''' <summary>
    ''' Gets or sets the text encoding.
    ''' <para></para>
    ''' If no encoding is specified, the default system encoding will be used.
    ''' </summary>
    ''' ----------------------------------------------------------------------------------------------------
    ''' <value>
    ''' The text encoding.
    ''' </value>
    ''' ----------------------------------------------------------------------------------------------------
    Public Property Encoding As Encoding
 
    ''' ----------------------------------------------------------------------------------------------------
    ''' <summary>
    ''' Gets or sets the <see cref="StreamReader"/> instance that encapsulates the document data to be read and printed.
    ''' </summary>
    ''' ----------------------------------------------------------------------------------------------------
    ''' <value>
    ''' The <see cref="StreamReader"/> instance that encapsulates the document data to be read and printed.
    ''' </value>
    ''' ----------------------------------------------------------------------------------------------------
    Public ReadOnly Property DocumentStream As StreamReader
 
    ''' ----------------------------------------------------------------------------------------------------
    ''' <summary>
    ''' Gets or sets the <see cref="System.Drawing.Printing.PrinterSettings"/> instance that specifies 
    ''' information about how a document is printed, including the printer that prints it.
    ''' </summary>
    ''' ----------------------------------------------------------------------------------------------------
    ''' <value>
    ''' The <see cref="System.Drawing.Printing.PrinterSettings"/> instance that specifies 
    ''' information about how a document is printed, including the printer that prints it.
    ''' </value>
    ''' ----------------------------------------------------------------------------------------------------
    Public Property PrinterSettings As PrinterSettings
 
    ''' ----------------------------------------------------------------------------------------------------
    ''' <summary>
    ''' Gets or sets the <see cref="System.Drawing.Printing.PrintEventHandler"/> delegate method to handle the 
    ''' <see cref="System.Drawing.Printing.PrintDocument.BeginPrint"/> event.
    ''' </summary>
    ''' ----------------------------------------------------------------------------------------------------
    ''' <value>
    ''' The <see cref="System.Drawing.Printing.PrintEventHandler"/> delegate method to handle the 
    ''' <see cref="System.Drawing.Printing.PrintDocument.BeginPrint"/> event.
    ''' </value>
    ''' ----------------------------------------------------------------------------------------------------
    Public Property BeginPrintEventHandler As PrintEventHandler
 
    ''' ----------------------------------------------------------------------------------------------------
    ''' <summary>
    ''' Gets or sets the <see cref="System.Drawing.Printing.QueryPageSettingsEventHandler"/> delegate method to handle the 
    ''' <see cref="System.Drawing.Printing.PrintDocument.BeginPrint"/> event.
    ''' </summary>
    ''' ----------------------------------------------------------------------------------------------------
    ''' <value>
    ''' The <see cref="System.Drawing.Printing.PrintEventHandler"/> delegate method to handle the 
    ''' <see cref="System.Drawing.Printing.PrintDocument.QueryPageSettings"/> event.
    ''' </value>
    ''' ----------------------------------------------------------------------------------------------------
    Public Property QueryPageSettingsEventHandler As QueryPageSettingsEventHandler
 
    ''' ----------------------------------------------------------------------------------------------------
    ''' <summary>
    ''' Gets or sets the <see cref="System.Drawing.Printing.PrintPageEventHandler"/> delegate method to handle the 
    ''' <see cref="System.Drawing.Printing.PrintDocument.PrintPage"/> event.
    ''' </summary>
    ''' ----------------------------------------------------------------------------------------------------
    ''' <value>
    ''' The <see cref="System.Drawing.Printing.PrintPageEventHandler"/> delegate method to handle the 
    ''' <see cref="System.Drawing.Printing.PrintDocument.PrintPage"/> event.
    ''' </value>
    ''' ----------------------------------------------------------------------------------------------------
    Public Property PrintPageEventHandler As PrintPageEventHandler
 
    ''' ----------------------------------------------------------------------------------------------------
    ''' <summary>
    ''' Gets or sets the <see cref="System.Drawing.Printing.PrintEventHandler"/> delegate method to handle the 
    ''' <see cref="System.Drawing.Printing.PrintDocument.BeginPrint"/> event.
    ''' </summary>
    ''' ----------------------------------------------------------------------------------------------------
    ''' <value>
    ''' The <see cref="System.Drawing.Printing.PrintEventHandler"/> delegate method to handle the 
    ''' <see cref="System.Drawing.Printing.PrintDocument.EndPrint"/> event.
    ''' </value>
    ''' ----------------------------------------------------------------------------------------------------
    Public Property EndPrintEventHandler As PrintEventHandler
 
#End Region
 
#Region " Constructors "
 
    ''' ----------------------------------------------------------------------------------------------------
    ''' <summary>
    ''' Prevents a default instance of the <see cref="PrintDocumentExpert"/> class from being created.
    ''' </summary>
    ''' ----------------------------------------------------------------------------------------------------
    <DebuggerNonUserCode>
    Private Sub New()
    End Sub
 
    ''' ----------------------------------------------------------------------------------------------------
    ''' <summary>
    ''' Initializes a new instance of the <see cref="PrintDocumentExpert"/> class.
    ''' </summary>
    ''' ----------------------------------------------------------------------------------------------------
    ''' <param name="filepath">
    ''' The document file path.
    ''' </param>
    ''' ----------------------------------------------------------------------------------------------------
    ''' <exception cref="FileNotFoundException">
    ''' </exception>
    ''' ----------------------------------------------------------------------------------------------------
    <DebuggerStepThrough>
    Public Sub New(ByVal filepath As String)
        Me.New(filepath, encoding:=Nothing)
    End Sub
 
    ''' ----------------------------------------------------------------------------------------------------
    ''' <summary>
    ''' Initializes a new instance of the <see cref="PrintDocumentExpert"/> class.
    ''' </summary>
    ''' ----------------------------------------------------------------------------------------------------
    ''' <param name="filepath">
    ''' The document file path.
    ''' </param>
    ''' 
    ''' <param name="encoding">
    ''' The text encoding.
    ''' </param>
    ''' ----------------------------------------------------------------------------------------------------
    ''' <exception cref="FileNotFoundException">
    ''' </exception>
    ''' ----------------------------------------------------------------------------------------------------
    <DebuggerStepThrough>
    Public Sub New(ByVal filepath As String, ByVal encoding As Encoding)
        Me.PrintDocument = New PrintDocument() With {
            .DocumentName = filepath
        }
 
        Me.Filepath = filepath
 
        If (encoding Is Nothing) Then
            Me.DocumentStream = New StreamReader(filepath, detectEncodingFromByteOrderMarks:=True)
            Me.Encoding = Me.DocumentStream.CurrentEncoding
        Else
            Me.Encoding = encoding
            Me.DocumentStream = New StreamReader(filepath, encoding, detectEncodingFromByteOrderMarks:=False)
        End If
    End Sub
 
#End Region
 
#Region " Public Methods "
 
    ''' ----------------------------------------------------------------------------------------------------
    ''' <summary>
    ''' Prints the current document.
    ''' </summary>
    ''' ----------------------------------------------------------------------------------------------------
    ''' <exception cref="IOException">
    ''' No printer device is installed.
    ''' </exception>
    ''' 
    ''' <exception cref="Exception">
    ''' Printer name is not valid.
    ''' </exception>
    ''' 
    ''' <exception cref="Exception">
    ''' The 'PrintDocumentExpert.PrintPageEventHandler' property must be set before calling the 'PrintDocumentExpert.Print()' method.
    ''' </exception>
    ''' ----------------------------------------------------------------------------------------------------
    <DebuggerStepThrough>
    Public Overridable Sub Print()
 
        If (PrinterSettings.InstalledPrinters.Count = 0) Then
            Throw New IOException("No printer device is installed.")
        End If
 
        If Not String.IsNullOrEmpty(Me.PrinterSettings.PrinterName) AndAlso Not (Me.PrinterSettings.IsValid) Then
            Throw New Exception("Printer name is not valid.")
        End If
 
        If (Me.PrintPageEventHandler Is Nothing) Then
            Throw New Exception("The 'PrintDocumentExpert.PrintPageEventHandler' property must be set before calling the 'PrintDocumentExpert.Print()' method.")
        End If
 
        AddHandler Me.PrintDocument.BeginPrint, Me.BeginPrintEventHandler
        AddHandler Me.PrintDocument.QueryPageSettings, Me.QueryPageSettingsEventHandler
        AddHandler Me.PrintDocument.PrintPage, Me.PrintPageEventHandler
        AddHandler Me.PrintDocument.EndPrint, Me.EndPrintEventHandler
 
        Me.PrintDocument.PrinterSettings = Me.PrinterSettings
        Me.PrintDocument.Print()
 
        RemoveHandler Me.PrintDocument.BeginPrint, Me.BeginPrintEventHandler
        RemoveHandler Me.PrintDocument.QueryPageSettings, Me.QueryPageSettingsEventHandler
        RemoveHandler Me.PrintDocument.PrintPage, Me.PrintPageEventHandler
        RemoveHandler Me.PrintDocument.EndPrint, Me.EndPrintEventHandler
 
    End Sub
 
    ''' ----------------------------------------------------------------------------------------------------
    ''' <summary>
    ''' Cancels the print job for the current document.
    ''' </summary>
    ''' ----------------------------------------------------------------------------------------------------
    ''' <exception cref="Exception">
    ''' Print job not found.
    ''' </exception>
    ''' ----------------------------------------------------------------------------------------------------
    <DebuggerStepThrough>
    Public Overridable Sub CancelPrint()
 
        Dim scope As New ManagementScope("root\CIMV2")
        Dim query As New SelectQuery(String.Format("SELECT * FROM Win32_PrintJob WHERE Document = '{0}'", Me.PrintDocument.DocumentName))
        Dim options As New EnumerationOptions With {
                .ReturnImmediately = True,
                .Rewindable = False,
                .DirectRead = True,
                .EnumerateDeep = False
            }
 
        Using mos As New ManagementObjectSearcher(scope, query, options),
              moc As ManagementObjectCollection = mos.Get()
 
            If (moc.Count = 0) Then
                Throw New Exception("Print job not found.")
            End If
 
            For Each mo As ManagementObject In moc
                mo.Delete()
            Next mo
 
        End Using
 
    End Sub
 
#End Region
 
#Region " IDisposable Implementation "
 
    ''' ----------------------------------------------------------------------------------------------------
    ''' <summary>
    ''' Flag to detect redundant calls when disposing.
    ''' </summary>
    ''' ----------------------------------------------------------------------------------------------------
    Private isDisposed As Boolean = False
 
    ''' ----------------------------------------------------------------------------------------------------
    ''' <summary>
    ''' Releases all the resources used by this <see cref="PrintDocumentBasic"/> instance.
    ''' </summary>
    ''' ----------------------------------------------------------------------------------------------------
    <DebuggerStepThrough>
    Public Sub Dispose() Implements IDisposable.Dispose
        Me.Dispose(isDisposing:=True)
        GC.SuppressFinalize(obj:=Me)
    End Sub
 
    ''' ----------------------------------------------------------------------------------------------------
    ''' <summary>
    ''' Performs application-defined tasks associated with freeing, releasing, or resetting unmanaged resources.
    ''' </summary>
    ''' ----------------------------------------------------------------------------------------------------
    ''' <param name="isDisposing">
    ''' <see langword="True"/>  to release both managed and unmanaged resources; 
    ''' <see langword="False"/> to release only unmanaged resources.
    ''' </param>
    ''' ----------------------------------------------------------------------------------------------------
    <DebuggerStepThrough>
    Protected Overridable Sub Dispose(ByVal isDisposing As Boolean)
 
        If (Not Me.isDisposed) AndAlso (isDisposing) Then
 
            If (Me.PrintDocument IsNot Nothing) Then
                Me.PrintDocument.Dispose()
                Me.PrintDocument = Nothing
            End If
 
            If (Me.DocumentStream IsNot Nothing) Then
                Me.DocumentStream.Close()
            End If
 
        End If
 
        Me.isDisposed = True
 
    End Sub
 
#End Region
 
End Class

Public Module Module1
 
    Private printExpert As PrintDocumentExpert
 
    Public Sub Main()
 
        printExpert = New PrintDocumentExpert("C:\Document.txt", Encoding.Default)
 
        Using printExpert
            printExpert.PrinterSettings = New PrinterSettings With {
                    .PrinterName = "My Printer Name"
                }
 
            printExpert.BeginPrintEventHandler = AddressOf PrintDocument_BeginPrint
            printExpert.QueryPageSettingsEventHandler = AddressOf PrintDocument_QueryPageSettings
            printExpert.PrintPageEventHandler = AddressOf PrintDocument_PrintPage
            printExpert.EndPrintEventHandler = AddressOf PrintDocument_EndPrint
 
            printExpert.Print()
        End Using
 
    End Sub
 
    Public Sub PrintDocument_BeginPrint(ByVal sender As Object, ByVal e As PrintEventArgs)
    End Sub
 
    Public Sub PrintDocument_QueryPageSettings(ByVal sender As Object, ByVal e As QueryPageSettingsEventArgs)
    End Sub
 
    Public Sub PrintDocument_PrintPage(ByVal sender As Object, ByVal e As PrintPageEventArgs)
        ' Page settings.
        Dim font As New Font("Arial", 10.0F, FontStyle.Regular)
        Dim brush As New SolidBrush(Color.Green)
        Dim stringFormat As New StringFormat()
        Dim leftMargin As Single = e.MarginBounds.Left
        Dim topMargin As Single = e.MarginBounds.Top
 
        ' Calculate the number of lines per page.
        Dim linesPerPage As Single = (e.MarginBounds.Height / font.GetHeight(e.Graphics))
 
        ' Iterate over the file, printing each line.
        Dim line As String = Nothing
        Dim count As Integer
        While (count < linesPerPage)
            line = printExpert.DocumentStream.ReadLine()
            If (line Is Nothing) Then
                Exit While
            End If
            Dim yPos As Single = (topMargin + count * font.GetHeight(e.Graphics))
            e.Graphics.DrawString(line, font, brush, leftMargin, yPos, stringFormat)
            count += 1
        End While
 
        font.Dispose()
        brush.Dispose()
        stringFormat.Dispose()
 
        ' If more lines exist, print another page.
        e.HasMorePages = (line IsNot Nothing)
    End Sub
 
    Public Sub PrintDocument_EndPrint(ByVal sender As Object, ByVal e As PrintEventArgs)
    End Sub
 
End Module

Public Sub Main()
 
    Dim printExpert As PrintDocumentExpert = Nothing
 
    Dim beginPrintEventHandler As PrintEventHandler =
        Sub(ByVal sender As Object, ByVal e As PrintEventArgs)
        End Sub
 
    Dim queryPageSettingsEventHandler As QueryPageSettingsEventHandler =
        Sub(ByVal sender As Object, ByVal e As QueryPageSettingsEventArgs)
        End Sub
 
    Dim printPageEventHandler As PrintPageEventHandler =
    Sub(ByVal sender As Object, ByVal e As PrintPageEventArgs)
        ' Page settings.
        Dim font As New Font("Arial", 10.0F, FontStyle.Regular)
        Dim brush As New SolidBrush(Color.Green)
        Dim stringFormat As New StringFormat()
        Dim leftMargin As Single = e.MarginBounds.Left
        Dim topMargin As Single = e.MarginBounds.Top
 
        ' Calculate the number of lines per page.
        Dim linesPerPage As Single = (e.MarginBounds.Height / font.GetHeight(e.Graphics))
 
        ' Iterate over the file, printing each line.
        Dim line As String = Nothing
        Dim count As Integer
        While (count < linesPerPage)
            line = printExpert.DocumentStream.ReadLine()
            If (line Is Nothing) Then
                Exit While
            End If
            Dim yPos As Single = (topMargin + count * font.GetHeight(e.Graphics))
            e.Graphics.DrawString(line, font, brush, leftMargin, yPos, stringFormat)
            count += 1
        End While
 
        font.Dispose()
        brush.Dispose()
        stringFormat.Dispose()
 
        ' If more lines exist, print another page.
        e.HasMorePages = (line IsNot Nothing)
    End Sub
 
    Dim endPrintEventHandler As PrintEventHandler =
        Sub(ByVal sender As Object, ByVal e As PrintEventArgs)
        End Sub
 
    printExpert = New PrintDocumentExpert("C:\Document.txt", Encoding.Default)
    Using printExpert
        printExpert.PrinterSettings = New PrinterSettings With {
            .PrinterName = "My Printer Name"
        }
 
        printExpert.BeginPrintEventHandler = beginPrintEventHandler
        printExpert.QueryPageSettingsEventHandler = queryPageSettingsEventHandler
        printExpert.PrintPageEventHandler = printPageEventHandler
        printExpert.EndPrintEventHandler = endPrintEventHandler
 
        printExpert.Print()
    End Using
 
End Sub