I normally test code before posting but did not in this case. Try it out and if you can't see how to fix a problem, just post back. Always test code on a backup copy.
You will note that I used Debug.Print. This method can help you debug code when you view the output in the Immediate Window of the Visual Basic Editor (VBE).
Sub SaveAsPDFB2CON()
Dim fName As String, i As Integer, ws As Worksheet
Dim cWS As Worksheet, rWS As Worksheet
On Error GoTo EndSub
Application.DisplayAlerts = False
Application.ScreenUpdating = False
Set cWS = ActiveSheet
fName = "D:\" & Worksheets(1).Range("A5").Value2 & " " & Worksheets(1).Range("D5").Value2 & ".pdf"
Debug.Print fName, Len(Dir(fName)) <> 0
Set rWS = Worksheets.Add(After:=Sheets(Worksheets.Count))
rWS.Name = "RESULT"
For Each ws In Worksheets
With ws
If .Name <> "RESULT" Then
If LCase(.Range("A1").Value2) = "printing" Then _
.Range("A1:F20").Copy rWS.Range("A" & rWS.Rows.Count).End(xlUp).Offset(1)
End If
End With
Next ws
rWS.ExportAsFixedFormat Type:=xlTypePDF, Filename:=fName, _
Quality:=xlQualityStandard, IncludeDocProperties:=True, IgnorePrintAreas:=False
rWS.Delete
cWS.Activate
EndSub:
Application.DisplayAlerts = True
Application.ScreenUpdating = True
End Sub