Private Sub Button1_Click_2(ByVal sender As System.Object, ByVal e As _
  System.EventArgs) Handles Button1.Click
        Dim p As New System.Diagnostics.ProcessStartInfo
        p.Verb = "print"
        p.WindowStyle = ProcessWindowStyle.Hidden
        p.FileName = Application.StartupPath & "DST.pdf"
        p.UseShellExecute = True
        System.Diagnostics.Process.Start(p)
    End Sub