Notifications
Clear all

Ajuda para imprimir em PDF

5 Posts
2 Usuários
0 Reactions
1,011 Visualizações
(@danielsc)
Posts: 4
New Member
Topic starter
 

Galera:

Não estou conseguindo desenvolver uma macro VBA para planilha em anexo, assim peço ajuda

dos senhores .

Onde:

A planilha em questão pega os dados da aba DADOS e cópia nas demais abas 1,2 ,3..9

preenche todas que possuem informação.

Assim gostaria que ao clicar no BOTAO IMPRIMIR PDF ela salvasse em PDF no “c:” somente

as abas que estão preenchidas conforme a planilha DADOS e renomeasse cada um desses PDF

com as informações das células F, B , C.

Até consegui iniciar o código mas não esta fluindo:

Sub pdf()

'imprimi planilhas preenchidas

Dim totalplan As Integer

Dim total As Integer

Dim i As Integer

totalplan = Worksheets.Count

Sheets(totalplan).Select

total = Worksheets("dados").Cells(65536, 1).End(xlUp).Row - 1

For i = totalplan - 1 To totalplan - total Step -1

Worksheets(i).Select

ActiveSheet.ExportAsFixedFormat Type:=xlTypePDF

Next i

End Sub

obrigado

 
Postado : 11/05/2014 9:28 am
Fernando Fernandes
(@fernandofernandes)
Posts: 43750
Illustrious Member
 

Boa tarde!!

Use a pesquisa do fórum, para tentar adaptar sua dúvida!
http://www.planilhando.com.br//forum/vi ... &hilit=pdf
http://www.planilhando.com.br//forum/vi ... &hilit=pdf
viewtopic.php?f=10&t=1520
viewtopic.php?f=10&t=4805
viewtopic.php?p=4288

Att

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

 
Postado : 11/05/2014 1:47 pm
(@danielsc)
Posts: 4
New Member
Topic starter
 

bom dia Alexandre:

Antes de fazer a pergunta já tinha analisado a pesquisa, e conforme a planilha em anexo até tentei mas não obtive exito.

Desde já agradeço a sua atenção.

 
Postado : 12/05/2014 9:15 am
Fernando Fernandes
(@fernandofernandes)
Posts: 43750
Illustrious Member
 

Experimente:

Sub pdf()
'imprimi planilhas preenchidas

Dim totalplan As Integer, total As Integer, i As Integer
Dim Nome As String, nPlan As String

total = Worksheets("dados").Cells(65536, 1).End(xlUp).Row - 1

For i = 1 To total
    nPlan = i: Nome = Format(Sheets("dados").Range("F" & i + 1), "0000") & "-" & Sheets("Dados").Range("B" & i + 1)
    Sheets(nPlan).Select
    Sheets(nPlan).ExportAsFixedFormat Filename:=Nome, Type:=xlTypePDF
Next

End Sub

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

 
Postado : 12/05/2014 9:43 am
(@danielsc)
Posts: 4
New Member
Topic starter
 

Reinaldo

Muito obrigado pela ajuda, adaptei o seu código com a minha necessidade.

 
Postado : 13/05/2014 9:16 am