Macro to print each row on list

[newshound12]

I have a list of 200 five digit numbers.
Each digit of each number is in its own cell - AA:AE
So the range of all the numbers is AA1:AAE200

I need to place each digit from each row in cells:
J48, M48, O48, Q48, S48
These cells are part of a template and will trigger formulas in other cells.

I need a macro that will print the 200 different numbers one at a time.
Every thing is in sheet1.

 

[venkat1926]

try this macro . remove msgbox line after checking.

Sub test()
Dim rng As Range, c As Range
Dim j As Integer
Dim i As Integer, k As Integer
j = 48
Set rng = Range(Range("AA1"), Range("AA1").End(xlDown))
MsgBox rng.Address
For Each c In rng
c.Copy Cells(j, "J")
c.Offset(0, 1).Copy Cells(j, "M")
c.Offset(0, 2).Copy Cells(j, "O")
c.Offset(0, 3).Copy Cells(j, "Q")
c.Offset(0, 4).Copy Cells(j, "S")
j = j + 1

Next c

End Sub

 

[newshound12]

Thanks venkat1926 for your effort. It is steering me in the right direction.

However , what I need is for range AA1:AE1 to be copied on line 48, then print; then for range AA2:AE2 to copied on line 48, then print, etc.

 

[venkat1926]

can not this macro be modified

try this

remove the lline
j=j+1

then put a printing code before "next"
see whether it helps. I do not have a printer and so I cannot test.

 

[newshound12]

Thanks for your help. I haven't been using excel for a couple of years and I'm relearning the stuff I forgot.

This is the final code that works:

    Dim rng As Range, c As Range
    Dim j As Integer
    Dim i As Integer, k As Integer
    j = 48
    Set rng = Range(Range("AA1"), Range("AA1").End(xlDown))
    For Each c In rng
        c.Copy Cells(j, "J")
        c.Offset(0, 1).Copy Cells(j, "M")
        c.Offset(0, 2).Copy Cells(j, "O")
        c.Offset(0, 3).Copy Cells(j, "Q")
        c.Offset(0, 4).Copy Cells(j, "S")
        ActiveWindow.SelectedSheets.PrintOut Copies:=1, Collate:=True
    Next c

 

[venkat1926]

good that it works