Innovation Technology
Sub Print1()
For a = 1 To 10
Sheet3.Range("L2").Value = a
ActiveWindow.SelectedSheets.PrintOut copies:=1, collate:=True, IgnorePrintAreas:=False
Next
End Sub
@echo off title Activate Microsoft Office 2021 (ALL versions) for FREE - office.com&cls&echo =====================================...
No comments:
Post a Comment