Can someone please troubleshoot this code for me? For some reason,
when I click on the autoshape that is assigned this macro, the printer
will spool however it does not print. The Deskjet is not my default
printer (because of some error with MS Word 07 that causes Word to
stop working) if that helps. Code is below. Thanks.


Sub PrintSheet()
'
' PrintSheet Macro
'

'


Dim resp As Long
resp = MsgBox("Printing will clear all data. Do you still want to
print?", vbYesNo)
If resp = vbNo Then Exit Sub

Application.ActivePrinter = "HP Deskjet F2100 series on Ne04:"
ActiveWindow.SmallScroll Down:=-36
ExecuteExcel4Macro "PRINT(1,,,1,,,,,,,,2,,,TRUE,,FALSE)"
Range
("A5:D5,E5:G5,H5:I5,A7:D7,E7:G7,H7:I7,G9,H9,I9,G10 ,H10,I10").Select
Range("I10").Activate
ActiveWindow.SmallScroll Down:=16
Range( _
"A5:D5,E5:G5,H5:I5,A7:D7,E7:G7,H7:I7,G9,H9,I9,G10, H10,I10" _
).Select
Range("I10").Activate
Selection.ClearContents
End Sub