I want to print the name tags into one sheet using VBA. The Same Name should be print at the top position( reverse direction) and the bottom position on the same page.
I am using following code
Private Sub CommandButton1_Click()
Dim FoundRange As Range
Dim EndRange As Range
Set FoundRange = Sheet1.Cells.Find(TextBox1.Text)
Set EndRange = Sheet1.Range(FoundRange.Address).Offset(0, 2)
If Not FoundRange Is Nothing Then
Range(FoundRange.Address, EndRange.Address).PrintOut
Else
MsgBox "Not available"
End If
Using this code, I am printing only one name at the top.
Does anyone knows, how can I print the same name on top(reverse) and bottom?
thanks in advance.
|