Ggtcf

I have a macro that runs through the filenames in col B and if it finds a text string that matches a file from a directory then it will export it as a pdf.

For some reason the the loop doesn't print the first file in the list. When i step thru then they all print.

Does anyone see anything in my code that could solve this problem?

Thanks

EDIT: problem was that enabling the PrintCommunication was making the first sheet fail. PrintCommunication is needed off tho so the PageSetup works as needed.

Code is updated below for anyone to use. All you would have to change is the MyFolder location or use With Application.FileDialog(msoFileDialogFolderPicker) to pick the folder.

Sub ExcelPrint()
Application.DisplayAlerts = False
Dim OpenFile As Variant
Dim MyFile As String, MyFolder As String, AorB As String
Dim sourceFolder As String, destFolder As String
Dim LR As Long

MyFolder = ThisWorkbook.ActiveSheet.Range("B1").Value
LR = Cells(Rows.Count, "B").End(xlUp).Row
sourceFolder = Environ("Userprofile") & "DesktopPDF"
destFolder = sourceFolder & "_Temp"

If Len(Dir(sourceFolder, vbDirectory)) = 0 Then
 MkDir sourceFolder
End If

If Len(Dir(destFolder, vbDirectory)) = 0 Then
 MkDir destFolder
End If

On Error GoTo eHandler 
With Worksheets("Print")
For i = 3 To LR
 MyFile = ThisWorkbook.ActiveSheet.Cells(i, 2)
 AorB = Mid(Cells(i, 2), 4, 1)
 OpenFile = MyFolder & MyFile & ".xlsx"
 Application.StatusBar = "Printing " & MyFile & ".xlsx"

 Workbooks.Open _
 FileName:=OpenFile, _
 ReadOnly:=True

 Application.PrintCommunication = False
 With ActiveSheet.PageSetup
 .Orientation = xlLandscape
 .FitToPagesTall = 1
 .FitToPagesWide = 1
 If AorB = "A" Then
 .PaperSize = xlPaperLetter
 ElseIf AorB = "B" Then
 .PaperSize = xlPaperTabloid
 End If
 End With
'This was the problem 
'Application.PrintCommunication = True

 ActiveSheet.ExportAsFixedFormat _
 Type:=xlTypePDF, _
 FileName:=destFolder & MyFile & ".pdf", _
 Quality:=xlQualityStandard, _
 IgnorePrintAreas:=False, _
 From:=1, To:=1, _
 OpenAfterPublish:=True
 ActiveWorkbook.Close
 Application.StatusBar = vbNullString

 'Green Highlight if printed
 With ThisWorkbook.Sheets("Print")
 Application.ScreenUpdating = True
 If Not Dir(destFolder & MyFile & ".pdf", vbDirectory) = vbNullString Then
 Sheets("Print").Cells(i, 2).Interior.ColorIndex = 10
 Sheets("Print").Cells(i, 2).Font.Color = vbWhite
 End If
 Application.ScreenUpdating = False
 End With

nextLine:
Next i
End With
Exit Sub

eHandler:
If err.Number = 1004 Then
 Resume nextLine
ElseIf err.Number = 424 Then
 Resume nextLine
ElseIf err.Number = 9 Then
 Resume nextLine
End If

MsgBox err.Number & vbCrLf & err.Description
Application.StatusBar = vbNullString
Application.DisplayAlerts = True
End Sub