Sub PrintAllFirstPage()
Dim sheet As Worksheet
For Each sheet In Application.ActiveWorkbook.Worksheets
sheet.PrintOut from:=1, To:=1
Next
End Sub
you can change the page range by editing the value of from:=
and to:=
make everything work as it should be
Sub PrintAllFirstPage()
Dim sheet As Worksheet
For Each sheet In Application.ActiveWorkbook.Worksheets
sheet.PrintOut from:=1, To:=1
Next
End Sub
you can change the page range by editing the value of from:=
and to:=
FOR /D %d in (*.*) DO "%ProgramFiles(x86)%\7-zip\7z.exe" a -mx "%d.7z" "%d"
FOR /D %d in (*.*) DO "%ProgramFiles%\7-zip\7z.exe" a -mx "%d.7z" "%d"