Este fórum está sendo desativado

[Luciano021273]

Pessoal em primeiro lugar gostaria de agradecer aos professores que vem me ajudando, a resolver algumas dúvidas,

Tenho mais uma duvida:
Meu banco de dados ( minha Planilha) ficou um pouco extensa e quando vou gerar um relatório para impressão coloquei no ajuste da pagina e as letras mal consigo visualizar,

Como faço para manter minha pagina de impressão próximo dos 70% e que possa sair todo o conteúdo do relátorio impresso.
mesmo virando a pagina para paisagem fico muito pequena...
Alguma sugestão?

[alexandrevba]

Boa tarde!!

Eu não sei se entendi a parte do 70% (se é na guia ativa ou não....), tente.

Código: Selecionar todos

Sub AleVBA_2457()
    ActiveWindow.Zoom = 70
'A linha abaixo define a Área de impressão de A até D
    ActiveSheet.PageSetup.PrintArea = Range("A1:D" & Cells(Rows.Count, "A").End(xlUp).Row).Address
End Sub

Att