Copy Data From A Row to Spreadsheet And Print

    I have a list of names in column "A" worksheet1


    I need to copy the name from "A1" sheet1 to "A10" on sheet2


    Then print a range called "Document" from sheet2


    Then get the next name "A2" sheet1 etc. down


    Until it reaches a " " in column "A" sheet1



    Can you help me?

    Re: Copy Data From A Row to Spreadsheet And Print


    Hi,


    Heres an untested start:


    Code
    Sub HTH()


For i = 1 To Worksheets("Sheet1").Range("A1", Worksheets("Sheet1").Range("A" & Rows.Count).End(xlUp)).Row
Worksheets("Sheet2").Range("A10").Value = Worksheets("Sheet1").Range("A" & i).Value
Worksheets("Sheet2").Printout
Next i


End Sub

    Re: Copy Data From A Row to Spreadsheet And Print


    Yes,


    But it only prints the first name. It will not go to the second name.

    Re: Copy Data From A Row to Spreadsheet And Print


    Opps, try this,


    Code
    Sub HTH()
     
    For i = 1 To Worksheets("Sheet1").Range("A" & Rows.Count).End(xlUp).Row
        Worksheets("Sheet2").Range("A10").Value = Worksheets("Sheet1").Range("A" & i).Value
        Worksheets("Sheet2").PrintOut
    Next i
     
End Sub

    Re: Copy Data From A Row to Spreadsheet And Print


    Everything works okay except the printing. It only prints the first page and then the printer stops. I have to clear the print que to start other printing.


    I have tried this on two printers with the same result.


    Is there another print command?


    John

    Re: Copy Data From A Row to Spreadsheet And Print


    Hi John,


    My printer is kaput at the moment so I cant test. I beleive that code should work though. Can someone else test for john please?

Participate now!

Don’t have an account yet? Register yourself now and be a part of our community!

Register Yourself Login