Thank you!
It worked!

I was just wondering WHY that happens...
After all I did NOT wrote myself the macro, but Excel did it automatically
as I "recorded" the macro...

Unfortunately from now on when I record a macro like this to print something
(which I do very often), I will have to REPLACE the code wrote duiring the
"recording" with the one kindly supplied to me by you...

This is annoying Microsoft!

"JLGWhiz" wrote:

I believe you only have one sheet to print. Try this.

Sub Button8_Click()
'
' Button8_Click Macro
' Macro recorded 6/6/2009 by Marco Margaritelli


'

ActiveSheet.PageSetup.PrintArea = "$B$3:$C$5"
Application.ActivePrinter = "DYMO LabelWriter Twin Turbo on Ne04:"
ActiveSheet.PrintOut Copies:=1, ActivePrinter:= _
"DYMO LabelWriter Twin Turbo on Ne04:", Collate:=True,
Preview:=False
Range("E3").Select
End Sub






"Marco Margaritelli" wrote in
message ...
I created (recorded) a very simple macro that "Select an area", "Select a
printer", and "Print".
It works the first time, (while recording it), but when I Play It again,
It
FREEZES Excel and the whole PC!

The SAME Macro works just fine just changing the "Preview:=" statement
from
"False" to "true".

===============================================
THIS ONE BELOW WORKS JUST FINE!!!
===============================================

Sub Button8_Click()
'
' Button8_Click Macro
' Macro recorded 6/6/2009 by Marco Margaritelli
'

'
Range("B3:C5").Select
ActiveSheet.PageSetup.PrintArea = "$B$3:$C$5"
Application.ActivePrinter = "DYMO LabelWriter Twin Turbo on Ne04:"
ActiveWindow.SelectedSheets.PrintOut Copies:=1, ActivePrinter:= _
"DYMO LabelWriter Twin Turbo on Ne04:", Collate:=True,
Preview:=True
Range("E3").Select
End Sub


===============================================
THIS ONE BELOW DOES NOT WORK... IT FREEZE UP EXCEL AND EVERYTHING ELSE IN
THE PC!
===============================================

Sub Button8_Click()
'
' Button8_Click Macro
' Macro recorded 6/6/2009 by Marco Margaritelli
'

'
Range("B3:C5").Select
ActiveSheet.PageSetup.PrintArea = "$B$3:$C$5"
Application.ActivePrinter = "DYMO LabelWriter Twin Turbo on Ne04:"
ActiveWindow.SelectedSheets.PrintOut Copies:=1, ActivePrinter:= _
"DYMO LabelWriter Twin Turbo on Ne04:", Collate:=True,
Preview:=False
Range("E3").Select
End Sub

================================================== =

This happen in ALL Excel Macros I created and that have been working Just
fine for years!
I never had this problem since a few months ago (I believe after a MS
Security Update...).

I hope someone could clear this "MISTERY!"

THANKS!