PrintDocumentAdvanced Class

Public Class PrintDocumentAdvanced
	Implements IDisposable

Dim instance As PrintDocumentAdvanced

public ref class PrintDocumentAdvanced : IDisposable

type PrintDocumentAdvanced = 
    class
        interface IDisposable
    end

No code example is currently available or this language may not be supported.

Public Module Module1

    Private printExpert As PrintDocumentAdvanced

    Public Sub Main()

        printExpert = New PrintDocumentAdvanced("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

No code example is currently available or this language may not be supported.

No code example is currently available or this language may not be supported.

No code example is currently available or this language may not be supported.

No code example is currently available or this language may not be supported.