How to Combine each Multiple Sheets to ONLY ONE PDF file?

[buitrunghieu]

The first, I am very sorry because I am not good at English. I have a problem. Please help me how to Combine Sheet "YCNT" and "NTXD" to ONE Pdf file. Just like Mail Merge in Microsoft Word when I "Finish & Merge" -> Merge to New Document -> From ... To ... -> So I have Only One Document to see. Thank you!

Private Sub CommandButton1_Click()
On Error GoTo ex
Dim pr As Variant
Dim aShtLst As Variant
Dim OrigSheet As Variant
Dim ichg As Integer, i1 As Integer, i2 As Integer

aShtLst = Array("YCNT", "NTXD")
OrigSheet = ActiveSheet.Name
i1 = TextBox1.Value
i2 = TextBox2.Value
pr = Application.Dialogs(xlDialogPrinterSetup).Show
If pr = False Then Exit Sub
    For ichg = i1 To i2
        Range(RefEdit1).Formula = ichg
        Calculate
      [COLOR=rgb(44, 130, 201)]  ThisWorkbook.Sheets(aShtLst).PrintOut ActivePrinter:=pr, Copies:=TextBox3.Value
        Worksheets(OrigSheet).Select[/COLOR]
    Next
Unload Me
Exit Sub
ex:
MsgBox "ERORR"
End Sub

I do not know how to Merge all "aShtLst" when printed to PDF to ONLY ONE PDF file? Please!

 

[John_w]

Record a macro whilst selecting the 2 sheets (grouped sheets) and saving the workbook as a PDF and it will generate the code you require.

 

[Peter_SSs]

Welcome to the MrExcel Message Board!

Cross-posting (posting the same question in more than one forum) is not against our rules, but the method of doing so is covered by #13 of the Forum Rules.

Be sure to follow & read the link at the end of the rule too!

Cross posted at: How to Combine each Multiple Sheets to ONLY ONE PDF file?
If you have posted the question at more places, please provide links to those as well.

If you do cross-post in the future and also provide links, then there shouldn’t be a problem.


Also, when posting vba code in the forum, please use the available code tags. It makes your code much easier to read/debug. My signature block below has more details. I have added the tags for you this time.