Guru do Excel e Power BI

Boa Tarde!
Como faço para imprimir somente às células que estiverem preenchidas ???
Estou usando função abaixo, porém ela imprimi toda a pagina que esta dentro da quebra de pagina eu preciso imprimir somente as células preenchidas que estiverem dentro da quebra de pagina, ou seja, se conter duas paginas para serem impressas e apenas uma contem células preenchidas, apenas uma pagina deve ser impressa.

Private Sub BtFiltrar_Click()
Cadastro.Visible = xlSheetVisible
Cadastro.PrintPreview
End Sub

Com a função acima, consigo visualizar a impressão e posteriormente fazer a impressão, porém imprime todas as páginas contendo ou dados preenchidos
Valeu, um abraço

Pode tentar assim:

Código: Selecionar todos


Private Sub BtFiltrar_Click()

Dim Cadastro As Worksheet
Dim UltimaLinha As Long

Set Cadastro = Sheets("Cadastro")
'Localiza a ultima linha preenchida na coluna A
'Troque a coluna se os dados iniciarem em outra
UltimaLinha = Cadastro("A" & Rows.Count).End(xlUp).Row

Cadastro.Visible = xlSheetVisible
'Intervalo a ser impresso
'Ajuste o intervalo "A1:H" de acordo com a primeira linha de dados e a ultima coluna de dados
Cadastro.Range("A1:H" & UltimaLinha).PrintPreview

End Sub

Prezado mprudencio 20 Mai 2018 às 15:39

Não funcionou, você poderia dar uma analisada na planilha anexo e verificar o que está acontecendo?

Desde já agradeço

Não é recomendado a formatação de bordas em toda a planilha.

Isso dependendo da quantidade de dados que tem o arquivo pode deixa-lo pesado sem necessidade.

Veja se é isso que precisa.

Enviado: **05 Jun 2018 às 16:52**

Prezado mprudencio 25 Mai 2018 às 18:48!

Funcionou Perfeitamente, Muito Obrigado Pela Inestimável Ajuda.

Guru do Excel e Power BI

Impressão Somente de Células que Contenham Dados

Impressão Somente de Células que Contenham Dados

Impressão Somente de Células que Contenham Dados

Impressão Somente de Células que Contenham Dados

Re: Impressão Somente de Células que Contenham Dados

Impressão Somente de Células que Contenham Dados