Este fórum está sendo desativado

[alxndd]

Boa tarde
Estou com uma problema com um código vba, o que acontece que quando aciono ele para imprimir , esta imprimindo 1 pagina em branco , a pagina que necessito e outra pagina em branco. como corrigir ?

Código: Selecionar todos

Sub Imprimir()
'Escolha a impressora
    ActiveWindow.SelectedSheets.PrintOut ActivePrinter:="HP"
'Selecione e visualize o intervalo
    ActiveSheet.Range("C1404:X1449").PrintOut
    ActiveWindow.SelectedSheets.PrintPreview
'Cópias
    ActiveWindow.SelectedSheets.PrintOut Copies:=1
    
End Sub

Segue acima o codigo e em anexo a planilha !
Desde já obrigado

[eduardogrigull]

Aqui funciona Ok. Voce só precisa definir a área de impressão corretamente, e deixar o código só assim:

Código: Selecionar todos

ActiveWindow.SelectedSheets.PrintOut ActivePrinter:="HP"

Selecione o Primeiro recibo e clique em "Definir área de impressão".
Depois, selecione o segundo, e clique em "Adicionar a área de impressão" e repita com o 3o recibo.
Essa opção está na guia "Layout da página"

[alxndd]

Deu certo ! Muito obrigado !