Função Duplex com vba

Question

Na parte .PrintDuplex = xlPrintDuplexVertical não funciona da erro. Como fazer que funcione?

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

    ' Configurar a impressão frente e verso

    With Sheets("BASE").PageSetup

        .PrintQuality = 600 ' Altere o valor conforme necessário

        .PrintDuplex = xlPrintDuplexVertical ' Define a impressão como vertical (frente e verso)

    End With

    Sheets("BASE").PrintOut Copies:=1

    COL = COL + 1

Next i

End Sub

Answer 1

Esta resposta foi traduzida automaticamente. Como resultado, pode haver erros gramaticais ou palavras estranhas.

Olá Felix Siano,

Obrigado por postar nos fóruns da Comunidade Microsoft. Espero que você esteja indo bem.

Para melhor ajudá-lo com sua preocupação, recomendamos que você publique sua preocupação em nosso fórum de perguntas e respostas da Microsoft para saber mais sobre os códigos VBA corretos para o que você está tentando alcançar. Dessa forma, os especialistas nesses fóruns poderão fornecer informações mais específicas sobre sua preocupação, para que você possa obter exatamente o resultado desejado. Queremos que você obtenha exatamente as informações e alcance o resultado desejado. Deixaremos esse tópico aberto caso algumas VMs ou outra comunidade queiram participar.

Agradecemos a sua compreensão.

Sinceramente

ReynaldoB

Moderador do Fórum da Comunidade Microsoft