Bom... nesse caso é bem mais simples:
Sub Imprimir()
Dim UltimaLinha As Long
'Pegar a última linha com dados da Plan1 pela coluna N
UltimaLinha = Sheets("Plan1").Cells(Cells.Rows.Count, 14).End(xlUp).Row
'Limpar a área de impressão
ActiveSheet.PageSetup.PrintArea = ""
'Definir a áreas de impressão
Range("A1:N" & UltimaLinha).Select
ActiveSheet.PageSetup.PrintArea = "$A$1:$N" & "$" & UltimaLinha
'Imprimir
ExecuteExcel4Macro "PRINT(1,,,1,,,,,,,,2,,,TRUE,,FALSE)"
End Sub
Postado : 08/05/2014 4:50 pm