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

    'プリンタ設定情報をダイアログにセット
    PrintDialog1.PrinterSettings = ps

    'PrintDialog表示する
    If PrintDialog1.ShowDialog = Windows.Forms.DialogResult.OK Then
        If PrintDialog1.PrintToFile Then
            MessageBox.Show("ファイルへ出力します")
        Else
            MessageBox.Show("印刷します")
        End If
    End If
End Sub