home *** CD-ROM | disk | FTP | other *** search
- Public Class Form1
- Inherits System.Windows.Forms.Form
-
- #Region " Windows Form Designer generated code "
-
- Public Sub New()
- MyBase.New()
-
- 'This call is required by the Windows Form Designer.
- InitializeComponent()
-
- 'Add any initialization after the InitializeComponent() call
-
- End Sub
-
- 'Form overrides dispose to clean up the component list.
- Protected Overloads Overrides Sub Dispose(ByVal disposing As Boolean)
- If disposing Then
- If Not (components Is Nothing) Then
- components.Dispose()
- End If
- End If
- MyBase.Dispose(disposing)
- End Sub
- Friend WithEvents PrintDocument1 As System.Drawing.Printing.PrintDocument
- Friend WithEvents PrintPreviewDialog1 As System.Windows.Forms.PrintPreviewDialog
- Friend WithEvents Button1 As System.Windows.Forms.Button
-
- 'Required by the Windows Form Designer
- Private components As System.ComponentModel.Container
-
- '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.Resources.ResourceManager = New System.Resources.ResourceManager(GetType(Form1))
- Me.PrintDocument1 = New System.Drawing.Printing.PrintDocument()
- Me.PrintPreviewDialog1 = New System.Windows.Forms.PrintPreviewDialog()
- Me.Button1 = New System.Windows.Forms.Button()
- Me.PrintPreviewDialog1.SuspendLayout()
- Me.SuspendLayout()
- '
- 'PrintPreviewDialog1
- '
- Me.PrintPreviewDialog1.AutoScrollMargin = New System.Drawing.Size(0, 0)
- Me.PrintPreviewDialog1.AutoScrollMinSize = New System.Drawing.Size(0, 0)
- Me.PrintPreviewDialog1.ClientSize = New System.Drawing.Size(400, 300)
- Me.PrintPreviewDialog1.Document = Me.PrintDocument1
- Me.PrintPreviewDialog1.Enabled = True
- Me.PrintPreviewDialog1.Icon = CType(resources.GetObject("PrintPreviewDialog1.Icon"), System.Drawing.Icon)
- Me.PrintPreviewDialog1.Location = New System.Drawing.Point(44, 44)
- Me.PrintPreviewDialog1.MaximumSize = New System.Drawing.Size(0, 0)
- Me.PrintPreviewDialog1.Name = "PrintPreviewDialog1"
- Me.PrintPreviewDialog1.Opacity = 1
- Me.PrintPreviewDialog1.UseAntiAlias = True
- Me.PrintPreviewDialog1.Visible = False
- '
- 'Button1
- '
- Me.Button1.Location = New System.Drawing.Point(88, 88)
- Me.Button1.Name = "Button1"
- Me.Button1.Size = New System.Drawing.Size(136, 48)
- Me.Button1.TabIndex = 0
- Me.Button1.Text = "Button1"
- '
- 'Form1
- '
- Me.AutoScaleBaseSize = New System.Drawing.Size(5, 13)
- Me.ClientSize = New System.Drawing.Size(292, 273)
- Me.Controls.AddRange(New System.Windows.Forms.Control() {Me.Button1})
- Me.Name = "Form1"
- Me.Text = "Form1"
- Me.PrintPreviewDialog1.ResumeLayout(False)
- Me.ResumeLayout(False)
-
- End Sub
-
- #End Region
-
- Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
- PrintPreviewDialog1.ShowDialog()
-
- End Sub
-
- Private Sub PrintDocument1_PrintPage(ByVal sender As Object, ByVal e As System.Drawing.Printing.PrintPageEventArgs) Handles PrintDocument1.PrintPage
- e.Graphics.DrawLine(Drawing.Pens.Red, e.MarginBounds.Left, e.MarginBounds.Top, e.MarginBounds.Right, e.MarginBounds.Bottom)
- End Sub
- End Class
-