Printing issues using macros and loops

[rugbydud]

I need help with a project. I set up a workbook to track production data and am having trouble with the printing code. The primary worksheet (employeedata) pulls data from a txt file based on an operator code that you enter into a cell. Upon entering, the worksheet refreshes with the data corresponding to the operator code. This is done by using an array to cycle through the txt file and displaying each instance.

I am trying to create a Print All button to cycle through each operator in the table, automatically enter it into the cell and print the page. here is my code so far. It will show the first sheet fine but will go into an endless loop trying to print. I have a button that will print each individually, but that would be very time consuming.

Sub PrintAll()     ' PrintAll Macro
     ' Select cell A2, *first line of data*.
     Application.ScreenUpdating = False
     Worksheets("Employees").Activate
     ActiveSheet.Range("A2").Select
     
     ' Set Do loop to stop when an empty cell is reached.
     Do Until IsEmpty(ActiveCell)
          'Copy the data
          Sheets("Employees").Range("a2").Copy
          
          'Activate the destination worksheet
          Sheets("Employeedata").Activate
        
          'Select the target range
          Range("a2").Select
        
          'Paste in the target destination
          Worksheets("EmployeeData").Range("$a$2").Select
          ActiveSheet.Paste
          Application.SendKeys "{ENTER}"
          Worksheets("EmployeeData").PrintOut From:=1, TO:=2, Preview:=True, ignoreprintareas:=false
        
          ' Step down 1 row from present location.
         Worksheets("Employees").Activate
         ActiveCell.Offset(1, 0).Select
     Loop  
End Sub

 

[James_Latimer]

I would have thought it is the Do Until that isn't exiting correctly then... are the cells empty or are there formula in them? If the cells contain formulas then the code will carry on. You may be better using

Do Until ActiveCell.value = ""

 

[Norie]

Try this.

Sub PrintAll()
Dim wsData As Worksheet
Dim wsPrint As Worksheet
Dim rngData As Range
     
     ' Select cell A2, *first line of data*.
     Application.ScreenUpdating = False
     
     Set wsData = Worksheets("Employees")
     Set wsPrint = Worksheets("EmployeeData")
     
     Set rngdsta = wsData.Range("A2")
     ActiveSheet.Range("A2").Select
     
     ' Set Do loop to stop when an empty cell is reached.
     Do Until rngData.Value = ""
          'Copy the data
          
          rngData.Copy wsPrint.Range("A2")
          
          ' print sheet
          wsData.PrintOut From:=1, TO:=2, Preview:=True, ignoreprintareas:=False
          
        ' move to next employee
        Set rngData = rngData.Offset(1)
        
     Loop
     
End Sub

 

[rugbydud]

Thank you for the response, it worked well. Would this code also work for copy/paste as well? Same idea of cycling through, just that it copies a range and pastes it to another tab labeled using the same list versus it printing.