Print Each Cell on One Page as Heading

[srizki]

I have hundreds of rows with name in column A, I want to print each name on a separate sheet as heading and nothing else on that page. So I will have over hundred pages with name on the top and rest blank.

Thanks

Sohail

 

[Opus]

Do you mean work sheets or paper sheets

 

[Domski]

Maybe something like:

Sub test()

Dim rngLoopRange As Range

For Each rngLoopRange In Sheets("Sheets2").Range("A1").CurrentRegion

    With Sheets("Sheet1")

        .Range("A1") = rngLoopRange
    
        .PrintOut
        
    End With
        
Next rngLoopRange

End Sub

Dom

 

[srizki]

Thank you Domski, I am going to try it now,
Opus, It does not matter, as long as I can print sepatere on each sheet.

 

[Opus]

The easyest way to print to paper is to use mail merge in Word using the excel sheet as youre source.

 

[srizki]

Domski,
Thanks for the code, but I am doing something wrong, I changed the codes to

Sub test()
Dim rngLoopRange As Range
For Each rngLoopRange In Sheets("Sheets2").Range("A1").CurrentRegion
With Sheets("Sheet1")
.Range("D1") = rngLoopRange

.PrintOut

End With

Next rngLoopRange
End Sub

I changed from A1 to D1, and coied and paste your code to sheet. and every time I view print preview, I see all column on one sheet.
What am I doing wrong here.

I appreciate your interest.

 

[Domski]

Print preview won't show you what is going to print. The code is looping through the range from Sheet2 Range A1 downwards and changing Sheet1 Range D1 to each value and then printing it.

Dom

 

[srizki]

Ok Domski, let me try,

Thanks