PDF - Convertire Report Access in PDF

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

' STAMPA UN REPORT IN pdf

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

On Error GoTo Errore
Dim PrnModulo As String
Dim PathDataBase As String
PathDataBase = PercorsoAziendale & "\" & DataAziendale
Set ObjAccess = CreateObject("Access.Application")
ObjAccess.OpenCurrentDatabase PathDataBase, False
PrnModulo = "VVRMAnomalo"
Const acViewReport = 5
Const acHidden = 1
Const acExportQualityScreen = 1
Const acOutputReport = 3
ObjAccess.DoCmd.OpenReport PrnModulo, acViewReport, "", "", acHidden
ObjAccess.DoCmd.OutputTo acOutputReport, PrnModulo, "PDFFormat(*.pdf)", PrnModulo & ".pdf", True, , 0, acExportQualityScreen

ObjAccess.DoCmd.Quit
Set ObjAccess = Nothing

Exit Sub
Errore:

MsgBox (Err.Description)

End Sub



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




Public Sub ScrviPDFDaAccess(ByVal PrnNomeReportModulo As String)

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

' STAMPA UN REPORT IN pdf

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

On Error GoTo Errore
Dim PathDataBase As String
PathDataBase = PercorsoAziendale & "\" & DataAziendale
Set ObjAccess = CreateObject("Access.Application")
ObjAccess.OpenCurrentDatabase PathDataBase, False
PrnNomeReportModulo = "VVRMAnomalo"
Const acViewReport = 5
Const acHidden = 1
Const acExportQualityScreen = 1
Const acOutputReport = 3
ObjAccess.DoCmd.OpenReport PrnNomeReportModulo, acViewReport, "", "", acHidden
ObjAccess.DoCmd.OutputTo acOutputReport, PrnNomeReportModulo, "PDFFormat(*.pdf)", PrnModulo & ".pdf", True, , 0, acExportQualityScreen

ObjAccess.DoCmd.Quit
Set ObjAccess = Nothing

Exit Sub
Errore:

MsgBox (Err.Description)

End Sub