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

mas a última linha da planilha não é o mesmo que a última linha de cada "quadrado" (cada "quadrado" corresponde a uma página). Se usar a última linha da planilha vou ter várias páginas em branco.

Bom dia!!

Como encontrar a ultima célula..
http://www.cpearson.com/excel/LastCell.aspx
Att

mas a última linha da planilha não é o mesmo que a última linha de cada "quadrado" (cada "quadrado" corresponde a uma página). Se usar a última linha da planilha vou ter várias páginas em branco.

A última linha a que nos rreferimos aqui é a última linha com dados. Não a última linha da planilha.

Eu não trabalho com Tabelas Dinamicas, um dia ainda quero ver se aprendo, mas como está se referindo as TD não da para referencia-las pelos nomes e mandar imprimi-las ?

De uma olhada nos links abaixo e veja se ajuda :

Excel Pivot Table – Printing Every Value in the Page Field Using a Macro
http://www.mrexcel.com/articles/print-e ... -field.php

Excel Pivot Table Printing
http://www.contextures.com/xlPivot09.html

Por enquanto é no que posso ajudar, espero que ajude.

[]s