Printing in landscape mode

[cpopham]

I tried posting earlier and it never showed up..

I have a simple program to print a text file. I need to know how to change the page settings to landscape if it is not already in ladnscape mode. I do not want to use a dialog to do it and this appears the only way you can do it. I just need it to spit out the print in landscape orientation. Why is this so hard to do for something that should be easy.

[Herfried K. Wagner [MVP]]

* "=?Utf-8?B?Y3BvcGhhbQ= =?=" <an*******@disc ussions.microso ft.com> scripsit:

I have a simple program to print a text file. I need to know how to
change the page settings to landscape if it is not already in ladnscape
mode. I do not want to use a dialog to do it and this appears the only
way you can do it. I just need it to spit out the print in landscape
orientation. Why is this so hard to do for something that should be
easy.

Sample taken from MSDN documentation:

\\\
Public Sub Printing()
Try
streamToPrint = New StreamReader(fi lePath)
Try
printFont = New Font("Arial", 10)
Dim pd As New PrintDocument()
AddHandler pd.PrintPage, AddressOf pd_PrintPage
pd.PrinterSetti ngs.PrinterName = printer
' Set the page orientation to landscape.
pd.DefaultPageS ettings.Landsca pe = True
pd.Print()
Finally
streamToPrint.C lose()
End Try
Catch ex As Exception
MessageBox.Show (ex.Message)
End Try
End Sub
///

--
Herfried K. Wagner [MVP]
<URL:http://dotnet.mvps.org/>

[Les Smith]

Try this line

PrintDoc.Defaul tPageSettings.L andscape = True

HTH

Les Smith

http://www.KnowDotNet.com

Articles, add-ins, free code.

"cpopham" <an*******@disc ussions.microso ft.com> wrote in message
news:E1******** *************** ***********@mic rosoft.com...

I tried posting earlier and it never showed up...

I have a simple program to print a text file. I need to know how to

change the page settings to landscape if it is not already in ladnscape
mode. I do not want to use a dialog to do it and this appears the only way
you can do it. I just need it to spit out the print in landscape
orientation. Why is this so hard to do for something that should be easy.

[Herfried K. Wagner [MVP]]

* "=?Utf-8?B?Y3BvcGhhbQ= =?=" <an*******@disc ussions.microso ft.com> scripsit:

PrintDocument.D efaultPageSetti ngs.Landscape = True

I have tried that in several different ways and it compiles fine, but
it does not change the page settings from portrait to landscape. It is
as if the DefaultPageSett ings are just there for you to check the page
settings.

I have not tested it, but try to set the orientation before the
'PrintPage' handler is called for the page.

--
Herfried K. Wagner [MVP]
<URL:http://dotnet.mvps.org/>

[Les Smith]

You need to call this code before you start the printing process. i.e.,
before the PrintPage event gets called.
Les]

"cpopham" <an*******@disc ussions.microso ft.com> wrote in message
news:90******** *************** ***********@mic rosoft.com...

That one part:

PrintDocument.D efaultPageSetti ngs.Landscape = True

I have tried that in several different ways and it compiles fine, but it does not change the page settings from portrait to landscape. It is as if
the DefaultPageSett ings are just there for you to check the page settings.
I am using version 2003, I do not know if that makes a difference.

This is my code so far:

Private Sub AuditorPrintDoc ument_PrintPage (ByVal sender As Object, _
ByVal e As System.Drawing. Printing.PrintP ageEventArgs) _ Handles AuditorPrintDoc ument.PrintPage

Dim R As Rectangle
Dim PicW, PicH, PicL, PicT As Integer

With AuditorPrintDoc ument.DefaultPa geSettings
.Landscape = True
End With

PicW = Me.SizePictureB ox.Width
PicH = Me.SizePictureB ox.Height

With AuditorPrintDoc ument.DefaultPa geSettings.Pape rSize
PicL = (.Width - PicW) / 2 - 30
End With

PicT = 20

R = New Rectangle(PicL, PicT, PicW, PicH)
e.Graphics.Draw Image(SizePictu reBox.Image, R)

End Sub

[Ron Allen]

Add a handler for OnQueryPageSett ings and set the Landscape property there.
Quick ex.
Private Sub
AuditorPrintDoc ument_OnQueryPa geSettings(Quer yPageSettingsEv entArgs e)
base.OnQueryPag eSettings(e)
e.PageSettings. Landscape = True
End Sub

Ron Allen
"cpopham" <an*******@disc ussions.microso ft.com> wrote in message
news:90******** *************** ***********@mic rosoft.com...

That one part:

PrintDocument.D efaultPageSetti ngs.Landscape = True

I have tried that in several different ways and it compiles fine, but it does not change the page settings from portrait to landscape. It is as if
the DefaultPageSett ings are just there for you to check the page settings.
I am using version 2003, I do not know if that makes a difference.

This is my code so far:

Private Sub AuditorPrintDoc ument_PrintPage (ByVal sender As Object, _
ByVal e As System.Drawing. Printing.PrintP ageEventArgs) _ Handles AuditorPrintDoc ument.PrintPage

Dim R As Rectangle
Dim PicW, PicH, PicL, PicT As Integer

With AuditorPrintDoc ument.DefaultPa geSettings
.Landscape = True
End With

PicW = Me.SizePictureB ox.Width
PicH = Me.SizePictureB ox.Height

With AuditorPrintDoc ument.DefaultPa geSettings.Pape rSize
PicL = (.Width - PicW) / 2 - 30
End With

PicT = 20

R = New Rectangle(PicL, PicT, PicW, PicH)
e.Graphics.Draw Image(SizePictu reBox.Image, R)

End Sub