Fóruns
Microsoft Excel - 2...
2024 - VBA & Macros
Macro para imprimir...
 
Notifications
Clear all

Macro para imprimir em PDF

 
Página 1 / 2
2024 - VBA & Macros
Post Recente por jdutra6 9 anos atrás
27 Posts
3 Usuários
0 Reactions
3,453 Visualizações
RSS
 jdutra6
(@jdutra6)
Posts: 20
Eminent Member
Topic starter
 

Galera, boa tarde.

Estou com uma macro aqui, no entanto está dando erro constantemente, já tentei várias mudanças, porém nenhum resultado positivo. A macro consiste na impressão em PDF de algumas abas, com o um nome específico, se possível gostaria também que qualquer linha em branco após a última linha preenchida fosse excluida para que na hora da impressão a mesma saia correta. Segue Macro:

Sub PDTVS()
'
' PDTVS Macro
'

'
    Sheets("Fundam").Select
    Rows("85:85").Select
    Range(Selection, Selection.End(xlDown)).Select
    Selection.Delete Shift:=xlUp
    Sheets("Básico").Select
    Rows("81:81").Select
    Range("G81").Activate
    Range(Selection, Selection.End(xlDown)).Select
    Selection.Delete Shift:=xlUp
    Sheets("Senior").Select
    ActiveSheet.Unprotect
    ActiveWindow.SmallScroll Down:=30
    Rows("89:89").Select
    Range("H89").Activate
    Range(Selection, Selection.End(xlDown)).Select
    Selection.Delete Shift:=xlUp
    Sheets("Master").Select
    ActiveSheet.Unprotect
    ActiveWindow.SmallScroll Down:=27
    Rows("87:87").Select
    Range("H87").Activate
    Range(Selection, Selection.End(xlDown)).Select
    Selection.Delete Shift:=xlUp
    Dim ws As Worksheet
  For Each ws In Worksheets
   If ws.Name = "Fundam" Or ws.Name = "Básico" Or ws.Name = "Senior" Or ws.Name = "Master" Then
    ActiveSheet.ExportAsFixedFormat Type:=xlTypePDF, Filename:= _
"w:RelatórioRelatório " & PDTS & SERIE & F & 5005 & FUNDAMENTAL & (V25) & - & BONUS & - & ws.Name & Format(Date, " dd.mm.yyyy") & ".pdf", Quality:=xlQualityStandard, _
IncludeDocProperties:=True, IgnorePrintAreas:=False, OpenAfterPublish:=False

Vale ressaltar que a parte superior é apenas para a exclusão das linhas sobressalentes.

Agradeço desde já, tenham todos uma boa tarde!!! :D :D :D :D :D :D

 
Postado : 09/05/2016 11:29 am
 MPrudencio
(@mprudencio)
Posts: 2749
Famed Member
 

Disponibilize o arquivo, com a macro completa, dados importantes devem ser protegidos

Marcelo Prudencio
Microsoft Excel Brasil no Facebook

"Começar já é a metade do caminho."
Autor Desconhecido

Simplifica que simples fica.
Nicole Tomazella.

"O Simples é Sempre Melhor Que o Complicado"
Jorge Paulo Lemann.

 
Postado : 09/05/2016 2:40 pm
 jdutra6
(@jdutra6)
Posts: 20
Eminent Member
Topic starter
 

Prudencio essa é a macro completa

 
Postado : 10/05/2016 7:07 am
Fernando Fernandes
 Fernando Fernandes
(@fernandofernandes)
Posts: 43750
Illustrious Member
 

Sem visualizar sua planilha fica um tanto quanto dificil.
Voce diz que a macro está completa, mas na formação da descrição/nome do arquivo pdf existem algumas variavesi que não foram/estão definidas na rotina:

w:RelatórioRelatório " & PDTS & SERIE & F & 5005 & FUNDAMENTAL & (V25) & - & BONUS & - &

Os itens em vermelho não encontrei a definição de seus valores, para os dois hifens (antes e depois de BONUS) devem ficar entre aspas duplas

& "-" & BONUS & "-" &

Sua rotina poderia ser (depois de arrumada a montagem da descrição):

[code]Sub PDTVS()

Dim ws As Worksheet
Dim UltimaLinha As Integer

For Each ws In Worksheets
If ws.Name = "Fundam" Or ws.Name = "Básico" Or ws.Name = "Senior" Or ws.Name = "Master" Then

UltimaLinha = ActiveSheet.Cells(Rows.Count, 2).End(xlUp).Row
'Altere aqui sua range
Range("A1:H" & UltimaLinha).Select

Selection.ExportAsFixedFormat Type:=xlTypePDF, Filename:= _
"w:RelatórioRelatório " & PDTS & SERIE & F & 5005 & FUNDAMENTAL & (V25) & "-" & BONUS & "-" & ws.Name & Format(Date, " dd.mm.yyyy") & ".pdf", Quality:=xlQualityStandard, _
IncludeDocProperties:=True, IgnorePrintAreas:=False, OpenAfterPublish:=False

