Combinacion correspondencia a pdf

Hola Tony,


En mi primera respuesta te deje un link para que vieras como realizar una
combinacion de correspondencia, me dijiste que ya sabias realizarla El
codigo que expones no lleva combinacion de correspondencia el codigo >>

Simplemente abre un documento de Word que lleva YA la combinacion e intenta
enviar un resultado de una operacion de combinacion de correspondencia a un
nuevo documento ... en >>

.Destination = wdSendToNewDocument

Por lo tanto he supuesto que el archivo que lleva >>>> la combinacion es el
archivo segun tu codigo me vuelvo a repetir es el >>

FileName:="""Nuevo.doc"""

Logicamente el codigo de Imprimir te dara error en la linea que dices >>

ActiveDocument.MailMerge.DataSource.ActiveRecord = wdFirstRecord

Porque realizas una combinacion completa en un nuevo documento de
[cartas.doc ] mediante la linea >>

Destination = wdSendToNewDocument

Por lo tanto el codigo para [ imprimir en PDF ] debes de ponerlo en el
documento [ Nuevo.doc ] y probar ahi el codigo ANTES de mandarlo a combinar
.ya que el codigo se encargara de combinar cada registro en un PDF

Lo que no entiendo es que preguntaras como realizar una combinacion de
correspondencia si lo que necesitabas era abrir un Archivo de Word que ya
lleva su combinacion de correspondencia ????

comentanos...!

Saludos
Monica

Os dejo el código para que hagais el favor de decirme algo:

Sub Macro2()
'
' Macro2 Macro
' Macro grabada el 24/09/2009 por Antonio
'
ChangeFileOpenDirectory _
"C:\Documents and Settings\s138\Mis documentos\protocolo\"
Documents.Open FileName:="""Nuevo.doc""", ConfirmConversions:= _
False, ReadOnly:=False, AddToRecentFiles:=False,
PasswordDocument:="", _
PasswordTemplate:="", Revert:=False, WritePasswordDocument:="", _
WritePasswordTemplate:="", Format:=wdOpenFormatAuto
With ActiveDocument.MailMerge
.Destination = wdSendToNewDocument
.MailAsAttachment = False
.MailAddressFieldName = ""
.MailSubject = ""
.SuppressBlankLines = True
With .DataSource
.FirstRecord = wdDefaultFirstRecord
.LastRecord = wdDefaultLastRecord
End With
.Execute Pause:=True
End With
Dim i As Long
Dim x As Integer
i = 10
ActiveDocument.MailMerge.DataSource.ActiveRecord = wdFirstRecord
Do While x < i
x = x + 1
ActivePrinter = "PDFCreator"
On Error Resume Next
Application.PrintOut FileName:="", _
Range:=wdPrintAllDocument, _
Item:=wdPrintDocumentContent, _
Copies:=1, _
Pages:="", _
PageType:=wdPrintAllPages, _
Collate:=True, _
Background:=True
ActiveDocument.MailMerge.DataSource.ActiveRecord = wdNextRecord
Loop
End Sub