Ir ao conteúdo

Posts recomendados

Postado

Pessoal,

 

Estou tentando imprimir automaticamente a mala direta em PDF e dar o nome do arquivo com 2 informações de dentro do word.

Alguém saberia como fazer?

 

Preciso que nesse trecho, conste 2 informações (Exemplo: Nome + Ticket) - nomeArquivo = ActiveDocument.MailMerge.DataSource.DataFields("Nome").Value

 

Código completo:

 

Sub SalvarComoPDF()



Dim qtde As Integer
Dim nomeArquivo As String
Dim registro As Integer



'Set Mail Merge in the first register
ActiveDocument.MailMerge.DataSource.ActiveRecord = wdFirstRecord



'Mail Merge Count
qtde = ActiveDocument.MailMerge.DataSource.RecordCount
'arquivo = ActiveDocument.MailMerge.DataSource.FieldNames(1).Name



'For to exportToPDF all registers
For registro = 1 To qtde



nomeArquivo = ActiveDocument.MailMerge.DataSource.DataFields("Nome").Value



ActiveDocument.ExportAsFixedFormat OutputFileName:= _

    "C:\Users\rosel\Desktop\Nome excel\Imp\" & nomeArquivo & ".pdf" _
    , ExportFormat:=wdExportFormatPDF, OpenAfterExport:=False, OptimizeFor:= _
    wdExportOptimizeForPrint, Range:=wdExportAllDocument, From:=1, To:=1, _
    Item:=wdExportDocumentContent, IncludeDocProps:=True, KeepIRM:=True, _
    CreateBookmarks:=wdExportCreateNoBookmarks, DocStructureTags:=True, _
    BitmapMissingFonts:=True, UseISO19005_1:=False

    ActiveDocument.MailMerge.DataSource.ActiveRecord = wdNextRecord

    Next registro

    End

End Sub


        

Postado

Bem vinda ao fórum, @Roseli!

 

Mas "Ticket" também é um campo de mala direta, tal como "Nome" é?

 

Se sim, bastaria você inserir mais uma linha naquele trecho para concatenar as 2 informações:

 

...
...
nomeArquivo = ActiveDocument.MailMerge.DataSource.DataFields("Nome").Value
'Acrescentar esta linha:
nomeArquivo = nomeArquivo & ActiveDocument.MailMerge.DataSource.DataFields("Ticket").Value
...
...

 

Se não for isso, anexe seu arquivo aqui no fórum zipando-o primeiro.

Crie uma conta ou entre para comentar

Você precisa ser um usuário para fazer um comentário

Criar uma conta

Crie uma nova conta em nossa comunidade. É fácil!

Crie uma nova conta

Entrar

Já tem uma conta? Faça o login.

Entrar agora

Sobre o Clube do Hardware

No ar desde 1996, o Clube do Hardware é uma das maiores, mais antigas e mais respeitadas comunidades sobre tecnologia do Brasil. Leia mais

Direitos autorais

Não permitimos a cópia ou reprodução do conteúdo do nosso site, fórum, newsletters e redes sociais, mesmo citando-se a fonte. Leia mais

×
×
  • Criar novo...

LANÇAMENTO!

eletronica2025-popup.jpg


CLIQUE AQUI E BAIXE AGORA MESMO!