A few days ago I posted on here asking for help with a basic macro to copy info from one page to the other then print. It worked well until I needed to add one more area to copy and paste. It is copying info from a column that when a number is typed in the top cell, it auto increments with a A1+1 type of function. For some reason when it prints the pages, the first two pages (from the first two cells in the column) are the only ones that these numbers show up on and the rest of the pages that print off are blank.
Dim UsdRws As Long
Dim Cnt As Long
Sheets("Summary").Select
UsdRws = Cells.Find("*", After:=Range("A1"), SearchOrder:=xlByRows, SearchDirection:=xlPrevious).Row
With Sheets("Invoice")
For Cnt = 15 To UsdRws
.Range("D19") = Range("D" & Cnt)
.Range("D20") = Range("C" & Cnt)
.Range("D21") = Range("E" & Cnt)
.Range("A10") = Range("A" & Cnt)
.Range("C7") = Range("G" & Cnt)
.PrintOut Copies:=1, Collate:=True, IgnorePrintAreas:=False
Next Cnt
End With
End Sub
It is the ".Range("C7") = Range("G" & Cnt) line that is not working correctly. Thanks in advance
Dim UsdRws As Long
Dim Cnt As Long
Sheets("Summary").Select
UsdRws = Cells.Find("*", After:=Range("A1"), SearchOrder:=xlByRows, SearchDirection:=xlPrevious).Row
With Sheets("Invoice")
For Cnt = 15 To UsdRws
.Range("D19") = Range("D" & Cnt)
.Range("D20") = Range("C" & Cnt)
.Range("D21") = Range("E" & Cnt)
.Range("A10") = Range("A" & Cnt)
.Range("C7") = Range("G" & Cnt)
.PrintOut Copies:=1, Collate:=True, IgnorePrintAreas:=False
Next Cnt
End With
End Sub
It is the ".Range("C7") = Range("G" & Cnt) line that is not working correctly. Thanks in advance
