Question

In my excel I have multiple line like this:

Name  Age Tel 
John  5    12345677
Peter 10   4547567
Mary  6     46u7687867

I am wondering How can I generate multiple document from excel to multiple invoice like this:

page1:

Certification of XXXXX

John      Age 5

page2:

Certification of XXXXX

Peter     Age 10

page3:

Certification of XXXXX

Mary      Age 6

Thanks!

Answer 1

Assuming the above input & comments, the following code will do the job:

Sub ListPrinting()

Dim i As Long

i = 1

For i = 2 To ThisWorkbook.Sheets(1).Range("A1").CurrentRegion.Rows.Count

    ThisWorkbook.Sheets("Invoice").Range("F40").Formula = ThisWorkbook.Sheets(1).Cells(i, 1).Formula
    ThisWorkbook.Sheets("Invoice").Range("I38").Formula = ThisWorkbook.Sheets(1).Cells(i, 2).Formula
    ThisWorkbook.Sheets("Invoice").Range("I9").Formula = ThisWorkbook.Sheets(1).Cells(i, 3).Formula
    ThisWorkbook.Sheets("Invoice").PrintOut Copies:=1, ActivePrinter:="pdfFactory Pro on FPP4:" 'Specify your printer

Next i

MsgBox i - 2 & " invoice(s) printed."

End Sub

Please note:

1. You should specify the name of desired printer – use macro-recorder and just select it in the list of available printers on Print dialog.
2. The amount of records in list is practically unlimited… well, paper and ink / toner are not))) All of them will be printed starting row 2 and up to the last non-empty string found on the list sheet.
3. Test the code on 1-2 items to avoid paper loss)

Sample file is shared (code tested as well): https://www.dropbox.com/s/296e200496gd7gb/ListPrinting.xlsm

P.S. Perhaps you should reformat the Date field as you desire – it uses regional settings and therefore will be displayed for you differently.