can't print in landscape

[tupolev]

Hi,

I have a pricelist that I want to print in landscape. I also tried to set
the pagesettings in the printpage event but still no effect. What is wrong
?????
private sub btn1_click

PrintDocument1.DefaultPageSettings.Landscape = True

PrintDocument1.Print()

Private Sub PrintDocument1_PrintPage(ByVal sender As System.Object, ByVal e
As System.Drawing.Printing.PrintPageEventArgs) Handles
PrintDocument1.PrintPage

streamToPrint = New StreamReader(filename)

Dim line As String

line = streamToPrint.ReadLine()

Dim d As New Font("Arial", 12)

Dim f As New SolidBrush(Color.Black)

Dim i As Integer = 60

Dim tel As Int16

tel = 0

While (line <> Nothing)

e.Graphics.DrawString(line, d, f, 60, i)

line = streamToPrint.ReadLine()

i = i + 15

End While

streamToPrint.Close()

End Sub

Tupolev