VB.NET, C#, PowerShell Tipsサイト

Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
        Dim ps As New Printing.PrinterSettings

        '指定可能なページ範囲を2～10ページに設定する
        ps.MinimumPage = 2
        ps.MaximumPage = 10

        'ダイアログに表示される初期値を設定する
        ps.FromPage = 2
        ps.ToPage = 2

        'プリンターの設定をする
        PrintDialog1.PrinterSettings = ps

        '[ページ指定]を有効にする
        PrintDialog1.AllowSomePages = True

        'ダイアログを表示する
        If PrintDialog1.ShowDialog = DialogResult.OK Then
            Dim FromPage As Integer
            Dim ToPage As Integer

            '印刷開始ページを取得
            FromPage = PrintDialog1.PrinterSettings.FromPage()
            '印刷終了ページを取得
            ToPage = PrintDialog1.PrinterSettings.ToPage()

            'ここに印刷処理を記述
        End If
End Sub