Este fórum está sendo desativado

[CAMILOALVES]

Boa Tarde
Solicitação de Ajuda:
Existe Uma Macro no Botão “Imprimir Gráfico” da planilha anexo Que Está Funcionando Parcialmente, ou Seja, Quando Acionado o Referido Botão, Ele Deveria Funcionar da seguinte Forma: Imprimir Somente das linhas A2 até M55, porém está imprimindo além das referidas linhas as demais linhas fora do contexto.
Desde Já Agradeço

[mucascosta]

Código: Selecionar todos

Public Sub Imprimir_Graficos()
  Dim Cadastro As Worksheet
  Dim Ultima_Linha As Long
  Set Cadastro = Plan29
  Ultima_Linha = Cadastro.Range("A" & Rows.Count).End(xlUp).Row
  Cadastro.Visible = xlSheetVisible
  Cadastro.Range("A2:M55").PrintPreview
End Sub

[CAMILOALVES]

Bom Dia!
Prezado mucascosta 26 Set 2020 às 10:54
Muitíssimo Obrigado Pela Ajuda, Funcionou Perfeitamente.
Grato