Ciao,
pensavo che stampare un pdf fosse una cosa banale, ma evidentemente mi sbagliavo.
Ho creato questa funzione:
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
Stampa, ma si attiva per un secondo l'Adobe Acrobat Reder ... fa veramente ribrezzo.
Ho cercato poi di utilizzare la libreria AcroPDFLib
Dim AcrobatPDFOCX As New AcroPDFLib.AcroPDF
AcrobatPDFOCX.src = "fiches2011.pdf"
AcrobatPDFOCX.printAll()
Questo è l'errore che genera quando tenta di istanziare l'oggetto:
Recupero della class factory COM per il componente con CLSID {CA8A9780-280D-11CF-A24D-444553540000} non riuscito a causa del seguente errore: 80040154.
Se qualcuno ha una dritta ... (anche due magari ;)).
Grazie
