Print text file : Text File Print « GUI « VB.Net Tutorial

Home
VB.Net Tutorial
1.Language Basics
2.Data Type
3.Operator
4.Statements
5.Date Time
6.Class Module
7.Development
8.Collections
9.Generics
10.Attributes
11.Event
12.LINQ
13.Stream File
14.GUI
15.GUI Applications
16.Windows Presentation Foundation
17.2D Graphics
18.I18N Internationlization
19.Reflection
20.Regular Expressions
21.Security
22.Socket Network
23.Thread
24.Windows
25.XML
26.Database ADO.net
27.Design Patterns
VB.Net
VB.Net by API
VB.Net Tutorial » GUI » Text File Print 
14.86.1.Print text file
Print text file
Imports System.IO
Imports System.Text.Encoding
Imports System.Drawing
Imports System.Drawing.Printing
Imports System.Windows.Forms

public class PrintTextFile
   public Shared Sub Main
        Application.Run(New Form1)
   End Sub
End class


Public Class Form1
  Inherits System.Windows.Forms.Form
  Public Sub New()
    MyBase.New()

    InitializeComponent()

  End Sub

  Private components As System.ComponentModel.IContainer

  Friend WithEvents PrintDialog1 As System.Windows.Forms.PrintDialog
  Friend WithEvents PrintPreviewDialog1 As System.Windows.Forms.PrintPreviewDialog
  Friend WithEvents PageSetupDialog1 As System.Windows.Forms.PageSetupDialog
  Friend WithEvents MainMenu1 As System.Windows.Forms.MainMenu
  Friend WithEvents MenuItem1 As System.Windows.Forms.MenuItem
  Friend WithEvents MenuItem5 As System.Windows.Forms.MenuItem
  Friend WithEvents mnuPreview As System.Windows.Forms.MenuItem
  Friend WithEvents mnuPrint As System.Windows.Forms.MenuItem
  Friend WithEvents mnuExit As System.Windows.Forms.MenuItem
  Friend WithEvents MenuItem3 As System.Windows.Forms.MenuItem
  Friend WithEvents Panel1 As System.Windows.Forms.Panel
  Friend WithEvents TextBox1 As System.Windows.Forms.TextBox
  Friend WithEvents OpenFileDialog1 As System.Windows.Forms.OpenFileDialog
  Friend WithEvents mnuOpen As System.Windows.Forms.MenuItem
  Friend WithEvents mnuPageSetup As System.Windows.Forms.MenuItem
  <System.Diagnostics.DebuggerStepThrough()Private Sub InitializeComponent()
        Me.PrintDialog1 = New System.Windows.Forms.PrintDialog()
        Me.PrintPreviewDialog1 = New System.Windows.Forms.PrintPreviewDialog()
        Me.PageSetupDialog1 = New System.Windows.Forms.PageSetupDialog()
        Me.MainMenu1 = New System.Windows.Forms.MainMenu()
        Me.MenuItem1 = New System.Windows.Forms.MenuItem()
        Me.mnuOpen = New System.Windows.Forms.MenuItem()
        Me.MenuItem3 = New System.Windows.Forms.MenuItem()
        Me.mnuPageSetup = New System.Windows.Forms.MenuItem()
        Me.mnuPreview = New System.Windows.Forms.MenuItem()
        Me.mnuPrint = New System.Windows.Forms.MenuItem()
        Me.MenuItem5 = New System.Windows.Forms.MenuItem()
        Me.mnuExit = New System.Windows.Forms.MenuItem()
        Me.Panel1 = New System.Windows.Forms.Panel()
        Me.TextBox1 = New System.Windows.Forms.TextBox()
        Me.OpenFileDialog1 = New System.Windows.Forms.OpenFileDialog()
        Me.Panel1.SuspendLayout()
        Me.SuspendLayout()
        '
        'PrintPreviewDialog1
        '
        Me.PrintPreviewDialog1.AutoScrollMargin = New System.Drawing.Size(00)
        Me.PrintPreviewDialog1.AutoScrollMinSize = New System.Drawing.Size(00)
        Me.PrintPreviewDialog1.ClientSize = New System.Drawing.Size(400300)
        Me.PrintPreviewDialog1.Enabled = True
        Me.PrintPreviewDialog1.Location = New System.Drawing.Point(37517)
        Me.PrintPreviewDialog1.MaximumSize = New System.Drawing.Size(00)
        Me.PrintPreviewDialog1.Name = "PrintPreviewDialog1"
        Me.PrintPreviewDialog1.Opacity = 1
        Me.PrintPreviewDialog1.TransparencyKey = System.Drawing.Color.Empty
        Me.PrintPreviewDialog1.Visible = False
        '
        'MainMenu1
        '
        Me.MainMenu1.MenuItems.AddRange(New System.Windows.Forms.MenuItem() {Me.MenuItem1})
        '
        'MenuItem1
        '
        Me.MenuItem1.Index = 0
        Me.MenuItem1.MenuItems.AddRange(New System.Windows.Forms.MenuItem() {Me.mnuOpen, Me.MenuItem3, Me.mnuPageSetup, Me.mnuPreview, Me.mnuPrint, Me.MenuItem5, Me.mnuExit})
        Me.MenuItem1.Text = "&File"
        '
        'mnuOpen
        '
        Me.mnuOpen.Index = 0
        Me.mnuOpen.Text = "Open"
        '
        'MenuItem3
        '
        Me.MenuItem3.Index = 1
        Me.MenuItem3.Text = "-"
        '
        'mnuPageSetup
        '
        Me.mnuPageSetup.Index = 2
        Me.mnuPageSetup.Text = "Page Setup"
        '
        'mnuPreview
        '
        Me.mnuPreview.Index = 3
        Me.mnuPreview.Text = "Print Preview"
        '
        'mnuPrint
        '
        Me.mnuPrint.Index = 4
        Me.mnuPrint.Text = "Print"
        '
        'MenuItem5
        '
        Me.MenuItem5.Index = 5
        Me.MenuItem5.Text = "-"
        '
        'mnuExit
        '
        Me.mnuExit.Index = 6
        Me.mnuExit.Text = "Exit"
        '
        'Panel1
        '
        Me.Panel1.Controls.AddRange(New System.Windows.Forms.Control() {Me.TextBox1})
        Me.Panel1.Dock = System.Windows.Forms.DockStyle.Fill
        Me.Panel1.DockPadding.All = 5
        Me.Panel1.Name = "Panel1"
        Me.Panel1.Size = New System.Drawing.Size(563325)
        Me.Panel1.TabIndex = 0
        '
        'TextBox1
        '
        Me.TextBox1.Dock = System.Windows.Forms.DockStyle.Fill
        Me.TextBox1.Location = New System.Drawing.Point(65)
        Me.TextBox1.Multiline = True
        Me.TextBox1.Name = "TextBox1"
        Me.TextBox1.Size = New System.Drawing.Size(551315)
        Me.TextBox1.TabIndex = 0
        Me.TextBox1.Text = ""
        '
        'Form1
        '
        Me.AutoScaleBaseSize = New System.Drawing.Size(614)
        Me.ClientSize = New System.Drawing.Size(563325)
        Me.Controls.AddRange(New System.Windows.Forms.Control() {Me.Panel1})
        Me.Menu = Me.MainMenu1
        Me.Name = "Form1"
        Me.StartPosition = System.Windows.Forms.FormStartPosition.CenterScreen
        Me.Text = "Dialog Application"
        Me.Panel1.ResumeLayout(False)
        Me.ResumeLayout(False)

    End Sub

  Private printerSettings As System.Drawing.Printing.PageSettings
  Private printingFont As Font
  Private streamReader As StreamReader
  Private filename As String

  Private Sub mnuPageSetup_Click(ByVal sender As System.Object, ByVal e As System.EventArgsHandles mnuPageSetup.Click
    With PageSetupDialog1
      Try
        If (printerSettings Is NothingThen
          printerSettings = New System.Drawing.Printing.PageSettings()
        End If
        .AllowMargins = True
        .AllowOrientation = True
        .AllowPaper = True
        .AllowPrinter = True
        .PageSettings = printerSettings
        .ShowDialog()
      Catch ex As Exception
        MessageBox.Show(ex.StackTrace.ToString()"Print", _
            MessageBoxButtons.OK, MessageBoxIcon.Error, _
            MessageBoxDefaultButton.Button1)
      End Try
    End With
  End Sub

  Private Sub mnuPreview_Click(ByVal sender As System.Object, ByVal e As System.EventArgsHandles mnuPreview.Click
    If Not filename Is Nothing Then
      Try
        streamReader = New StreamReader(filename)
        Try
          printingFont = New Font("Arial"10)
          Dim pd As New PrintDocument()
          AddHandler pd.PrintPage, AddressOf Me.pd_PrintPage

          If Not (printerSettings Is NothingThen
            pd.DefaultPageSettings = printerSettings
          End If

          With PrintPreviewDialog1

            .Document = pd
            .ShowDialog()
          End With

        Finally
          streamReader.Close()
        End Try
      Catch ex As Exception
        MessageBox.Show(ex.Message, "Print", _
            MessageBoxButtons.OK, MessageBoxIcon.Error, _
            MessageBoxDefaultButton.Button1)
      End Try
    Else
      MessageBox.Show("Please select file first.""Print", _
            MessageBoxButtons.OK, MessageBoxIcon.Error, _
            MessageBoxDefaultButton.Button1)
    End If
  End Sub

  Private Sub mnuPrint_Click(ByVal sender As System.Object, ByVal e As System.EventArgsHandles mnuPrint.Click
    If Not filename Is Nothing Then
      Try
        streamReader = New StreamReader(filename)
        Try
          printingFont = New Font("Arial"10)
          Dim pd As New PrintDocument()
          AddHandler pd.PrintPage, AddressOf Me.pd_PrintPage

          If Not (printerSettings Is NothingThen
            pd.DefaultPageSettings = printerSettings
          End If

          With PrintDialog1
            .Document = pd
            .AllowPrintToFile = True
            .AllowSelection = True
            .AllowSomePages = True

            If .ShowDialog() = DialogResult.OK Then
              pd.Print()
            End If
          End With
        Finally
          streamReader.Close()
        End Try
      Catch ex As Exception
        MessageBox.Show(ex.StackTrace.ToString, "Print", _
            MessageBoxButtons.OK, MessageBoxIcon.Error, _
            MessageBoxDefaultButton.Button1)
      End Try
    Else
      MessageBox.Show("Please select file first.""Print", _
            MessageBoxButtons.OK, MessageBoxIcon.Error, _
            MessageBoxDefaultButton.Button1)
    End If
  End Sub

  Private Sub pd_PrintPage(ByVal sender As Object, ByVal ev As PrintPageEventArgs)
    Dim linesPerPage As Single = 0
    Dim yPos As Single = 0
    Dim count As Integer = 0
    Dim leftMargin As Single = ev.MarginBounds.Left
    Dim topMargin As Single = ev.MarginBounds.Top
    Dim line As String = Nothing

    linesPerPage = ev.MarginBounds.Height / printingFont.GetHeight(ev.Graphics)

    While count < linesPerPage
      line = streamReader.ReadLine()
      If line Is Nothing Then
        Exit While
      End If
      yPos = topMargin + count * printingFont.GetHeight(ev.Graphics)
      ev.Graphics.DrawString(line, printingFont, Brushes.Black, leftMargin, yPos, New StringFormat())
      count += 1
    End While

    If Not (line Is NothingThen
      ev.HasMorePages = True
    Else
      ev.HasMorePages = False
    End If
  End Sub

  Private Sub mnuOpen_Click(ByVal sender As System.Object, ByVal e As System.EventArgsHandles mnuOpen.Click
    Dim sr As StreamReader = Nothing
    Dim fs As FileStream = Nothing

    With OpenFileDialog1
      .InitialDirectory = "C:\"
      .Filter = "Text files (*.txt)|*.txt"
      .FilterIndex = 2
      .RestoreDirectory = True
      .ShowHelp = True
      .Title = "Open File Dialog"

      If .ShowDialog() = DialogResult.OK Then
        Me.Text = .FileName
        filename = .FileName

        TextBox1.Text = ""

        Try
          fs = New FileStream(.FileName, FileMode.Open, FileAccess.Read)
          sr = New StreamReader(fs, System.Text.Encoding.Default)

          TextBox1.Text = sr.ReadToEnd()
        Catch ex As Exception
          MessageBox.Show(ex.StackTrace.ToString(), "Print", _
            MessageBoxButtons.OK, MessageBoxIcon.Error, _
            MessageBoxDefaultButton.Button1)
        Finally
          If Not (sr Is Nothing) Then
            sr.Close()
          End If

          If Not (fs Is Nothing) Then
            fs.Close()
          End If
        End Try
      End If
    End With
  End Sub
End Class
14.86.Text File Print
14.86.1.Print text filePrint text file
www.java2java.com | Contact Us
Copyright 2009 - 12 Demo Source and Support. All rights reserved.
All other trademarks are property of their respective owners.