VB.Net Tutorial/2D Graphics/Image Print
Image print
<source lang="vbnet">Imports System.Drawing Imports System.Drawing.Drawing2D Imports System.Windows.Forms Imports System.Math
public class PrintImage
public Shared Sub Main Application.Run(New Form1) End Sub
End class Public Class Form1
Private Sub PrintDocument1_PrintPage(ByVal sender As System.Object, ByVal e As System.Drawing.Printing.PrintPageEventArgs) e.Graphics.DrawImage(PictureBox1.Image, e.Graphics.VisibleClipBounds) e.HasMorePages = False End Sub Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click Try Dim pd As New System.Drawing.Printing.PrintDocument() AddHandler pd.PrintPage, AddressOf Me.PrintDocument1_PrintPage pd.Print() Catch ex As Exception MessageBox.Show("An error occurred while printing", ex.ToString()) End Try End Sub
End Class <Global.Microsoft.VisualBasic.rupilerServices.DesignerGenerated()> _ Partial Class Form1
Inherits System.Windows.Forms.Form "Form overrides dispose to clean up the component list. <System.Diagnostics.DebuggerNonUserCode()> _ Protected Overrides Sub Dispose(ByVal disposing As Boolean) If disposing AndAlso components IsNot Nothing Then components.Dispose() End If MyBase.Dispose(disposing) End Sub "Required by the Windows Form Designer Private components As System.ruponentModel.IContainer "NOTE: The following procedure is required by the Windows Form Designer "It can be modified using the Windows Form Designer. "Do not modify it using the code editor. <System.Diagnostics.DebuggerStepThrough()> _ Private Sub InitializeComponent() Dim resources As System.ruponentModel.ruponentResourceManager = New System.ruponentModel.ruponentResourceManager(GetType(Form1)) Me.PrintDocument1 = New System.Drawing.Printing.PrintDocument Me.PictureBox1 = New System.Windows.Forms.PictureBox Me.Button1 = New System.Windows.Forms.Button CType(Me.PictureBox1, System.ruponentModel.ISupportInitialize).BeginInit() Me.SuspendLayout() " "PictureBox1 " Me.PictureBox1.Image = System.Drawing.Image.FromFile("yourfile.jpg") Me.PictureBox1.Location = New System.Drawing.Point(12, 12) Me.PictureBox1.Name = "PictureBox1" Me.PictureBox1.Size = New System.Drawing.Size(417, 194) Me.PictureBox1.TabIndex = 0 Me.PictureBox1.TabStop = False " "Button1 " Me.Button1.Location = New System.Drawing.Point(185, 212) Me.Button1.Name = "Button1" Me.Button1.Size = New System.Drawing.Size(75, 23) Me.Button1.TabIndex = 1 Me.Button1.Text = "Print" Me.Button1.UseVisualStyleBackColor = True " "Form1 " Me.AutoScaleDimensions = New System.Drawing.SizeF(6.0!, 12.0!) Me.AutoScaleMode = System.Windows.Forms.AutoScaleMode.Font Me.ClientSize = New System.Drawing.Size(441, 247) Me.Controls.Add(Me.Button1) Me.Controls.Add(Me.PictureBox1) CType(Me.PictureBox1, System.ruponentModel.ISupportInitialize).EndInit() Me.ResumeLayout(False) End Sub Friend WithEvents PrintDocument1 As System.Drawing.Printing.PrintDocument Friend WithEvents PictureBox1 As System.Windows.Forms.PictureBox Friend WithEvents Button1 As System.Windows.Forms.Button
End Class</source>