I have used the example off the web for printing a textfile to a network printer.<BR><BR>This does not seem to work, i dont think it can find the network printer by default.<BR>does anybody know what i need to be doing.<BR><BR>Private Sub Button2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button2.Click<BR><BR> Try<BR> streamToPrint = New StreamReader("test.txt")<BR> Try<BR> printFont = New Font("Arial", 10)<BR> Dim pd As PrintDocument = New PrintDocument<BR> AddHandler pd.PrintPage, AddressOf Me.pd_PrintPage<BR> pd.Print()<BR> Finally<BR> streamToPrint.Close()<BR> End Try<BR> Catch ex As Exception<BR> lblMessage.Text = ex.Message<BR> End Try<BR> End Sub<BR> &#039;////////<BR> Private Sub pd_PrintPage(ByVal sender As Object, ByVal ev As System.Drawing.Printing.PrintPageEventArgs)<BR> Dim linesPerPage As Single = 0<BR> Dim yPos As Single = 0<BR> Dim count As Integer = 0<BR> Dim leftMargin As Single = ev.MarginBounds.Left<BR> Dim topMargin As Single = ev.MarginBounds.Top<BR> Dim line As String = Nothing<BR><BR> &#039;Calculate the number of lines per page<BR> linesPerPage = ev.MarginBounds.Height / printFont.GetHeight(ev.Graphics)<BR><BR> &#039;Print each line of the file<BR> While count &#060; linesPerPage<BR> line = streamToPrint.ReadLine()<BR> If line Is Nothing Then<BR> Exit While<BR> End If<BR> yPos = topMargin + count * printFont.GetHeight(ev.Graphics)<BR> ev.Graphics.DrawString(line, printFont, Brushes.Black, leftMargin, yPos, New StringFormat)<BR> count += 1<BR> End While<BR><BR> &#039;If more lines exist, print another page<BR> If Not (line Is Nothing) Then<BR> ev.HasMorePages = True<BR> Else<BR> ev.HasMorePages = False<BR> End If<BR> End Sub<BR><BR><BR><BR>thanks<BR>adam