VB2008でフォーム印刷をするとき、横向きで印刷する方法を教えてください

Question

VB2008で横長のフォームを,下記のようにPrintFormで印刷しようとすると、横が切れて印刷されてしまいます。
本などを調べたのですが、横向きでの印刷方法がわかりません。どなたかご教授いただけませんか？
よろしくお願いします。

   Private Sub Btn_Print_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Btn_Print.Click

        Me.PrintForm1.PrintAction = Printing.PrintAction.PrintToPrinter
        Me.PrintForm1.Print(Me, PowerPacks.Printing.PrintForm.PrintOption.FullWindow)

        Me.Refresh()
    End Sub

Answer 1

こんな？

Private Sub Btn_Print_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Btn_Print.Click
    AddHandler Me.PrintForm1.QueryPageSettings, AddressOf QueryPageSetting

    Me.PrintForm1.PrintAction = Printing.PrintAction.PrintToPrinter
    Me.PrintForm1.Print(Me, PowerPacks.Printing.PrintForm.PrintOption.FullWindow)
End Sub

Private Sub QueryPageSetting(ByVal sender As Object, ByVal e As System.Drawing.Printing.QueryPageSettingsEventArgs)
    e.PageSettings.Landscape = True
End Sub

Answer 2

こんにちは、フォーラムオペレーターの高橋春樹です。

gekkaさん、こんにちは。
具体的なサンプルコードを投稿して頂き有難うございました。

Mys-TSさん、初めまして。
MSDNフォーラムのご利用ありがとうございます。
PageSettings.Landscape=Trueで横向き印刷出来そうですね。

PageSettings.Landscape プロパティ
http://msdn.microsoft.com/ja-jp/library/system.drawing.printing.pagesettings.landscape.aspx

今回gekkaさんの投稿が有用なものと思いましたので、
勝手ながら、回答マークを付けさせて頂きました。
もし、問題が解決していない、不適切と思いましたら、回答マークを外す事も可能です。

今後ともMSDNフォーラムをよろしくお願いします。

---

マイクロソフト株式会社 フォーラム オペレータ 高橋春樹