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

0

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
    
por Bluez Pavat 25.02.2016 / 05:49

1 resposta

0

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
    
por 25.02.2016 / 06:09