Página 1 de 1

Ajustar Impressão

Enviado: 30 Jun 2016 às 15:33
por 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?

Re: Ajustar Impressão

Enviado: 30 Jun 2016 às 16:35
por 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