Public Function PrintPDF(ByVal PDFFile As String, ByVal PrinterName As String, ByVal Timeout As Integer) As Integer

            Dim pPrinterSettings As New System.Drawing.Printing.PrinterSettings
            Dim intTimeout As Integer = 1
            Dim pPrint As New Process()

            If PrinterName.Trim.Length = 0 Then
                PrinterName = (New System.Drawing.Printing.PrinterSettings).PrinterName
            End If

            pPrinterSettings.PrinterName = PrinterName
            pPrinterSettings.Copies = 2

            Try
                Dim param As String = String.Format("/n /t ""{0}"" ""{1}""", PDFFile, PrinterName)
                Dim starter As New ProcessStartInfo("AcroRd32.exe", param)
                
                pPrint.StartInfo.UseShellExecute = True
                pPrint.StartInfo.WindowStyle = ProcessWindowStyle.Hidden
                pPrint.StartInfo.CreateNoWindow = True
                pPrint.StartInfo.Verb = "print"

                pPrint.StartInfo = starter

                pPrint.Start()
                pPrint.CloseMainWindow()
                Do While Timeout > 0 AndAlso Not pPrint.HasExited
                    System.Threading.Thread.Sleep(1000)
                    Timeout -= 1
                Loop

                If Not pPrint.HasExited Then
                    Debug.Print("Killing process")
                    pPrint.Kill()
                End If

                Debug.WriteLine("Closing process")
                pPrint.Close()

            Catch ex As Exception
                MsgBox(ex.Message)

            End Try

            Return 0

        End Function

        Dim AcrobatPDFOCX As New AcroPDFLib.AcroPDF
        AcrobatPDFOCX.src = "fiches2011.pdf"
        AcrobatPDFOCX.printAll()