one PDF file with multiple sheet

[Ranju78]

Hi ,
I want to write the VBA code which can generate one pdf file with multiple sheet with specific range.
I have excel file with 3 sheets: Accounting ,Management and invoice.
I want generate pdf file which has data from Accounting from range A2:I43, from Management from range A1:H25 and from Invoice from range B6:J46.

Please help.

 

[John_w]

With the macro recorder running, try adding a new sheet, copy the 3 ranges to it, save the sheet as a PDF, then delete the sheet. The code can then be tweaked if needed, e.g. to specify a different file name.

 

[Ranju78]

Hi John ,
Thanks you for the quick response. If you can make me more clear about it with VBA code. That will be appreciated..
Thank you.

 

[John_w]

Please record a macro and post the code and tell me what changes, if any, you need.

 

[Ranju78]

I am very new for VBA code. I could not find where i missed the code. Here is the code

Sub SaveAccountManagemenInvoicetInPDF()
If Worksheet = "Accounting" Then
If Worksheet.Range("H3") <> "" Then
Worksheet.PageSetup.PrintArea = "$A$2:$I$43"


ElseIf Worksheet = "Management" Then
Worksheet.PageSetup.PrintArea = "$A$1:$H$25"

ElseIf Worksheet = "Invoice" Then
Worksheet.PageSetup.PrintArea = "$B$6:$J$46"



End If




CurrentPath = ThisWorkbook.Path
PDFName = "H3"
PDFName = Replace(PDFName, "/", "")
PDFName = Replace(PDFName, "", "")
ThisWorkbook.Sheets(Array("Accounting", "Management","Invoice")).Select
ActiveSheet.ExportAsFixedFormat Type:=xlTypePDF, Filename:=CurrentPath & "" & PDFName, Quality:=xlQualityStandard, IncludeDocProperties:=True, IgnorePrintAreas:=False, OpenAfterPublish:=True
Else

MsgBox ("This macro shall only be excuted on Accounting tab")

Worksheet("Accounting").Select

End Sub