Excel Imprimir Frente e Verso

[Victor Comparini]

Olá, Bom dia.

Mais uma vez venho pedir uma ajuda em algo não consegui encontrar uma solução pesquisando, porém várias cabeças pensam melhor do que uma, e sei que tem vários aqui que tem muito mais conhecimento do que eu.

 

Meu problema é o seguinte:

Tenho uma impressora Samsung K7600LX.

Criei uma planilha que vai imprimir um caderno com páginas frente e verso, porém, não sei qual é o código para que o VBA configure isso automaticamente.

 

Tentei a opção de iniciar a gravação da macro e fazer isso, porém na gravação não retorna nenhum código.

 

[CasaDoHardware]

Minha sugestão:

 

Imprima paginas impares, depois paginas pares.

 

Outra possibilidade, é abrir a caixa de dialogo de impressão para imprimir conforme sua necessidade.

[Victor Comparini]

@CasaDoHardware

 

minha planilha é uma macro que coloca a data na célula e imprime a página frente e verso, logo após isso, a macro acrescenta 1 dia na célula e imprime de novo, assim faz para todos os dias do mês selecionado.

 

A ideia dessa planilha é que seja automática, pois não sou o único que imprime, e os outros usuários nem sempre sabem configurar a impressora pra isso e acaba imprimindo tudo em só lado e desperdiça as folhas impressas, ou tem o trabalho e colocar as folhas impressas na impressora viradas para baixo e imprimir novamente, aí é mais trabalho manual ainda.

 

Por isso minha necessidade seria configurar isso automaticamente.

 

Mas muito obrigado pela sua sugestão e prestatividade em responder o post.

[Basole]

Experimente acrescentar na sua macro: 

     With ActiveSheet.PageSetup
          .Order = xlOverThenDown '<~~ Frente verso        
     End With

 

[Victor Comparini]

Em 25/11/2019 às 22:43, Basole disse:

Experimente acrescentar na sua macro: 

     With ActiveSheet.PageSetup
          .Order = xlOverThenDown '<~~ Frente verso        
     End With

 

 

Olá, Basole.

 

Obrigado por sua resposta, mas isso não funcionou. Acrescentando essas linhas ao código sem configurar manualmente, todas as páginas saem em apenas um lado.

 

Segue código abaixo: