IMPRIMIR FICHERO

Public Sub impresionaDoc(RutaFichero As String, NombreFichero as String, impresora As String)
        Try
            Dim intProcessID As Integer
            intProcessID = Shell(RutaFichero  & " """ & NombreFichero & """" & " """ & impresora & """", AppWinStyle.NormalFocus, False)


        Catch ex As Exception
            MessageBox.Show(ex.Message)
        End Try
End Sub