Alterar a área de impressão de uma planilha usando uma macro

[Nosila]

Boa tarde!

 

Se alguém puder me ajudar com essa dúvida agradeço bastante! Não manjo muito de macros no Excel (2010), mas, estou praticando um pouco com o pouco que conheço e esbarrei em um probleminha...

Em umas das minhas planilhas, há algumas listas, que vou populando conforme o evento. São 6 listas com no máximo 40 lugares cada, sendo que, conforme o evento que escolhi (já tenho uma macro pra isso), as listas (duas dessas seis, conforme o evento) deveria ficar configurada para serem impressas quando eu desejar faze-lo, isto é, deverão apenas ficar configuradas, não serão impressas no mesmo momento.

 

Como definir a área de impressão eu consegui (ActiveSheet.PageSetup.PrintArea = "$A$1:$J$211"), mas, quando tento separar/definir as páginas (Set ActiveSheet.VPageBreaks(1).Location = Range("F1")), não funciona e dá um erro.

 

Não sei se fui muito claro, se não fui peço seu apoio!!

 

Obrigado!!

[Visitante]

Experimentou ?

ActiveSheet.VPageBreaks(1).Location = Range("F1")

[DJunqueira]

Já tentou nomear as áreas de impressão e chama-las pelo nome no código do VBA.

[Nosila]

Olá!

 

Já tentei as duas opções.

osvaldomp : Ocorre um erro quando tento usar esse comando.

DJunqueira : Ele no fim acaba juntando tudo e redefinindo as quebras.

 

Tentei até juntar as duas opções! Estou enviando o arquivo para se possível vocês possam dar uma olhada!

 

Ps.: Visto que não estava conseguindo enviar o arquivo no formato original, renome-ei a extensão do arquivo (de .xlsm para .txt).

MODELO.txt

[Visitante]

Ps.: Visto que não estava conseguindo enviar o arquivo no formato original, renome-ei a extensão do arquivo (de .xlsm para .txt).

 

Para anexar o arquivo aqui:

1. copie o código que está no módulo e cole-o na planilha (cole na planilha diretamente e não no módulo dela)

2. exclua o módulo onde está o código (se houver mais de um módulo faça conforme o item anterior para todos)

3. salve o seu arquivo em versão .xlsx e tente anexar essa versão aqui no fórum

[Nosila]

Obrigado osvaldomp!

 

Segue o arquivo em anexo!

MODELO.xlsx

[Visitante]

@Nosila,

 

Experimente após substituir estas 2 linhas

ActiveSheet.VPageBreaks(1).Location = Range("F1")AtiveSheet.VPageBreaks(1).Location = Range("J53")

por estas

ActiveSheet.VPageBreaks.Add Columns("F")ActiveSheet.VPageBreaks.Add Columns("K")

[Nosila]

Funcionou!

 

Obrigado!

 

Para fazer o mesmo na horizontal ficaria como?

[Visitante]

experimente:

 

 

ActiveSheet.HPageBreaks.Add Rows(53)

[Nosila]

Perfeito!!!!!!

 

Valeu mesmo osvaldomp!!!!