Stampare Report con PDF

' serve per non far visualizzare il database MDB



On Error GoTo Macro2_Err
' const acViewReport = 5

' const acHidden = 1

' const acExportQualityScreen = 1

' const acOutputReport = 3

DoCmd.OpenReport "Amministratori", acViewReport, "", "", acHidden
DoCmd.OutputTo acOutputReport, "Amministratori", "PDFFormat(*.pdf)", "Amministratori.pdf", True, "", 0, acExportQualityScreen
DoCmd.quit

Macro2_Exit:
Exit Function

Macro2_Err:
MsgBox Error$
Resume Macro2_Exit




' visual basic 2008


objAccess = CreateObject("Access.Application")

objAccess.OpenCurrentDatabase(PathDataBase, False, bstrPassword:="iw0blpiw0fnb")

PrnModulo = "Amministratori"
Const acViewReport = 5
Const acHidden = 1
Const acExportQualityScreen = 1
Const acOutputReport = 3
Dim MFiltro As String = ""

objAccess.DoCmd.OpenReport(PrnModulo, acViewReport, MFiltro, "", acHidden)
objAccess.DoCmd.OutputTo(acOutputReport, PrnModulo, "PDFFormat(*.pdf)", PrnModulo & ".pdf", True, "", 0, acExportQualityScreen)
MFiltro = ""
objAccess.DoCmd.quit()
objAccess = Nothing