|
分類:[.NET 全般]
アクティブウィンドウの印刷を行いたくInernetで調べて下記のプログラムを見つけました。
しかし実行しますと用紙方向を横向きに設定しているのにアクティブウィンドウが縦位置で印刷されてしまいます。
何方か原因と解決方法をお知らせ頂けませんでしょうか。 よろしくお願い申し上げます。
'btnPrin(印刷)のClickイベントハンドラ
Private Sub btnPrin_Click(ByVal sender As System.Object, _
ByVal e As System.EventArgs) Handles btnPrint.Click
'PrintDocumentの作成
Dim objPrinterDocument As New Printing.PrintDocument
' ハードコピーオブジェクト
Dim objHardCopy As New NonHCopyNet.HardCopyClass
'PrintDocumentオブジェクトを作成します。
PrintDialog1.Document = New PrintDocument()
' 用紙方向を横向きに設定 （なぜか横向きに印刷されない）
objPrinterDocument.DefaultPageSettings.Landscape = True
'用紙サイズをＡ4に設定()
For Each psz As Printing.PaperSize In objPrinterDocument.PrinterSettings.PaperSizes
If psz.Kind = Printing.PaperKind.A4 Then
objPrinterDocument.DefaultPageSettings.PaperSize = psz
Exit For
End If
Next
'' 通常使うプリンタへのアクティブウィンドウのハードコピー
objHardCopy.HardCopy(True)
End Sub
|