Visual Basic

Private Sub PrtTest_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles PrtTest.Click
        Try
            Dim _fs As FileStream
            _fs = New FileStream("C:\Components\Test-Page1.txt",     FileMode.Open, FileAccess.Read)

            _Printstream = New StreamReader(_fs)

            Dim pd As New PrintDocument()

            AddHandler pd.PrintPage, AddressOf Me.pd_PrintPage
            pd.PrinterSettings.PrinterName = _printername
            PrintPreviewDialog2.Document = pd
            PrintPreviewDialog2.ShowDialog()
            If pd.PrinterSettings.IsValid Then
                pd.Print()
            Else
                MessageBox.Show("Printer is invalid.")
            End If

        Catch ex As Exception
            MessageBox.Show("An error occurred while printing", _
                 ex.ToString())
        End Try
    End Sub

Private Sub pd_PrintPage(ByVal sender As Object, ByVal ev As PrintPageEventArgs)

        Dim numChars As Integer
        Dim numLines As Integer
        Dim stringForPage As String
        Dim strFormat As New StringFormat
        Dim PrintFont As New Font("Arial", 10, FontStyle.Regular)
        Dim PrintString As String = _Printstream.ReadToEnd
        Dim rectDraw As New RectangleF( _
          ev.MarginBounds.Left, ev.MarginBounds.Top, _
          ev.MarginBounds.Width, ev.MarginBounds.Height)

        Dim sizeMeasure As New SizeF(ev.MarginBounds.Width, _
          ev.MarginBounds.Height - PrintFont.GetHeight(ev.Graphics)) 
        'PrintString = _Printstream.ReadToEnd()
        strFormat.Trimming = StringTrimming.Word 

        ev.Graphics.MeasureString(PrintString, PrintFont, _
          sizeMeasure, strFormat, numChars, numLines)

        stringForPage = PrintString.Substring(0, numChars) 
        ev.Graphics.DrawString(stringForPage, PrintFont, _
          Brushes.Black, rectDraw, strFormat)

        If numChars < PrintString.Length Then           
            PrintString = PrintString.Substring(numChars) 
            ev.HasMorePages = True
        Else
            ev.HasMorePages = False         

        End If

    End Sub 

<br />
SQLStr = "Select * into Temp_Delete_Oldest from " & First & " Select * into Temp_Delete_Newest from " & Second & " <br />
DELETE Temp_Delete_Oldest FROM Temp_Delete_Oldest INNER JOIN Temp_Delete_Newest ON Temp_Delete_Newest.Fullpath = Temp_Delete_Oldest.Fullpath"<br />