印刷ダイアログが効きません

環境/言語:[VB.NET]
分類:[.NET]

こんにちは！
はじめてメールします。

．ＮＥＴで作成した画面をハードコピーする際に、
印刷ダイアログを出して、用紙をA4横に設定してから印刷しようとしているのですが、
画面上では設定できても、印刷結果はA4縦で出てきてしまいます。
（もともとの印刷設定でA4縦にしています）

何か書き方にコツがあるのでしょうか？
ご存知でしたら教えてください。

ソースは以下のとおりです。

Public Sub PrintForm(ByVal frm As Form)
　'印刷ダイアログ表示
　Dim result As DialogResult
　'プリンターセッティングを設定する
　PrintDialog1.PrinterSettings = New Printing.PrinterSettings
　'印刷ダイアログボックスを表示して印刷する
　result = PrintDialog1.ShowDialog
　If result = DialogResult.Cancel Then
　　Exit Sub
　End If

　'フォームのイメージを取得する
　frm.Refresh()
　'フォームのイメージを取得する
　CaptureScreen(frm)
　'フォームのイメージを印刷する
　Dim PrintDocument1 As New System.Drawing.Printing.PrintDocument
　AddHandlerPrintDocument1.PrintPage,AddressOfPrintDocument1_PrintPage
　PrintDocument1.Print()
End Sub

ご自分のコードをよくご覧になれば、すぐに分かると思います。PrintDocumentのPrinterSettingsが設定されていませんので...。

DOBON.NET .NET Tips - プリンタ選択ダイアログを表示して印刷する
http://dobon.net/vb/dotnet/graphics/printdialog.html

■No14783に返信(管理人さんの記事)
> ご自分のコードをよくご覧になれば、すぐに分かると思います。PrintDocumentのPrinterSettingsが設定されていませんので...。
>
> DOBON.NET .NET Tips - プリンタ選択ダイアログを表示して印刷する
> http://dobon.net/vb/dotnet/graphics/printdialog.html
>

管理人様
お返事が遅くなってすみません。

早速ソースを見直しましたら、上手く出るようになりました。
どうもありがとうございました。