Boa noite,

Uma sugestão é copiar os valores para uma outra planilha e imprimir.

Dê uma olhada no código que está no módulo1.

att,

Beleza cara isso mesmo. Tem como ele imprimir automatica duas páginas por folha? se não tiver como , como faz pra ele ja abrir aquela tela pra imprimir que ai no caso eu so faço colocar a opcao e mandar imprimir, pq só o fato dele ja ta selecionado e sem a cor de fundo ja agiliza bastante.

Em relacao ao código esses códigos Range("B9").Select e Range("D12").Select ele faz o que? o A1 e o C8 que tem la eu entendi que é as celulas em questao.

Muito obrigado desde já.

Boa dia,

Duas páginas por folha? Você quer copiar valor de outra aba também?

Range("B9").Select e Range("D12").Select, selecionam as células B9 e B12.
Mas o código é o que está no módulo1. O módulo2 esqueci de deletar, estava só testando com o gravador de macros.

att,

Boa tarde,

Sim duas páginas por folha, não é porque a planilha original tem bem mais informacoes no caso a selecao vai do A1:E177 porque antes eu tinha que copiar apenas as celulas que eu queria levava pro word tirava a cor de fundo da celula e mandava imprimir e a função duas páginas por folha pra economizar papel. essa quantidade de celulas nessa opcao cabe em duas folhas e fica bem legivel. a opção que tem no word é essa que tem no print. ai no caso gostaria de saber se tem a possibilidade de quando apertar o botão ja imprimir assim, se não tiver que ele faça todo o processo e abra aquela tela de imprimir pra eu colocar a opcao e clicar em imprimir, ja facilita bastante o trabalho.

Boa tarde, kayomaster!

Será que é isso que vc deseja?

é sendo que tem q ta sem a cor de fundo na hora de imprimir como tava antes

Boa tarde kayomaster,

No arquivo que anexei, substitua o código no módulo1 por esse aqui:

Sub Copiar_E_Imprimir()
    
    ThisWorkbook.Activate
    
    Dim WsImprimir      As Worksheet: Set WsImprimir = Sheets("Imprimir")
    
    Dim Nlin            As Double: Nlin = Range("A1048575").End(xlUp).Row
        
    'Limpar valores anteriores
    WsImprimir.Range("A1:C" & Nlin).Clear
    
    'Vai os valores para a planilha Imprimir
    WsImprimir.Range("A1:C8").Value = Range("A1:C8").Value
    
    'Seleciona a manda imprimir
    WsImprimir.Select
    'A próxima linha pode ser pega usando o gravador de Macros
    
    Application.Dialogs(xlDialogPrinterSetup).Show
    'ActiveWindow.SelectedSheets.PrintOut Copies:=1, Collate:=True, _
        IgnorePrintAreas:=False
    
    
End Sub

teste e dê retorno.

att,

Olá o ultimo anexo seu só tem modulo dois, é nele que é pra fazer né? entao substitui o codigo ele me pergunta qual impressora imprimir coloco vou na configuracao ponho duas paginas por folha e quando aperto em OK ele nao faz nada. precisa ativar alguma outra referencia? segue em anexo os prints

Não, esse arquivo que você colocou é o postado por Romanha.

O que eu postei tem o módulo1, é nele que você deve testar. No caso, só acrescentei uma tela para configurar a impressora (colocar duas páginas etc...).

Você pode alternativamente utilizar o gravador de macro para a impressão de duas páginas, copiar o código e substituir.

att,

ola acontece a mesma coisa conforme mostrado no print. ele mostra a caixa de opcoes de impressoras e apos apertar OK não acontece nada.

Boa tarde,

No caso então, use o gravador de macro (já selecionando as opções desejadas de impressão) e substitua o código no final.

att,

vixe num entendi nao.. '-' . no caso o codigo ta funcionando ai? alguem testou? quando aperta em ok imprimi?

Bom dia?

Você não anexou nenhum print.

[]s

Boa tarde,
ja havia mandado um print logo no inicio com o problema a diferenca era que o arquivo era de outra pessoa que enviou por aqui, mas ai colei o arquivo correto do jeito que foi orientado mas deu o mesmo problema aperto ok e nao imprimi n faz nada, nao vai nem pra barra de baixo o link da impressora.