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


    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

Participate now!

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