編集

名前

ホームページ(ブログ、Twitterなど)のURL (省略可)

本文

よろしくお願い致します。
プログラム内で印刷設定をA4,横にして印刷した時に印刷領域を取得したいの
ですが印刷設定の変更が反映されていないようです。
以下コード
        Dim pPaperSz As System.Drawing.Printing.PaperKind
        Dim pkSize As System.Drawing.Printing.PaperSize
        Dim setPaperSize As Boolean = False

Debug.Print(PrintDocument3.DefaultPageSettings.PaperSize.Height.ToString & " " & PrintDocument3.DefaultPageSettings.PaperSize.Width.ToString)
        Debug.Print(PrintDocument3.DefaultPageSettings.PrintableArea.Height.ToString & " " & PrintDocument3.DefaultPageSettings.PrintableArea.Width.ToString)

'### 印刷用紙サイズ設定 #######################################################
        pPaperSz = Printing.PaperKind.A4                   'A4 サイズの定数
        'サポートされている用紙サイズの一覧を取得
        For Each pkSize In PrintDocument3.PrinterSettings.PaperSizes
            '指定の用紙サイズがサポートされているか
            If pkSize.Kind = pPaperSz Then
                '指定の用紙サイズが見つかったら用紙サイズを設定する
                PrintDocument3.DefaultPageSettings.PaperSize = pkSize
                setPaperSize = True     '設定完了のフラグ
            End If
        Next
        '確認
        If setPaperSize = False Then
            MessageBox.Show("指定の用紙サイズが設定できませんでした。")
            Exit Sub
        End If

'### 用紙方向横向き／縦向きで印刷 ################################################
        PrintDocument3.DefaultPageSettings.Landscape = True      '横向き

Debug.Print(PrintDocument3.DefaultPageSettings.PaperSize.Height.ToString & " " & PrintDocument3.DefaultPageSettings.PaperSize.Width.ToString)
        Debug.Print(PrintDocument3.DefaultPageSettings.PrintableArea.Height.ToString & " " & PrintDocument3.DefaultPageSettings.PrintableArea.Width.ToString)
ここまで
印刷自体はA4,横で出来ているのですがDebugで表示した印刷領域が変更を
反映していないようで変更前と後で同じ数字になってしまします。
御教授お願い致します。

←解決時は質問者本人がここをチェックしてください。

用紙サイズ、向きを変えた後に印刷領域を取得するには？ (ID:147747)