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
--~--~---------~--~----~------------~-------~--~----~
-------------------------------------------------------------------------------------
Some important links for excel users:
1. Excel and VBA Tutorials(Video and Text), Free add-ins downloads at
http://www.excelitems.com
2. Excel tutorials at http://www.excel-macros.blogspot.com
3. Learn VBA Macros at http://www.vbamacros.blogspot.com
4. Excel Tips and Tricks at http://exceldailytip.blogspot.com
To post to this group, send email to excel-macros@googlegroups.com
If you find any spam message in the group, please send an email to:
Ayush Jain @ jainayus...@gmail.com or
Ashish Jain @ 26may.1...@gmail.com
-------------------------------------------------------------------------------------
-~----------~----~----~----~------~----~------~--~---
