exit_light,
Boa Tarde!
Você deve definir uma rotina que primeira "descubra" qual é a última linha existenre na sua planilha, depois defina a área de impressão e por fim, imprima em PDF a área de impressão definida. Supondo, por exemplom, que sua planilha esteja na plan1 e que seus dados comecem na célula A1 e vá até a B6 (inicialmente), você poderia ter um código VBA assim:
Sub ImprimirPDF()
Dim UltimaLinha As Long
UltimaLinha = Sheets("Plan1").Cells(Cells.Rows.Count, 1).End(xlUp).Row
ActiveSheet.PageSetup.PrintArea = "$A$1:$B$" & UltimaLinha
Application.ActivePrinter = "PDFCreator em Ne00:"
ExecuteExcel4Macro "PRINT(1,,,1,,,,,,,,2,""PDFCreator em Ne00:"",,TRUE,,FALSE)"
End Sub
Desenvolvo pequenas soluções em VBA Excel a valores que variam entre R$ 50,00 a R$ 200,00. Se te interessar, entre no meu instagran (vba_excel_desenvolvimento)
Atenciosamente
Wagner Morel
Postado : 29/05/2013 9:06 am