Excel - VBA: Impressão automática de vários arquivos Apenas 1sheet

Question

Eu tenho um código para imprimir automaticamente vários arquivos, mas este código imprime todas as folhas no arquivo

agora eu tenho 44 arquivos em cada arquivo é de 3 folhas [Folha1, Folha2, Folha3] Eu quero imprimir apenas Folha1

 Sub auto_print()
'

'

Dim i As Integer, j As Integer

Dim varFile As Variant
Dim inFile As Integer
Dim OPENFILE
Dim currFile
Dim N
'
Application.ScreenUpdating = False
On Error GoTo 100
'
currFile = ActiveWorkbook.Name
varFile = _
Application.GetOpenFilename(FileFilter:="Microsoft Excel file, *.xls", MultiSelect:=True)
If (IsArray(varFile)) Then
For intfile = 1 To UBound(varFile)
Workbooks.OpenText Filename:=varFile(intfile)
OPENFILE = ActiveWorkbook.Name
'
For N = 1 To ActiveWorkbook.Sheets.Count
Sheets(N).Activate
ActiveWindow.SelectedSheets.PrintOut Copies:=1, Collate:=True
Next N
Workbooks(OPENFILE).Close
Next intfile
Else
MsgBox "You did not select any file.", vbOKOnly + vbInformation
End If

100 End Sub

    

Answer 1

Alterar

For N = 1 To ActiveWorkbook.Sheets.Count
Sheets(N).Activate
ActiveWindow.SelectedSheets.PrintOut Copies:=1, Collate:=True
Next N

Para

Sheets("Sheet1").PrintOut Copies:=1, Collate:=True