Send Files Directly to Printer instead of using ShellExecute

Ok, environment info: Windows 7 x64, Visual Studio 2010 Ultimate, Winforms Application, VB.Net., Windows Account is in Administrators group.

My application prints multiple files that are in lstView control. I accomplish the printing by starting a process using the PrintTo verb with ShellExecute. I call a sub routine in a loop to pause the print queue, start the print process with the verb PrintTo, wait for the print queue to receive the job, then resume the print queue, wait for the print queue to have 0 jobs, then loop.

If possible, I would prefer to be able to send the files (.pdf, .doc, and .docx) directly to the printer without having to use such a clumsy method such as ShellExecute with the PrintTo verb, but I could not figure that out either. See below for the exact code I am using:

    Private Sub subPrintFile(strFilePath As String)
        Dim printProcess As New Process
        Dim psi As New ProcessStartInfo
        Dim lps As New LocalPrintServer
        Dim pq As PrintQueue
        Dim dpq As PrintQueue
        Dim strPrinterName As String = cboPrinters.Text

        pq = New PrintQueue(lps, strPrinterName, PrintSystemDesiredAccess.AdministratePrinter)
        dpq = lps.GetPrintQueue(strPrinterName)
        dpq = lps.GetPrintQueue(strPrinterName)

        'We first need to ensure that there is not a current job in the queue
        Do Until dpq.NumberOfJobs = 0
            Application.DoEvents()
        Loop

        'now we need to pause the print queue so we can wait to receive the job
        pq.Pause()

        'Now send the print job to the printer via ShellExecute
        With psi
            .Arguments = """" & strPrinterName & """"
            .CreateNoWindow = True
            .WindowStyle = ProcessWindowStyle.Hidden
            .UseShellExecute = True
            .Verb = "PrintTo"
            .FileName = strFilePath
        End With
        printProcess = Process.Start(psi)

        'now wait for the printer to receive the job
        Do Until dpq.NumberOfJobs > 0
            Application.DoEvents()
        Loop

        'printer has received it so unpause
        pq.Resume()
    End Sub