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