Stampa Pdf con oggetto Access

'***************************

' STAMPA UN REPORT IN pdf

'***************************




Public Sub StampaPDF(ByVal NomeReport As String, ByVal MFiltro As String, ByVal NumeroFattura As String)
'***************************

' STAMPA UN REPORT IN pdf

'***************************

On Error GoTo Errore
Dim X As String = Now
X = Replace(X, ":", "")
X = Replace(X, "/", "")
X = Replace(X, ",", "")
X = Replace(X, ".", "")
X = Replace(X, " ", "")


' 30 ottobre 2011 - ho scoperto perche' non scrivera


TypeConn.MForzaPDFPrinter = True




System.Windows.Forms.Cursor.Current = System.Windows.Forms.Cursors.WaitCursor
objAccess = CreateObject("Access.Application")
objAccess.OpenCurrentDatabase(TypeConn.PathDataBase, False, bstrPassWord:="iw0blpiw0fnb")

If Dir(TypeConn.MyDirPath & "\Doc", FileAttribute.Directory) = "" Then
MkDir(TypeConn.MyDirPath & "\Doc")
End If


PrnModulo = TypeConn.MyDirPath & "\Doc\" & NomeReport


Const acViewReport = 5
Const acHidden = False '1
Const acExportQualityScreen = 1
Const acOutputReport = 3

SettaPrinter("Adobe PDF")

objAccess.DoCmd.OpenReport(NomeReport, acViewReport, "", MFiltro, acHidden)
objAccess.DoCmd.OutputTo(acOutputReport, NomeReport, "PDFFormat(*.pdf)", PrnModulo & NumeroFattura & X & ".pdf", True, , 0, acExportQualityScreen)




MFiltro = ""
objAccess.DoCmd.quit()
objAccess = Nothing
System.Windows.Forms.Cursor.Current = System.Windows.Forms.Cursors.Default

'**********************************************************

' apre il PDF

'**********************************************************

If TypeConn.MForzaPDFPrinter = True Then

Process.Start(PrnModulo & NumeroFattura & X & ".pdf")


End If

'**********************************************************



Exit Sub
Errore:
' objAccess.visible = True

objAccess.DoCmd.printout(printrange:=Microsoft.Office.Interop.Access.AcPrintRange.acPrintAll)

System.Windows.Forms.Cursor.Current = System.Windows.Forms.Cursors.Default
MsgBox(Err.Description)

End Sub