×
Ir ao conteúdo
  • Cadastre-se

Roseli

Membro Júnior
  • Posts

    1
  • Cadastrado em

  • Última visita

Reputação

0
  1. 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

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...

Como ganhar dinheiro montando computadores!

MINICURSO GRÁTIS!

Como ganhar dinheiro montando computadores!

CLIQUE AQUI E INSCREVA-SE AGORA MESMO!