Sub Macro1()
Macro1 Macro
set active=activesheet
Range("M2:M4").Select
Selection.Copy
Sheets("OR GRAIS TR").Select
Range("M3").PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _[/COLOR]
:=False, Transpose:=False
ExecuteExcel4Macro "PRINT(1,,,1,,,,,,,,2,,,TRUE,,FALSE)"
active.select
End Sub