Excel Código para imprimir frente/verso

[renatovds]

Boa noite!

 

Há algum código que eu possa colocar nessa macro abaixo para que as impressões saiam frente e verso? Eu tentei configurar a impressora para automaticamente já imprimir frente e verso mas não funcionou. Esse código é uma espécie de numeração automática da página de um documento que tenho.Toda vez que uma folha é impressa, a numeração muda. Mas queria que a impressão fosse frente/verso.

 

Sub PAGINA()
    Range("D24").Activate
    Y = ActiveCell.Value
    X = Range("E24").Value
    Do While Y < X
        ActiveWindow.SelectedSheets.PrintOut Copies:=1
'        M = MsgBox(Y)
        ActiveCell = Y + 1
        Y = ActiveCell
    Loop
        ActiveWindow.SelectedSheets.PrintOut Copies:=1
  
End Sub

 

 

 

Obrigado!

[CasaDoHardware]

A impressora precisa ter a propriedade de impressão frente e verso se nao você nao consegue.