Boa tarde Cazevedo,

Primeiro verifique a área de impressão manualmente, vá em Layout da Página -> Área de Impressão e veja se seu dados estão dentro dessa área.
Para facilitar a colocação da tabelas você pode ir em Exibir -> Layout de Página.

Para a montagem de uma macro, coloque um exemplo, assim fica mais fácil ajudar.

att,

Cazevedo, além do que o colega Bruno falou, também defina a propriedade a seguir para a 01 página de largura:

ActiveSheet.PageSetup.FitToPagesWide = 1

Formata a planilha para que a impressao saia corretamente, e assunto resolvido

Bom dia amigos, segue o arquivo com o exemplo.

Eu não formatei a planilha para sair corretamente, porque é justamente isso que preciso que a macro faça, vou ter várias tabelas com tamanhos diferentes, e preciso que ela ajuste automaticamente para 01 página de largura.

EdsonBR, eu coloquei o comando que falou mas ele não fez o ajuste ainda. Será que está na posição errada?
Dá uma olhada no exemplo que envio, por favor.

Obrigado.

Abs

Pra isso nao precisa de macros amigo.

Configurar Pagina > Pagina
Selecione
Ajustar para 1 de largura

Deixe o outro campo em branco

Confirme

Ou seja basta configurar a pagina para que a impressão saia corretamente.

MPrudencio, são mais de 300 planilhas, por isso estou tentando criar essa macro. Senão vou ter que entrar em cada uma e configurar na mão.

Abs

As 300 planilhas estao na mesma pasta?

Ou sao 300 pastas?

Se forem todas em uma mesma pasta e forem todas iguais

Basta o seguinte

Clique sobre a aba

Botao direito Selecionar todas as planilhas

Seguir os passos acima.

Selecione outra planilha para envitar uma edição em massa.

Se forem 300 pastas realmente com VBA.

Sub Visualiza_Impressao()
   With ActiveSheet
      .ResetAllPageBreaks
      .PageSetup.FitToPagesWide = 1
      .PageSetup.PrintArea = Range(Cells(3, 2), Cells(110, 11)).Address
      .PrintPreview
   End With
End Sub

Edson, bom dia.

Já havia tentado usar esse código para definir a largura da página ( .PageSetup.FitToPagesWide = 1), mas ele não ajusta. Na visualização continua quebrando.
Parece uma coisa tão simples, mas tá dificil solucionar com macro.

Obrigado.
Abs

Veja este opção:

Sub Visualiza_Impressao_2()
With ThisWorkbook
     .Activate
    .Application.PrintCommunication = False
    With .ActiveSheet.PageSetup
        .PrintArea = ""
        .FitToPagesWide = 1
        .FitToPagesTall = False
    End With
    .Application.PrintCommunication = True
    .Application.Dialogs(xlDialogPrintPreview).Show
    End With
End Sub

fonte: https://msdn.microsoft.com/en-us/library/microsoft.office.interop.excel.pagesetup.fittopagestall(v=office.15).aspx

Basole

Show!!!! Muito obrigado Basole. Resolvido, só delimitei o espaço que queria no .PrintArea e funcionou.
Abs