Print to PDF with specific FileName

[VisionSmart]

Hi all,

Require a VBA solution please

Have read several suggested examples, but not to cater for specific range and many pages.
Trying to print selected range of cells to PDF-files - Name of File to be specific to the concatenated cells in example E1 of attached example WB.
The Macro created in this example prints to PDF but needs name input each time.

Tab has 40 x areas same as shaded down the page
All are same area
Require VBA code to:
Select range (shaded area)
Select which Page to Print - i.e. 1, or 2, or33, or3 40
Print Quality 150 dpi
Zoom 80
Save as PDF - File name to use the concatenated cells in- e.g. E1.
e.g. file Name: Belinda Brown - Payroll - 1234-1.pdf
Files to be saved to C:\Reports
Hope someone can assist please

[VisionSmart]

Further to previous WB, some additional information and changes

I don’t know much about BA so hope someone can assist here please.

Attached WB Rev B is an update.

Tab will now contains 3 lots of 30 areas (shaded ) – total of 90 sheets
All shaded areas are same size – 1 x A4 page 80%
All have specific Data in top – e.g. Row 4 etc – 3 x Fields
These 3 x Fields are also used to concatenate as per Row 1 etc.

Research located the following in the Microsoft Community Site:
Macro to save as PDF with auto filename as cell value

So, have created 3 x Macros and used the code from above (thankyou Gary’s Student etc.)
Module 1 in attached WB has code for the first 3 x sheets for testing

The code works to a degree, but has some issues connected with the VBA Code.
When you run the Macro (Red Box),
Saves Heading row containing Concatenate Fields e.g. Row 1, Row 69 etc – should NOT be included
Routine saves all 90x sheets ( page)s in one file – should only be one page for each Macro
After Save, screen shows PDF file but always displays the first sheet.
Other matters hoping to have solved as well are:
Each PDF to be as small as possible
Resolution is being saved at 600x600. Would like to save to 150 dpi
Would like to save all files to specific location – C:\Reports
Files can then be printed as required.
I don’t know how to add to the Code to set the Range for each page, and present the sheet just saved.

[LJMetzger]

Hi VisionSmart,

Try the following code (non-working because it requires additional resources inside the attached file) included in the modified copy of your sample workbook. Please note that it took 4-6 minutes to create 90 pdf files on my computer. Your times may differ.

Please Login or Register  to view this content.

Lewis

[VisionSmart]

LJMetzger - Thank you for taking time to create this considerable solution

I will work my way through this and see how I go.