PDF-Bericht Per Mail senden und als Datei ablegen Microsoft Access. Jul 20, 2014 Hi there, I would like to render a particular access Report in my MDB as a PDF - either by automation from VB6 or from Access VBA. I have downloaded the. Wir nutzen in diesem Artikel die ab Access 2007 angebotenen. Finden Sie die entsprechenden Informationen im Artikel Bericht als PDF speichern (siehe Access.

Using Access 2007 SP3, I have a report. When printed to a printer, and in the print preview, the report looks fine.

Well within margins, proper output, no extra pages.everything is fine. When outputting this same report to a PDF, the report appears zoomed, and the content is clipped. No extra pages are printed as if I've gone beyond the margins. Here is the code I'm using: DoCmd.OpenReport rptName, acViewPreview DoCmd.OutputTo acOutputReport, ', acFormatPDF, PDFFileName, False DoCmd.Close acReport, rptName The report is opened in preview mode first so the page events fire to show/hide objects based on fields in the recordset that feeds the report. I've tried both screen quality and print quality parameters in the OutputTo call, with the same results.

Also, even if I call OutputTo all on one line and the events don't fire, the report is still zoomed/clipped, it just has all the extra objects not hidden. Install Volume Logic 1.3 For Windows Media Player & Winamp. I've tried this on two different machines, one running Windows 7 and one running Windows Server 2008.

Even when setting a break point on the OutputTo line, the preview looks just fine.it's the resulting PDF file that doesn't look right.

PDF output command has a problem, though; it can't provide filtering by itself. There's no filter clause, not a where statement you can play with. After browsing tons of webpages, my best VBA approach is as follows: Dim MyFilter as String Dim MyPath as String Dim MyFilename as String MyFilter = 'Field = State your filter here as usual' 'I place the file on a different folder depending on the date stated in a field called 'Date' MyPath= 'C: Folder ' & Format(Me.Date, 'yyyy') 'State the filename. Here I use YYYY-DD-MM-Event.pdf MyFilename= Format(Me.EventDate, 'yyyy') & _ '-' & Format(Me.EventDate, 'dd') & Format(Me.EventDate, 'mm') & _ '-' & Me.Event & '.pdf' 'Let's print and save. Once you see it works, you can change True to False so that the file created is not opened after completion. DoCmd.OpenReport 'ReportName', acViewPreview,, MyFilter DoCmd.OutputTo acOutputReport, ', acFormatPDF, MyPath & MyFilename, True 'Let's close our previewed report DoCmd.Close acReport, 'ReportName' The thing is, as I said before, that you can' filter by the OutputTo line. However, HelpFile for that function says you'll need to state the object type and leave the ObjectName field blank if you want to print the active object (that's why I've got to open the form on preview mode and then close it.

If you try acViewNormal it'll throw an error). It might not be the sharpest encoding on Earth, but it works. Hope that helps. I combined the two best solutions posted, GTDocshop's and Mariucci's, using Mariucci's customization and GT's function format. Works like a charm.

My issue seems somewhat different. The purpose of my database is to review documents and 'score' for quality assurance. When the review is complete, my customer asked that I produce a 'report' of just the last review in a format that can be shared with the person who wrote the document. I programmed when the review is complete, the record is saved.