Notifications
Clear all

Macro Formatar texto antes de gerar PDF

5 Posts
2 Usuários
0 Reactions
1,449 Visualizações
engeel2014
(@engeel2014)
Posts: 207
Estimable Member
Topic starter
 

Boa noite pessoal, minha dúvida é a seguinte, tenho uma planilha que gera um relatório final, e este relatório pode variar de tamanho e preciso que quando for gerar o PDF o texto seja formatado conforme explicado no documento anexo. Preciso que em algumas linhas fiquem em negrito e com tamanho 14 conforme algumas condições. A planilha anexa não é a original, mas se alguém puder me ajudar com a macro, poderei implementá-la na minha planilha utilizando-a com alterações.

Lucélio Ferreira dos Santos
Eng. Eletricista
CREA: DF-7165/TD
[email protected]

 
Postado : 02/03/2014 6:01 pm
Fernando Fernandes
(@fernandofernandes)
Posts: 43750
Illustrious Member
 

Boa noite!!!
Talvez uma forma seria............

Sub UsePesquisaForum()
'Para criar Excel para PDF
'http://www.planilhando.com.br/forum/viewtopic.php?f=10&t=10446
'http://www.planilhando.com.br/forum/viewtopic.php?f=10&t=7992
'http://www.planilhando.com.br/forum/viewtopic.php?f=10&t=5787
'http://www.planilhando.com.br/forum/viewtopic.php?f=20&t=1725
'http://www.planilhando.com.br/forum/viewtopic.php?f=10&t=10229
'http://www.planilhando.com.br/forum/viewtopic.php?f=10&t=8173
'http://www.planilhando.com.br/forum/viewtopic.php?f=23&t=10760
Dim cell As Range
For Each cell In Range("B3:B50000")
If cell.Value = "a - Iluminação e tomadas" Then
cell.Font.Bold = True
ElseIf cell.Value = "b5 - Demais aparelhos" Then
cell.Font.Bold = True
ElseIf cell.Value = "CALCULO DE DEMANDA DAS LOJAS (Dlojas)" Then
cell.Font.Size = 14
cell.Font.Name = "Colibri"
cell.Font.Bold = True
ElseIf cell.Value = "CALCULO DE DEMANDA DO CONDOMINIO (Dcond.)" Then
cell.Font.Size = 14
cell.Font.Name = "Colibri"
cell.Font.Bold = True
ElseIf cell.Value = "CALCULO DE DEMANDA DOS APARTAMENTOS (Dapto)" Then
cell.Font.Size = 14
cell.Font.Name = "Colibri"
cell.Font.Bold = True
ElseIf cell.Value = "DEMANDA DOS APARTAMENTOS (Dapto)" Then
cell.Font.Size = 14
cell.Font.Name = "Colibr"
cell.Font.Bold = True
End If
Next cell
End Sub

Att

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

 
Postado : 02/03/2014 6:53 pm
engeel2014
(@engeel2014)
Posts: 207
Estimable Member
Topic starter
 

Boa noite Alexandre. Muito obrigado pela ajuda. Só aproveitando a oportunidade, caso possa me ajudar, estou precisando também de um código para impressão. A minha área de impressão já é previamente definida, porém o meu formulário varia e quando peço pra gerar PDF ou imprimir o documento sai com algumas paginas em branco caso seja menor que a área de impressão. Queria um código que verificasse a quantidade de linhas preenchidas e no momento da impressão a aea de impressão fosse do tamanho do texto sem imprimir paginas em branco. Obrigado.

Lucélio Ferreira dos Santos
Eng. Eletricista
CREA: DF-7165/TD
[email protected]

 
Postado : 03/03/2014 8:03 pm
Fernando Fernandes
(@fernandofernandes)
Posts: 43750
Illustrious Member
 

Boa noite!!

Use a pesquisa do fórum!!
viewtopic.php?f=10&t=5193&hilit=pdf

Att

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

 
Postado : 04/03/2014 3:16 pm
engeel2014
(@engeel2014)
Posts: 207
Estimable Member
Topic starter
 

OK amigo muito obrigado.

Lucélio Ferreira dos Santos
Eng. Eletricista
CREA: DF-7165/TD
[email protected]

 
Postado : 05/03/2014 3:44 pm