I want the macro code to not print without selecting 13 sheets

[GVN KUMAR]

sir

I have 14 sheets out of which 13 sheets need to be printed.
In 1 sheet I am using input data.

If you want to enter the data in this input sheet and print the remaining 13 pages.

Every time I select all the sheets from 2 sheets to 14 sheets with the xls macro code in the 2nd sheets I have and print them.

I can give print through input sheet without selecting 13 sheets from 2 to 14 sheets and give xls macro code to it.

 

[Monty]

sir

I have 14 sheets out of which 13 sheets need to be printed.
In 1 sheet I am using input data.

If you want to enter the data in this input sheet and print the remaining 13 pages.

Every time I select all the sheets from 2 sheets to 14 sheets with the xls macro code in the 2nd sheets I have and print them.

I can give print through input sheet without selecting 13 sheets from 2 to 14 sheets and give xls macro code to

You can try this!

Sub PrintSheets()
    Dim wsInput As Worksheet
    Dim i As Integer
    
    ' Assuming input data is in the first sheet
    Set wsInput = ThisWorkbook.Sheets(1)
    
    ' Loop through sheets 2 to 14 and print them
    For i = 2 To 14
        ' Copy input data to the current sheet
        wsInput.UsedRange.Copy Destination:=ThisWorkbook.Sheets(i).Range("A1")
        
        ' Print the current sheet
        ThisWorkbook.Sheets(i).PrintOut
    Next i
End Sub

 

[vletm]

GVN KUMAR​

Check this sample too.
Usage:
Sheet1 is Your input sheet ( You can rename it as You want)
Other sheets (as many as You want) are those sheets You want to print (or create one PDF to current folder)
> Press [ Create ]-button

 

[GVN KUMAR]

GVN KUMAR​

Check this sample too.
Usage:
Sheet1 is Your input sheet ( You can rename it as You want)
Other sheets (as many as You want) are those sheets You want to print (or create one PDF to current folder)
> Press [ Create ]-button

Sir this code is working very well in your file
If we copy this code and run it in our file then it doesn't work sir

The code I have is not working with the code I have hitting save as the file and renaming the file

having code
>>> use code - tags <<<

Sub Button2_Click()
ActiveWindow.Selectedsheets.printout
End Sub

 

[vletm]

GVN KUMAR​

Did You copy it in same place as in my sample file?
How do You run it?
You should able to move it to Your file and
use that sheet as Your input data-sheet.
Without seeing it, I could only guess something.