VBA macro for REPLACE cell value from a list THEN print in a single PDF Document!

[INOpportuno]

I found in this forum how to printout sheets with different values, but I'd like to print all the sheets in a single PDF Document.
How can I fix this VBA code to do this?

Sub PrintAll()


Dim i As Long, LastRow As Long


LastRow = Worksheets("Names").Range("A65536").End(xlUp).Row


For i = 1 To LastRow
Worksheets("Form").Range("A1").Value = Worksheets("Names").Range("A" & i).Value
Worksheets("Form").Range("Print_Me").PrintOut
Next i


End Sub

 

[INOpportuno]

I'm not good to explain...i attached an immage

 

[jolivanes]

I am sorry but the attachment does not mean anything to me. I can't see any relation between what you posted so far and that picture.
In your post(s) you mention column A but column A is not even visible on your picture.
Sorry, but if you can't give us an explanation, even if it is in broken english, I can't do anything anymore.

 

[jolivanes]

Maybe you were thinking about something like this?

Sub Try_So_Version_2()
Dim a As String, shts, ws As Worksheet, prntNames, i As Long
a = ActiveSheet.Name
prntNames = Sheets("Names").Range("A1:A" & Sheets("Names").Cells(Rows.Count, 1).End(xlUp).Row).Value
Worksheets("Form").PageSetup.PrintArea = Range("Print_Me").Address
Application.ScreenUpdating = False
    For i = LBound(prntNames) To UBound(prntNames)
        With Sheets("Form")
            .Range("A1").Value = prntNames(i, 1)
            Worksheets.Add.Name = prntNames(i, 1)
            .Range("Print_Me").Copy Sheets(prntNames(i, 1)).Cells(1)
        End With
    Next i
    Sheets(prntNames(1, 1)).Select
    For i = 2 To UBound(prntNames)
        Sheets(prntNames(i, 1)).Select False
    Next i
ActiveSheet.ExportAsFixedFormat xlTypePDF, ThisWorkbook.Path & "\" & "INOpportuno At MrExcel" & ".pdf"
Sheets(a).Select
    For i = LBound(prntNames) To UBound(prntNames)
        Application.DisplayAlerts = False
            Sheets(prntNames(i, 1)).Delete
        Application.DisplayAlerts = False
    Next i
Application.ScreenUpdating = True
End Sub