Este fórum está sendo desativado

[CAMILOALVES]

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

[mprudencio]

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

[CAMILOALVES]

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

[mprudencio]

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.

[CAMILOALVES]

Prezado mprudencio 25 Mai 2018 às 18:48!

Funcionou Perfeitamente, Muito Obrigado Pela Inestimável Ajuda.