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

        '部数を設定する
        ps.Copies = 2

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

        'ダイアログを表示する
        If PrintDialog1.ShowDialog = DialogResult.OK Then
            'ここに印刷処理を記述
        End If
End Sub