Should do it

Sub printrng()
Application.ActivePrinter = _
"DYMO LabelWriter Twin Turbo on Ne04:"
ActiveSheet.Range("b3:c65").PrintOut
End Sub

--
Don Guillett
Microsoft MVP Excel
SalesAid Software

"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!