How to add different text to different copies of print out

[kelly mort]

Hello ,

I have this macro that I need help to modify :

Sub PrintSheets  ()
Dim i As Long 
For i = 1 To Me.Pages.Value
      Sheets ("Page" & i ).PrintOut 
Next i
End Sub

Now my wish is to print two copies of each sheet (page) printed by the macro above.

Then on the first Copy, I want to place the text "cool" in cell B3 then on the second copy, I will place "Hot" in B3.

These texts are for demo only. Thanks and hope I find a solution

Kelly

 

[PatOBrien198]

maybe something like....

Sub PrintSheets  ()
Dim i As Long 
For i = 1 To Me.Pages.Value
      Sheets ("Page" & i ).Range("B3") = "Cool" 
      Sheets ("Page" & i ).PrintOut 
      Sheets ("Page" & i ).Range("B3") = "Hot"
      Sheets ("Page" & i ).PrintOut 
Next i
End Sub

 

[kelly mort]

Sure!!!

Thanks very much for this
Kelly

 

[PatOBrien198]

Happy Birthday Ghana 3/6

 

[kelly mort]

Happy Birthday Ghana 3/6

Thanks