End Sub[/code]

Existem mil maneiras de preparar Neston. Invente a sua!
http://www.youtube.com/ExpressoExcel

 
Postado : 10/05/2016 8:45 am
 jdutra6
(@jdutra6)
Posts: 20
Eminent Member
Topic starter
 

Reinaldo perdão, agora entendi, no caso w:RelatórioRelatório " & PDTS & SERIE & F & 5005 & FUNDAMENTAL & (V25) & - & BONUS & - & se refere ao nome, ou seja, temos as abas Fundam, Básico, Senior, Master. preciso que o nome do arquivo seja salvo como Relatório PDTS SERIE F 5005 xxx(O nome da aba) (V25) - BONUS - DATA

 
Postado : 10/05/2016 8:58 am
 jdutra6
(@jdutra6)
Posts: 20
Eminent Member
Topic starter
 

Peço desculpa, pois como sou estagiário em uma empresa multinacional, não posso liberar os relatório, nem mesmo a interface. Mas muiiiiito obrigado pela ajuda

 
Postado : 10/05/2016 8:59 am
Fernando Fernandes
 Fernando Fernandes
(@fernandofernandes)
Posts: 43750
Illustrious Member
 

Não entendi?

Existem mil maneiras de preparar Neston. Invente a sua!
http://www.youtube.com/ExpressoExcel

 
Postado : 10/05/2016 10:20 am
 jdutra6
(@jdutra6)
Posts: 20
Eminent Member
Topic starter
 

Segue planilha para uma melhor explicação. :) Obrigado Reinaldo.

 
Postado : 10/05/2016 10:39 am
 MPrudencio
(@mprudencio)
Posts: 2749
Famed Member
 

Em que linha esta o titulo das planilhas?

Marcelo Prudencio
Microsoft Excel Brasil no Facebook

"Começar já é a metade do caminho."
Autor Desconhecido

Simplifica que simples fica.
Nicole Tomazella.

"O Simples é Sempre Melhor Que o Complicado"
Jorge Paulo Lemann.

 
Postado : 10/05/2016 4:28 pm
 jdutra6
(@jdutra6)
Posts: 20
Eminent Member
Topic starter
 

Marcelo, o título das Planilhas precisa estar em alguma linha... Entendi, podemos inserir na célula A1, o que acha?

 
Postado : 11/05/2016 5:25 am
 MPrudencio
(@mprudencio)
Posts: 2749
Famed Member
 

Entenda o seguinte se eu considerar a linha 1 os titulos e eles forem na 5 vai gerar erro na hora de executar o codigo
Por isso que o layout deve ser igual a original

Marcelo Prudencio
Microsoft Excel Brasil no Facebook

"Começar já é a metade do caminho."
Autor Desconhecido

Simplifica que simples fica.
Nicole Tomazella.

"O Simples é Sempre Melhor Que o Complicado"
Jorge Paulo Lemann.

 
Postado : 11/05/2016 6:23 am
 jdutra6
(@jdutra6)
Posts: 20
Eminent Member
Topic starter
 

Não se preocupe quanto ao titulo não tem titulo. Pode considerar a linha 1. O titulo eu vou colocar manualmente, é como se o quadrado que eu coloquei no exemplo fosse a área de impressão intende, sendo só o quantitativo de linhas variável.

tenho que imprimir todo o conteudo em PDF, mesmo que fique pequeno. eles darão zoom para ler

 
Postado : 11/05/2016 12:00 pm
 MPrudencio
(@mprudencio)
Posts: 2749
Famed Member
 

Vai gerar o PDF apenas da linha 58 para baixo???

Marcelo Prudencio
Microsoft Excel Brasil no Facebook

"Começar já é a metade do caminho."
Autor Desconhecido

Simplifica que simples fica.
Nicole Tomazella.

"O Simples é Sempre Melhor Que o Complicado"
Jorge Paulo Lemann.

 
Postado : 11/05/2016 2:18 pm
 MPrudencio
(@mprudencio)
Posts: 2749
Famed Member
 

Vai gerar o PDF apenas da linha 58 para baixo???

A partir da coluna D?

PS Moderação favor apagar a mensagem anterior e editar essa para apagar esse aviso.

Obrigado

Marcelo Prudencio
Microsoft Excel Brasil no Facebook

"Começar já é a metade do caminho."
Autor Desconhecido

Simplifica que simples fica.
Nicole Tomazella.

"O Simples é Sempre Melhor Que o Complicado"
Jorge Paulo Lemann.

 
Postado : 11/05/2016 2:32 pm
 jdutra6
(@jdutra6)
Posts: 20
Eminent Member
Topic starter
 

Não, será gerado o PDF dela toda da coluna A e linha 1 até o fim, podendo ser também a partir da linha 2 e coluna A, da no mesmo.

 
Postado : 12/05/2016 5:04 am
Página 1 / 2
Forum Jump:
  Tópico Anterior
Próximo Tópico