We value your feedback.
Take our survey and automatically be enter to win anyone of the following:
Yeti Cooler, Amazon eGift Card, and Movie eGift Card!
Private Sub btnimg_Click() sDirectoryName = BrowseDirectory("Find and select where to export the Image file.") txtFileLocation = sDirectoryName strRpt = "MonthlyCostByGroupings" DoCmd.OpenReport strRpt, acViewPreview Dim grpApp As Object Set grpApp = Reports!MonthlyCostByGroupings.OLEUnbound0.Object grpApp.Export txtFileLocation & "\Chart.jpg" Reports!MonthlyCostByGroupings.OLEUnbound0.Locked = False Reports!MonthlyCostByGroupings.OLEUnbound0.Enabled = True Set grpApp = Nothing Reports!MonthlyCostByGroupings.Action = acOLEClose End Sub
Join the community of 500,000 technology professionals and ask your questions.