Private Sub BtnPrint_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles BtnPrint.Click
Dim appAccess As Microsoft.Office.Interop.Access.Application
appAccess = New Microsoft.Office.Interop.Access.Application
'appAccess.Visible = True
appAccess.Visible = False
appAccess.OpenCurrentDatabase("D:\Backup\N&S\Test.accdb", bstrPassword:="Test", Exclusive:=False)
appAccess.DoCmd.OpenReport(ReportName:="Product_Report", View:=Microsoft.Office.Interop.Access.AcView.acViewPreview, WindowMode:=AcWindowMode.acWindowNormal)
appAccess.DoCmd.PrintOut()
appAccess.Quit()
End Sub
Everything Works Fine
But i want to Save Current Report file as PDF Format What should i do?
Note: I'm using VB 2008, Office 2007 and i've installed SavetoPDF.exe