Without seeing your data, it is hard to help. Adapt this to suit.
'http://www.excelforum.com/excel-programming-vba-macros/1107003-continuous-page-numbers-when-printing-to-pdf-via-vba.html
Sub shg()
Dim r As Range, c As Range, tf As Boolean, pdfFile As String
pdfFile = ThisWorkbook.Path & "\Print Control.pdf"
With Worksheets("Print Control")
Set r = .Range("A1", .Range("A1").End(xlDown))
For Each c In r
If c.Value = "Yes" Then
If tf = False Then
Worksheets(c.Offset(, 1).Value2).Select Replace:=True
tf = True
Else
Worksheets(c.Offset(, 1).Value2).Select Replace:=False
End If
End If
Debug.Print c.Address, c.Offset(, 1).Value, tf
Next c
Selection.ExportAsFixedFormat Type:=xlTypePDF, Filename:=pdfFile
.Select
End With
Shell "cmd /c " & """" & pdfFile & """"
End Sub