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

Private Sub mnuPreview_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles 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 Nothing) Then
            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