Imports System.Drawing.Printing

Public Class Form1

Dim WithEvents mPrintDocument As New PrintDocument

Dim mPrintBitMap As Bitmap

​

Private Sub Form1_Load(sender As Object, e As EventArgs) Handles MyBase.Load

    Dim prtdoc As New PrintDocument

    Dim strDefaultPrinter As String = prtdoc.PrinterSettings.PrinterName

    MsgBox(strDefaultPrinter)

End Sub

Private Sub Button1_Click(sender As Object, e As EventArgs) Handles Button1.Click

    ' Copy the form's image into a bitmap.

    mPrintBitMap = New Bitmap(Me.Width, Me.Width)

    Dim lRect As System.Drawing.Rectangle

    lRect.Width = Me.Width

    lRect.Height = Me.Width

    Me.DrawToBitmap(mPrintBitMap, lRect)

    ' Make a PrintDocument and print.

    mPrintDocument = New PrintDocument

    mPrintDocument.DefaultPageSettings.Landscape = True

    'mPrintDocument.Print() 'send the document to the printer

    Me.PrintPreviewDialog1.Document = mPrintDocument

    PrintPreviewDialog1.ShowDialog()

End Sub

Private Sub m_PrintDocument_PrintPage(ByVal sender As Object, ByVal e As System.Drawing.Printing.PrintPageEventArgs) Handles mPrintDocument.PrintPage

    ' Draw the image centered.

    Dim lWidth As Integer = e.MarginBounds.X + (e.MarginBounds.Width - mPrintBitMap.Width) \ 2

    Dim lHeight As Integer = e.MarginBounds.Y + (e.MarginBounds.Height - mPrintBitMap.Height) \ 2

    e.Graphics.DrawImage(mPrintBitMap, lWidth, lHeight)

    ' There's only one page.

    e.HasMorePages = False

End Sub

​

Private Sub Button2_Click(sender As Object, e As EventArgs) Handles Button2.Click

    Application.Exit()

End Sub

End Class