Dim id As ListViewItem
           Dim idCollection As ListView.CheckedListViewItemCollection = lv.CheckedItems
          For Each id In idCollection
                If id.Checked = True Then
                   Try
                       Dim ps As Process = New Process()
                        Try
                           ps.StartInfo = New ProcessStartInfo()
                           ps.StartInfo.FileName = (AppDomain.CurrentDomain.BaseDirectory + "\Cartelle\Atti_Autorizzativi\" & TextBox1.Text & "\" & id.SubItems(6).Text & ".pdf")
                           ps.StartInfo.CreateNoWindow = False
                           ps.StartInfo.UseShellExecute = True
                           ps.StartInfo.WindowStyle = ProcessWindowStyle.Minimized
                           ps.StartInfo.Verb = "print"
                           ps.StartInfo.WindowStyle = ProcessWindowStyle.Hidden
                           ps.Start()
                       Catch ex As Exception
                        End Try
                       ps.Close()
                    Catch ex As Exception
                   End Try
                End If
           Next