Need Help with Macro to Save two sheets to PDF

[myoung84]

Need some help from you guys please. I've tried searching and found some examples of what I'm trying to do, but I know little to nothing about Macros so it doesn't make much sense. Here's what I have:

I've got multiple sheets (input, data, proposal, and terms) and I need to print/save to PDF two of the sheets (Proposal and Terms) when you click a Print button (which I have created). I want to click the button, assign file name based on cell A1 of sheet 1, and save to folder where excel sheet is saved. I know this is probably simple, but I'm stuck. Thanks in advance!

[JBeaucaire]

Something like this, change the highlighted part to FALSE if you don't want the PDF to appear onscreen after it is created:

Please Login or Register  to view this content.

[bakerman2]

Shouldn't it be like this?

Please Login or Register  to view this content.

Edit: Just tested it, no need to add & ".pdf" since it apparently comes automatic.

[JBeaucaire]

Correct. Also, including all the additional parameters in the Export command is useful long term to remember/see exactly what can be tweaked if you're interested.

[myoung84]

PERFECT! Thank you very much guys!

[JBeaucaire]

As it appears you've reached a conclusion, I've marked this thread SOLVED for you.
FYI, this is done through the Thread Tools located above the first post in this thread. Thanks.

[myoung84]

Bringing this back to life. I've added a second print button that will print 3 sheets, but they aren't printing in the order that I need. They are listed in the correct order in the macro but it's printing 1, 3, 2.

Sub Print_Proposal_wBOM()
Dim fPATH As String, fNAME As String

fPATH = ThisWorkbook.Path & Application.PathSeparator
fNAME = Sheets(2).Range("A1").Value

Sheets(Array("Proposal", "Terms", "BOM")).Select

ActiveSheet.ExportAsFixedFormat Type:=xlTypePDF, Filename:= _
fPATH & fNAME, Quality:=xlQualityStandard, _
IncludeDocProperties:=True, IgnorePrintAreas:=False, _
OpenAfterPublish:=True

Sheets("Input").Activate

End Sub

[jolivanes]

Have a look here. Garry's Student has the answer for that by the looks of it.
http://stackoverflow.com/questions/2...specific-order

[Kenneth Hobson]

As jolivanes showed in the link, a change in sheet index order governs.

Other ways are:
1. Export the sheets to a blank/scratch workbook in order to suit.
2. Export each sheet to a pdf file and then merge in a specific order using a third party application calls to Acrobat, PDFcreator, PDFtk, etc.