Imprimir só determinadas células excel 2007  [Resolvido]

Visual Basic for Aplication e macros no Excel.
Regras do fórum
Sua dúvida foi respondida? Marque como RESOLVIDO em seus tópicos, usando o botão com marca verde. Imagem

Imprimir só determinadas células excel 2007

Mensagempor Bikke » Qui Nov 07, 2019 9:53 pm

Boa noite

Venho solicitar ajuda.

Pretendo que, ao clicar num botão, o código VBA me oculte algumas colunas e imprima o restante.

A área a imprimir é de A3 a CB46, mas, pretendo que antes de imprimir me oculte as colunas O a AF.

Após imprimir, reponha tudo novamente.

Obrigado desde já.

Cumprimentos

Planilha
https://www.sendspace.com/file/18xizp
Bikke
Membro
Membro
 
Mensagens: 8
Registrado em: Qui Abr 17, 2014 4:00 pm
Has thanked: 8 times
Have thanks: 0 time

{ SO_SELECT }

Re: Imprimir só determinadas células excel 2007

Mensagempor wagner » Sex Nov 08, 2019 12:33 pm

Bikke,

Bom dia!

Faça assim.
Código: Selecionar todos
    Columns("O:AF").Select
    Selection.EntireColumn.Hidden = True
    ExecuteExcel4Macro "PRINT(1,,,1,,,,,,,,2,,,TRUE,,FALSE)"
    Columns("N:AG").Select
    Selection.EntireColumn.Hidden = False
Se a resposta foi útil para você, por gentileza, Amigo, clique na mãozinha ao lado direito da ferramenta CITAR, no canto superior direito.

Atenciosamente
Wagner Morel
Avatar do usuário
wagner
Moderador
Moderador
 
Mensagens: 5547
Registrado em: Sáb Out 20, 2012 12:49 pm
Localização: Fortaleza - CE
Has thanked: 102 times
Have thanks: 2356 times

Re: Imprimir só determinadas células excel 2007

Mensagempor Bikke » Sáb Nov 09, 2019 4:05 pm

Boa noite

Obrigado desde já pela sua ajuda.

O código a colocar no botão para imprimir é só assim ou falta mais alguma parte??

É que não imprime nada, sai a folha em branco.

Cumprimentos
Bikke
Membro
Membro
 
Mensagens: 8
Registrado em: Qui Abr 17, 2014 4:00 pm
Has thanked: 8 times
Have thanks: 0 time

Re: Imprimir só determinadas células excel 2007

Mensagempor wagner » Sáb Nov 09, 2019 9:23 pm

Você tem que colocar dentro da procedure do botão.
Se a resposta foi útil para você, por gentileza, Amigo, clique na mãozinha ao lado direito da ferramenta CITAR, no canto superior direito.

Atenciosamente
Wagner Morel
Avatar do usuário
wagner
Moderador
Moderador
 
Mensagens: 5547
Registrado em: Sáb Out 20, 2012 12:49 pm
Localização: Fortaleza - CE
Has thanked: 102 times
Have thanks: 2356 times

Re: Imprimir só determinadas células excel 2007

Mensagempor Bikke » Sáb Nov 09, 2019 11:02 pm

Boa noite

Sim, foi colocado isso que você me deu, mas não dá, imprime a folha em branco, não sai nada.

Código: Selecionar todos
Sub PRINT_ESCALA()

    Columns("O:AF").Select
    Selection.EntireColumn.Hidden = True
    ExecuteExcel4Macro "PRINT(1,,,1,,,,,,,,2,,,TRUE,,FALSE)"
    Columns("A:CB").Select
    Columns("N:AG").Select
   Selection.EntireColumn.Hidden = False

End Sub
Bikke
Membro
Membro
 
Mensagens: 8
Registrado em: Qui Abr 17, 2014 4:00 pm
Has thanked: 8 times
Have thanks: 0 time

Re: Imprimir só determinadas células excel 2007  [Resolvido]

Mensagempor Bikke » Seg Nov 11, 2019 3:50 pm

Após procurar na net encontrei algumas coisas e testei na minha planilha e encontrei o que pretendia..

Código: Selecionar todos
Sub PRINT_ESCALA()
  Sheets("ESCALA").Unprotect "123"
  Columns("O:AF").Hidden = True
  Sheets("ESCALA").Select
  ActiveWindow.SelectedSheets.PrintOut Copies:=1, Collate:=True
  Sheets("ESCALA").Select
  Columns("O:AF").Hidden = False
  Sheets("ESCALA").Protect "123"
End Sub


Obrigado na mesma Wagner.

Cumprimentos
Bikke
Membro
Membro
 
Mensagens: 8
Registrado em: Qui Abr 17, 2014 4:00 pm
Has thanked: 8 times
Have thanks: 0 time


Voltar para VBA & Macros

Quem está online

Usuários navegando neste fórum: Bautto, Google Adsense [Bot] e 13 visitantes