Transferring Workbook pages to adobe

[Dennis Reynolds]

I'm trying to export 4 pages of a report to a PDF using their exact same print preview settings (aka specific range of data). The PDF should also be 4 pages and the reports have to be resized to fit the PDF perfectly. Any help would be greatly appreciated.

 

[BeingYogi]

need to open report and adjust in 'Page Break Preview' in view option

 

[Dennis Reynolds]

need to open report and adjust in 'Page Break Preview' in view option

Thats not the issue, i'm trying to write a code that will at the click of a button or automatically export the report to Adobe with the same print settings.

 

[Dennis Reynolds]

bump

 

[Ruddles]

What do you mean by "report" in this instance? Part of a worksheet?

What code have you got already and in what way does it not work?

 

[Dennis Reynolds]

What do you mean by "report" in this instance? Part of a worksheet?

What code have you got already and in what way does it not work?

This is a pre formatted report which already has print areas set that work perfectly. The report has to do with various risk capital and balance sheet limits for a specific company. I haven't written any code for this since I'm not quite sure how to get started. Ideally it would print to pdfFactoryPro and then save the report with some specific name. I've been browsing the internet for solutions but I couldn't find any that fit my problem. There are 4 worksheets within the report that need to get printed to the PDF.


So what I need is the Macro to select the specifically named worksheets, transfer them to PDF form somehow and then save the contents of the PDF with a specific name.

 

[Ruddles]

I do something like this (Excel 2007):-

Sub Example()
 
  Sheets("[B][COLOR=red]Sheet1[/COLOR][/B]").PageSetup.PrintArea = "[COLOR=red][B]A1:G99[/B][/COLOR]"
  Sheets("[COLOR=red][B]Sheet1[/B][/COLOR]").ExportAsFixedFormat Filename:=[B][COLOR=blue]"c:\folder\report1.pdf"[/COLOR][/B], _
      Type:=xlTypePDF, Quality:=xlQualityStandard, IncludeDocProperties:=True, _
      IgnorePrintAreas:=False, OpenAfterPublish:=False
 
End Sub

You'd change the bits in red to suit your workbook. The bit in blue is a fixed filename but you could use a file dialog box to browse to the folder you wanted to save to or use ThisWorkbook.Path, for example.

Then you'd either repeat the code for each report or make it a procedure to which you pass the worksheet name, range and PDF filename, and call that once for each report.

 

[Dennis Reynolds]

Thank you, this will the last step of my report so I will get back to you when I put it into action.