You can't make up your own syntax or spell command names incorrectly and expect it to work. Based on your code the following corrects the errors
Sub AttachmentPrint(Item As Outlook.MailItem)
Dim oFS As Object
Dim sTempFolder As String
Dim oAtt As Attachment
Dim sFilename As String
Dim sFileType As String
Dim sFullFile As String
Dim objShell As Object
Dim objFolder As Object
Dim objFolderItem As Object
On Error GoTo OError
' This script finds the system's Temp folders,
' saves any attachments, and runs the Print
' command for that file.
Set oFS = CreateObject("Scripting.FileSystemObject")
sTempFolder = oFS.GetSpecialFolder(TemporaryFolder) & "\OETMP" & Format(Now, "yyyymmddhhmmss") & "\"
MkDir sTempFolder
' in the next few lines, you'll see an entry that says
' sFileType = . This line gets the last 4
' characters of the file name, which we'll use later.
For Each oAtt In Item.Attachments
sFilename = oAtt.fileName
sFileType = LCase$(Right$(sFilename, 4))
sFullFile = sTempFolder & sFilename
oAtt.SaveAsFile sFullFile
' We're using the sFileType text. Note that it's the
' last 4 characters of the file name, wich is why
' - the period counts as the fourth character.
' Insert any file extensions you want printed.
Select Case sFileType
Case ".pdf", ".xls", "xlsx", ".ppt", "pptx", ".doc", "docx"
Set objShell = CreateObject("Shell.Application")
Set objFolder = objShell.NameSpace(0)
Set objFolderItem = objFolder.ParseName(sFullFile)
objFolderItem.InvokeVerbEx ("print")
End Select
Next oAtt
'Cleanup
If Not oFS Is Nothing Then Set oFS = Nothing
If Not objFolder Is Nothing Then Set objFolder = Nothing
If Not objFolderItem Is Nothing Then Set objFolderItem = Nothing
If Not objShell Is Nothing Then Set objShell = Nothing
OError:
If Err <> 0 Then
MsgBox Err.Number & " - " & Err.Description
Err.Clear
End If
Exit Sub
End Sub