Planilha anexa para melhor entendimento!!!

Obrigadaa!

Ja tentou isso

sub imprimir()

sheets("plan1").printpreview

end sub

Olá querido Boa tarde,

testei agora mais a barra de ferramentas de impressão, continua oculta.

Puxei reexbir na sub de impressão, também não funcionou!

Queridos(as),

preciso de ajuda para reexibir minha área de impressão, precisamente barra de ferramentas completa, usei o código a baixo para ocultar na planilha, porém quando é acionado o botão para salvar ou imprimir, a barra de ferramentas também é ocultada em área de impressão, limitando o usuário a imprimir ou salvar.

Podem por favor me auxiliar?!

Public Sub barras()

Dim barras
For Each barras In Application.CommandBars

barras.Enabled = False

Next
Application.DisplayFullScreen = True
ActiveWindow.DisplayHeadings = False

Application.DisplayFormulaBar = False

ActiveWindow.DisplayHorizontalScrollBar = False

ActiveWindow.DisplayVerticalScrollBar = False

ActiveWindow.DisplayWorkbookTabs = False

ActiveSheet.PrintPreview enablechanges:=True

End Sub

OBS: Sou aprendiz na projeção de programas em VBA, porém estou apaixonada pelas infinitas possibilidades que este recurso fornece. Quem puder auxiliar meu conhecimento neste primeiro trabalho a cima , fico imensamente agradecida desde já.

Abrir outro tópico com o mesmo título não vai fazer a resposta aparecer....

Abrir outro tópico com o mesmo título não vai fazer a resposta aparecer....

Olha, não tenho má intenção, honestamente, apenas achei que não usei a melhor expressão para entendimento da minha dificuldade no tópico que finalizei, por ser aprendiz em VBA.

Espero contar com a compreensão de outros usuários, já que a sua não foi aceita.

Mesmo assim agradeço seu retorno!

Boa tarde Aline

Para manter a organização do fórum, uni teus 2 tópicos, pois criar mais de um tópico sobre o mesmo assunto contaria as regras do fórum.

Quando desejar qualquer alteração na descrição, reabrir tópico, ou qualquer dúvida, basta enviar uma MP para um dos moderadores.

[]

Patropi - Modrador

Boa tarde Aline

Para manter a organização do fórum, uni teus 2 tópicos, pois criar mais de um tópico sobre o mesmo assunto contaria as regras do fórum.

Quando desejar qualquer alteração na descrição, reabrir tópico, ou qualquer dúvida, basta enviar uma MP para um dos moderadores.

[]

Patropi - Modrador

Ok, obrigada!

Ve se era isso que vc precisava....

Colocar tudo em 1 folha.

Ajustei a configuração que caso insira ou exclua linha modifique a largura, a planilha se auto ajusta em 1 folha de largura para 1 de altura.

É também, ficou ótima! Obrigada!!

A questão está no Modulo 07, para ocultar a barra de ferramentas na planilha, qdo faço o teste nela na planilha fica ok, é exatamente essa minha ideia, porém qdo entra na área de impressão a barra de ferramentas também fica ocultada, o que limita o usuário tanto para imprimir , qto para salvar, entende?!

Ja tentou colocar esses comandos na barra de acesso rapido.. a que fica acima das abas....

Mas se vc nao quer que o usuario mexa na planilha pq nao protege...

Bem mais simples.

Sim, ela será protegida, ai que está o problema, no acesso rápido ele não terá as opções de salvar ou imprimir pq na área de impressão está oculta,

então gostaria que na planilha a barra estivesse oculta e na área de impressão visible.

E não estou conseguindo entender o que pode ser alterado.

Estou anexando novamente a planilha, aperte o botão salvar e verá que na área de impressão, não tem opções de barras para salvamento ou impressão, como o usuário queira!!!

Percebi que vc deve imprimir e salvar em PDF no futuro, como isso é feito... vc visualiza a impressão para depois salvar em PDF?

Pq nao faz isso direto pelo codigo sem a necessidade de interferencia com o usuario.

Da ate pra salvar com o nome do aluno se quiser.

Da pra fazer isso direto no VBA.

Veja os ajustes que comentei so nao ajustei para salvar com o nome do aluno.

Querido, muitíssimo mas muito obrigada mesmo! Com a sua dica me fez pesquisar, pois estava dando um erro de compilação, e encontrei aqui no planilhando o código a baixo que atende perfeitamente o que imaginei no projeto!

Mais um vez obrigada por sua atenção e compreensão.. Grande Abraço.

Sub Criarpdf()
    
    Dim Filepdf, rNome, ePath, Filename As String

    rNome = "Ficha de Inscrição - Gestog Certificadora - NR12."
    ePath = "C:Seu_CaminhoMeus_Pdfs"
    
    Filename = Trim(rNome & ".Pdf")
    Filepdf = ePath & Trim("" & Filename)

    Sheets("plan1").Select

    Application.DisplayAlerts = False
    
    ActiveSheet.ExportAsFixedFormat Type:=xlTypePDF, Filename:=Trim(rNome & ".Pdf"), _
            Quality:=xlQualityMinimum, IncludeDocProperties:=True, IgnorePrintAreas:=False, _
            OpenAfterPublish:=True

    MsgBox "PDF gerado com sucesso!"
    
End Sub