Imprimir Frente e verso

Olá, algum abençoado poderia me ajudar: Gostaria de imprimir frente e verso no codigo abaixo: Mas nunca achei a solução do dublex no vba, até usando o chat gpt não achei a resposta.
Gostaria de um codigo que funcionasse,

Sub LOO()
Application.Dialogs(xlDialogPrinterSetup).Show
Dim i As Integer
Dim COL As Integer
COL = 2
For i = 1 To 2
Sheets("BASE").Range("A5").Value = Sheets("PLAN").Range("A34").Value
Sheets("BASE").Range("D2").Value = Sheets("PLAN").Cells(1, COL).Value
Sheets("BASE").Range("H5").Value = Sheets("PLAN").Cells(2, COL).Value
Sheets("BASE").Range("E5").Value = Sheets("PLAN").Cells(3, COL).Value
Sheets("BASE").Range("L5").Value = Sheets("PLAN").Cells(4, COL).Value
Sheets("BASE").Range("P5").Value = Sheets("PLAN").Cells(5, COL).Value
Sheets("BASE").Range("T5").Value = Sheets("PLAN").Cells(6, COL).Value
Sheets("BASE").PrintOut copies:=1
COL = COL + 1
Next i
End Sub