Bom dia ISIDRO2016

Movi teu tópico para VBA & Macros que é o assunto da tua dúvida, pois onde você havia postado é exclusivo para sugestões, críticas e reclamações sobre o fórum.

Da próximas vez, compacte os arquivos antes de anexar, conforme as regras do fórum.

[]s

Patropi - Moderador

Bom dia ISIDRO2016,

Tente o código abaixo:

    ActiveSheet.PageSetup.PrintArea = "B1:B12"
    ActiveWindow.SelectedSheets.PrintOut Copies:=1
    Range("C2").Select

Obrigado, funcionou.
desculpe o erro da postagem e da próxima vez vou compactar os arquivos anexados.
Ainda não estou conseguindo marcar como resolvido.

achei o botão e já coloquei como resolvido.

Sim, mas te oriento que você deve marcar Resolvido, na resposta que resolveu a tua dúvida e não na tua mensagem com você fez.
E já marquei a correta.

Quando você marca como resolvido, eu tranco o tópico.

[]s

Patropi - Moderador