Hi, I hope someone can help.

I have a merged word document with more than 200 unique pages created using 
data from an excel file. I always have to go one by one printing a pdf. I 
select a specific merged field, copy, print, pdf, "paste" for the file name, 
next, and again....

I there a way to make this process easier.


Thank you,

Andrew

See the "Individual Merge Letters" item on fellow MVP Graham Mayor's website 
at:

http://www.gmayor.com/individual_merge_letters.htm

If you are using Word XP or later, the "Add-in to Merge Letters to Separate 
Files" that I have written and that can be downloaded from that site will 
allow you to create each letter as a separate file with a filename taken 
from a field in the data source with a minimum of fuss.


-- 
Hope this helps.

Please reply to the newsgroup unless you wish to avail yourself of my
services on a paid consulting basis.

Doug Robbins - Word MVP

"ANDNAND"  wrote in message 
news:E4B47129-C01D-4415-AB98-AAB3CE3AFC8C@microsoft.com...
> Hi, I hope someone can help.
>
> I have a merged word document with more than 200 unique pages created 
> using
> data from an excel file. I always have to go one by one printing a pdf. I
> select a specific merged field, copy, print, pdf, "paste" for the file 
> name,
> next, and again....
>
> I there a way to make this process easier.
>
>
> Thank you,
>
> Andrew
>
>

I was trying something like this, simpler, but I cant get it to work...


Sub PRINTPDF()
'
' PRINTPDF Macro
' Macro recorded 6/2/2008 by DELL
'
Dim i As Long
' i = ActiveDocument.MailMerge.DataSource.RecordCount
i = 5
ActiveDocument.MailMerge.DataSource.ActiveRecord = wdFirstRecord

Do While intCounter < i
intCounter = intCounter + 1

ActivePrinter = "Adobe PDF"
Application.PrintOut FileName:="""INVOICE_No2""", Range:=wdPrintCurrentPage, 
Item:= _
        wdPrintDocumentContent, Copies:=1, Pages:="", 
PageType:=wdPrintAllPages, _
        ManualDuplexPrint:=False, Collate:=True, Background:=True, 
PrintToFile:= _
        False, PrintZoomColumn:=0, PrintZoomRow:=0, PrintZoomPaperWidth:=0, _
        PrintZoomPaperHeight:=0

ActiveDocument.MailMerge.MainDocumentType = wdNotAMergeDocument
ActiveDocument.SaveAs
ActiveWindow.Close
ActiveDocument.MailMerge.DataSource.ActiveRecord = wdNextRecord

Loop
End Sub




"Doug Robbins - Word MVP" wrote:

> See the "Individual Merge Letters" item on fellow MVP Graham Mayor's website 
> at:
> 
> http://www.gmayor.com/individual_merge_letters.htm
> 
> If you are using Word XP or later, the "Add-in to Merge Letters to Separate 
> Files" that I have written and that can be downloaded from that site will 
> allow you to create each letter as a separate file with a filename taken 
> from a field in the data source with a minimum of fuss.
> 
> 
> -- 
> Hope this helps.
> 
> Please reply to the newsgroup unless you wish to avail yourself of my
> services on a paid consulting basis.
> 
> Doug Robbins - Word MVP
> 
> "ANDNAND"  wrote in message 
> news:E4B47129-C01D-4415-AB98-AAB3CE3AFC8C@microsoft.com...
> > Hi, I hope someone can help.
> >
> > I have a merged word document with more than 200 unique pages created 
> > using
> > data from an excel file. I always have to go one by one printing a pdf. I
> > select a specific merged field, copy, print, pdf, "paste" for the file 
> > name,
> > next, and again....
> >
> > I there a way to make this process easier.
> >
> >
> > Thank you,
> >
> > Andrew
> >
> > 
> 
> 
>

I was trying something like this, but cant get it to work....

Sub PRINTPDF()
'
' PRINTPDF Macro
' Macro recorded 6/2/2008 by DELL
'
Dim i As Long
' i = ActiveDocument.MailMerge.DataSource.RecordCount
i = 5
ActiveDocument.MailMerge.DataSource.ActiveRecord = wdFirstRecord

Do While intCounter < i
intCounter = intCounter + 1

ActivePrinter = "Adobe PDF"
Application.PrintOut FileName:="""INVOICE_No2""", Range:=wdPrintCurrentPage, 
Item:= _
        wdPrintDocumentContent, Copies:=1, Pages:="", 
PageType:=wdPrintAllPages, _
        ManualDuplexPrint:=False, Collate:=True, Background:=True, 
PrintToFile:= _
        False, PrintZoomColumn:=0, PrintZoomRow:=0, PrintZoomPaperWidth:=0, _
        PrintZoomPaperHeight:=0

ActiveDocument.MailMerge.MainDocumentType = wdNotAMergeDocument
ActiveDocument.SaveAs
ActiveWindow.Close
ActiveDocument.MailMerge.DataSource.ActiveRecord = wdNextRecord

Loop
End Sub


"Doug Robbins - Word MVP" wrote:

> See the "Individual Merge Letters" item on fellow MVP Graham Mayor's website 
> at:
> 
> http://www.gmayor.com/individual_merge_letters.htm
> 
> If you are using Word XP or later, the "Add-in to Merge Letters to Separate 
> Files" that I have written and that can be downloaded from that site will 
> allow you to create each letter as a separate file with a filename taken 
> from a field in the data source with a minimum of fuss.
> 
> 
> -- 
> Hope this helps.
> 
> Please reply to the newsgroup unless you wish to avail yourself of my
> services on a paid consulting basis.
> 
> Doug Robbins - Word MVP
> 
> "ANDNAND"  wrote in message 
> news:E4B47129-C01D-4415-AB98-AAB3CE3AFC8C@microsoft.com...
> > Hi, I hope someone can help.
> >
> > I have a merged word document with more than 200 unique pages created 
> > using
> > data from an excel file. I always have to go one by one printing a pdf. I
> > select a specific merged field, copy, print, pdf, "paste" for the file 
> > name,
> > next, and again....
> >
> > I there a way to make this process easier.
> >
> >
> > Thank you,
> >
> > Andrew
> >
> > 
> 
> 
>

By simpler, I guess you mean simpler than the add in that you can download 
from that site, though by creating that add in, all of the hard work has 
been done for you.

As an alternative, you could use one of the other methods in the article and 
modify the code so that after saving the document, it printed it to a pdf 
printer.  Most of the ,pdf creator software takes the name of the document 
as the basis for the .pdf name so there is not need to be trying to pass 
that name to the printer.

-- 
Hope this helps.

Please reply to the newsgroup unless you wish to avail yourself of my
services on a paid consulting basis.

Doug Robbins - Word MVP

"ANDNAND"  wrote in message 
news:30E32449-D314-4872-A157-36FEDB68183D@microsoft.com...
>I was trying something like this, simpler, but I cant get it to work...
>
>
> Sub PRINTPDF()
> '
> ' PRINTPDF Macro
> ' Macro recorded 6/2/2008 by DELL
> '
> Dim i As Long
> ' i = ActiveDocument.MailMerge.DataSource.RecordCount
> i = 5
> ActiveDocument.MailMerge.DataSource.ActiveRecord = wdFirstRecord
>
> Do While intCounter < i
> intCounter = intCounter + 1
>
> ActivePrinter = "Adobe PDF"
> Application.PrintOut FileName:="""INVOICE_No2""", 
> Range:=wdPrintCurrentPage,
> Item:= _
>        wdPrintDocumentContent, Copies:=1, Pages:="",
> PageType:=wdPrintAllPages, _
>        ManualDuplexPrint:=False, Collate:=True, Background:=True,
> PrintToFile:= _
>        False, PrintZoomColumn:=0, PrintZoomRow:=0, PrintZoomPaperWidth:=0, 
> _
>        PrintZoomPaperHeight:=0
>
> ActiveDocument.MailMerge.MainDocumentType = wdNotAMergeDocument
> ActiveDocument.SaveAs
> ActiveWindow.Close
> ActiveDocument.MailMerge.DataSource.ActiveRecord = wdNextRecord
>
> Loop
> End Sub
>
>
>
>
> "Doug Robbins - Word MVP" wrote:
>
>> See the "Individual Merge Letters" item on fellow MVP Graham Mayor's 
>> website
>> at:
>>
>> http://www.gmayor.com/individual_merge_letters.htm
>>
>> If you are using Word XP or later, the "Add-in to Merge Letters to 
>> Separate
>> Files" that I have written and that can be downloaded from that site will
>> allow you to create each letter as a separate file with a filename taken
>> from a field in the data source with a minimum of fuss.
>>
>>
>> -- 
>> Hope this helps.
>>
>> Please reply to the newsgroup unless you wish to avail yourself of my
>> services on a paid consulting basis.
>>
>> Doug Robbins - Word MVP
>>
>> "ANDNAND"  wrote in message
>> news:E4B47129-C01D-4415-AB98-AAB3CE3AFC8C@microsoft.com...
>> > Hi, I hope someone can help.
>> >
>> > I have a merged word document with more than 200 unique pages created
>> > using
>> > data from an excel file. I always have to go one by one printing a pdf. 
>> > I
>> > select a specific merged field, copy, print, pdf, "paste" for the file
>> > name,
>> > next, and again....
>> >
>> > I there a way to make this process easier.
>> >
>> >
>> > Thank you,
>> >
>> > Andrew
>> >
>> >
>>
>>
>>

You are correct, but all I want to do is to create the pdfs. I have not been 
able to figure out how to assign a merge field to the filename. I tried 
declaring a variable and making it equal to the merge field, I tried filename 
= merge field with 1, 2 , 3 ((())), but unfortunately I am not savy enough, 
not when it comes to vba and programming.

If you have a hint, please let me know, in the meantime, when I replied 
yesterday, the add in was already installed and worked. I just wanted this 
small little macro to work.


Thanks



"Doug Robbins - Word MVP" wrote:

> By simpler, I guess you mean simpler than the add in that you can download 
> from that site, though by creating that add in, all of the hard work has 
> been done for you.
> 
> As an alternative, you could use one of the other methods in the article and 
> modify the code so that after saving the document, it printed it to a pdf 
> printer.  Most of the ,pdf creator software takes the name of the document 
> as the basis for the .pdf name so there is not need to be trying to pass 
> that name to the printer.
> 
> -- 
> Hope this helps.
> 
> Please reply to the newsgroup unless you wish to avail yourself of my
> services on a paid consulting basis.
> 
> Doug Robbins - Word MVP
> 
> "ANDNAND"  wrote in message 
> news:30E32449-D314-4872-A157-36FEDB68183D@microsoft.com...
> >I was trying something like this, simpler, but I cant get it to work...
> >
> >
> > Sub PRINTPDF()
> > '
> > ' PRINTPDF Macro
> > ' Macro recorded 6/2/2008 by DELL
> > '
> > Dim i As Long
> > ' i = ActiveDocument.MailMerge.DataSource.RecordCount
> > i = 5
> > ActiveDocument.MailMerge.DataSource.ActiveRecord = wdFirstRecord
> >
> > Do While intCounter < i
> > intCounter = intCounter + 1
> >
> > ActivePrinter = "Adobe PDF"
> > Application.PrintOut FileName:="""INVOICE_No2""", 
> > Range:=wdPrintCurrentPage,
> > Item:= _
> >        wdPrintDocumentContent, Copies:=1, Pages:="",
> > PageType:=wdPrintAllPages, _
> >        ManualDuplexPrint:=False, Collate:=True, Background:=True,
> > PrintToFile:= _
> >        False, PrintZoomColumn:=0, PrintZoomRow:=0, PrintZoomPaperWidth:=0, 
> > _
> >        PrintZoomPaperHeight:=0
> >
> > ActiveDocument.MailMerge.MainDocumentType = wdNotAMergeDocument
> > ActiveDocument.SaveAs
> > ActiveWindow.Close
> > ActiveDocument.MailMerge.DataSource.ActiveRecord = wdNextRecord
> >
> > Loop
> > End Sub
> >
> >
> >
> >
> > "Doug Robbins - Word MVP" wrote:
> >
> >> See the "Individual Merge Letters" item on fellow MVP Graham Mayor's 
> >> website
> >> at:
> >>
> >> http://www.gmayor.com/individual_merge_letters.htm
> >>
> >> If you are using Word XP or later, the "Add-in to Merge Letters to 
> >> Separate
> >> Files" that I have written and that can be downloaded from that site will
> >> allow you to create each letter as a separate file with a filename taken
> >> from a field in the data source with a minimum of fuss.
> >>
> >>
> >> -- 
> >> Hope this helps.
> >>
> >> Please reply to the newsgroup unless you wish to avail yourself of my
> >> services on a paid consulting basis.
> >>
> >> Doug Robbins - Word MVP
> >>
> >> "ANDNAND"  wrote in message
> >> news:E4B47129-C01D-4415-AB98-AAB3CE3AFC8C@microsoft.com...
> >> > Hi, I hope someone can help.
> >> >
> >> > I have a merged word document with more than 200 unique pages created
> >> > using
> >> > data from an excel file. I always have to go one by one printing a pdf. 
> >> > I
> >> > select a specific merged field, copy, print, pdf, "paste" for the file
> >> > name,
> >> > next, and again....
> >> >
> >> > I there a way to make this process easier.
> >> >
> >> >
> >> > Thank you,
> >> >
> >> > Andrew
> >> >
> >> >
> >>
> >>
> >> 
> 
> 
>

I have given you the only ways in which I know how to do it.  Sounds to me 
like you should be using the add-in that I have created and which can be 
downloaded from the website to which I referred you.

-- 
Hope this helps.

Please reply to the newsgroup unless you wish to avail yourself of my
services on a paid consulting basis.

Doug Robbins - Word MVP

"ANDNAND"  wrote in message 
news:2FC9DFFB-E425-4E4F-81A4-2E4386B5EC2E@microsoft.com...
> You are correct, but all I want to do is to create the pdfs. I have not 
> been
> able to figure out how to assign a merge field to the filename. I tried
> declaring a variable and making it equal to the merge field, I tried 
> filename
> = merge field with 1, 2 , 3 ((())), but unfortunately I am not savy 
> enough,
> not when it comes to vba and programming.
>
> If you have a hint, please let me know, in the meantime, when I replied
> yesterday, the add in was already installed and worked. I just wanted this
> small little macro to work.
>
>
> Thanks
>
>
>
> "Doug Robbins - Word MVP" wrote:
>
>> By simpler, I guess you mean simpler than the add in that you can 
>> download
>> from that site, though by creating that add in, all of the hard work has
>> been done for you.
>>
>> As an alternative, you could use one of the other methods in the article 
>> and
>> modify the code so that after saving the document, it printed it to a pdf
>> printer.  Most of the ,pdf creator software takes the name of the 
>> document
>> as the basis for the .pdf name so there is not need to be trying to pass
>> that name to the printer.
>>
>> -- 
>> Hope this helps.
>>
>> Please reply to the newsgroup unless you wish to avail yourself of my
>> services on a paid consulting basis.
>>
>> Doug Robbins - Word MVP
>>
>> "ANDNAND"  wrote in message
>> news:30E32449-D314-4872-A157-36FEDB68183D@microsoft.com...
>> >I was trying something like this, simpler, but I cant get it to work...
>> >
>> >
>> > Sub PRINTPDF()
>> > '
>> > ' PRINTPDF Macro
>> > ' Macro recorded 6/2/2008 by DELL
>> > '
>> > Dim i As Long
>> > ' i = ActiveDocument.MailMerge.DataSource.RecordCount
>> > i = 5
>> > ActiveDocument.MailMerge.DataSource.ActiveRecord = wdFirstRecord
>> >
>> > Do While intCounter < i
>> > intCounter = intCounter + 1
>> >
>> > ActivePrinter = "Adobe PDF"
>> > Application.PrintOut FileName:="""INVOICE_No2""",
>> > Range:=wdPrintCurrentPage,
>> > Item:= _
>> >        wdPrintDocumentContent, Copies:=1, Pages:="",
>> > PageType:=wdPrintAllPages, _
>> >        ManualDuplexPrint:=False, Collate:=True, Background:=True,
>> > PrintToFile:= _
>> >        False, PrintZoomColumn:=0, PrintZoomRow:=0, 
>> > PrintZoomPaperWidth:=0,
>> > _
>> >        PrintZoomPaperHeight:=0
>> >
>> > ActiveDocument.MailMerge.MainDocumentType = wdNotAMergeDocument
>> > ActiveDocument.SaveAs
>> > ActiveWindow.Close
>> > ActiveDocument.MailMerge.DataSource.ActiveRecord = wdNextRecord
>> >
>> > Loop
>> > End Sub
>> >
>> >
>> >
>> >
>> > "Doug Robbins - Word MVP" wrote:
>> >
>> >> See the "Individual Merge Letters" item on fellow MVP Graham Mayor's
>> >> website
>> >> at:
>> >>
>> >> http://www.gmayor.com/individual_merge_letters.htm
>> >>
>> >> If you are using Word XP or later, the "Add-in to Merge Letters to
>> >> Separate
>> >> Files" that I have written and that can be downloaded from that site 
>> >> will
>> >> allow you to create each letter as a separate file with a filename 
>> >> taken
>> >> from a field in the data source with a minimum of fuss.
>> >>
>> >>
>> >> -- 
>> >> Hope this helps.
>> >>
>> >> Please reply to the newsgroup unless you wish to avail yourself of my
>> >> services on a paid consulting basis.
>> >>
>> >> Doug Robbins - Word MVP
>> >>
>> >> "ANDNAND"  wrote in message
>> >> news:E4B47129-C01D-4415-AB98-AAB3CE3AFC8C@microsoft.com...
>> >> > Hi, I hope someone can help.
>> >> >
>> >> > I have a merged word document with more than 200 unique pages 
>> >> > created
>> >> > using
>> >> > data from an excel file. I always have to go one by one printing a 
>> >> > pdf.
>> >> > I
>> >> > select a specific merged field, copy, print, pdf, "paste" for the 
>> >> > file
>> >> > name,
>> >> > next, and again....
>> >> >
>> >> > I there a way to make this process easier.
>> >> >
>> >> >
>> >> > Thank you,
>> >> >
>> >> > Andrew
>> >> >
>> >> >
>> >>
>> >>
>> >>
>>
>>
>>

The only other thing that I can add is that everynow and then someone posts 
information here about a commercial application that claims to do the same 
thing.  As it costs money, I have not paid any attention to it.  But, why 
pay for something when someone else has given you something that does what 
you want without charge.

If you want me to create the .pdf's for you, send me the main document and 
the data source and I will charge you $100/hour - it should not take an 
hour.

-- 
Hope this helps.

Please reply to the newsgroup unless you wish to avail yourself of my
services on a paid consulting basis.

Doug Robbins - Word MVP

"ANDNAND"  wrote in message 
news:2FC9DFFB-E425-4E4F-81A4-2E4386B5EC2E@microsoft.com...
> You are correct, but all I want to do is to create the pdfs. I have not 
> been
> able to figure out how to assign a merge field to the filename. I tried
> declaring a variable and making it equal to the merge field, I tried 
> filename
> = merge field with 1, 2 , 3 ((())), but unfortunately I am not savy 
> enough,
> not when it comes to vba and programming.
>
> If you have a hint, please let me know, in the meantime, when I replied
> yesterday, the add in was already installed and worked. I just wanted this
> small little macro to work.
>
>
> Thanks
>
>
>
> "Doug Robbins - Word MVP" wrote:
>
>> By simpler, I guess you mean simpler than the add in that you can 
>> download
>> from that site, though by creating that add in, all of the hard work has
>> been done for you.
>>
>> As an alternative, you could use one of the other methods in the article 
>> and
>> modify the code so that after saving the document, it printed it to a pdf
>> printer.  Most of the ,pdf creator software takes the name of the 
>> document
>> as the basis for the .pdf name so there is not need to be trying to pass
>> that name to the printer.
>>
>> -- 
>> Hope this helps.
>>
>> Please reply to the newsgroup unless you wish to avail yourself of my
>> services on a paid consulting basis.
>>
>> Doug Robbins - Word MVP
>>
>> "ANDNAND"  wrote in message
>> news:30E32449-D314-4872-A157-36FEDB68183D@microsoft.com...
>> >I was trying something like this, simpler, but I cant get it to work...
>> >
>> >
>> > Sub PRINTPDF()
>> > '
>> > ' PRINTPDF Macro
>> > ' Macro recorded 6/2/2008 by DELL
>> > '
>> > Dim i As Long
>> > ' i = ActiveDocument.MailMerge.DataSource.RecordCount
>> > i = 5
>> > ActiveDocument.MailMerge.DataSource.ActiveRecord = wdFirstRecord
>> >
>> > Do While intCounter < i
>> > intCounter = intCounter + 1
>> >
>> > ActivePrinter = "Adobe PDF"
>> > Application.PrintOut FileName:="""INVOICE_No2""",
>> > Range:=wdPrintCurrentPage,
>> > Item:= _
>> >        wdPrintDocumentContent, Copies:=1, Pages:="",
>> > PageType:=wdPrintAllPages, _
>> >        ManualDuplexPrint:=False, Collate:=True, Background:=True,
>> > PrintToFile:= _
>> >        False, PrintZoomColumn:=0, PrintZoomRow:=0, 
>> > PrintZoomPaperWidth:=0,
>> > _
>> >        PrintZoomPaperHeight:=0
>> >
>> > ActiveDocument.MailMerge.MainDocumentType = wdNotAMergeDocument
>> > ActiveDocument.SaveAs
>> > ActiveWindow.Close
>> > ActiveDocument.MailMerge.DataSource.ActiveRecord = wdNextRecord
>> >
>> > Loop
>> > End Sub
>> >
>> >
>> >
>> >
>> > "Doug Robbins - Word MVP" wrote:
>> >
>> >> See the "Individual Merge Letters" item on fellow MVP Graham Mayor's
>> >> website
>> >> at:
>> >>
>> >> http://www.gmayor.com/individual_merge_letters.htm
>> >>
>> >> If you are using Word XP or later, the "Add-in to Merge Letters to
>> >> Separate
>> >> Files" that I have written and that can be downloaded from that site 
>> >> will
>> >> allow you to create each letter as a separate file with a filename 
>> >> taken
>> >> from a field in the data source with a minimum of fuss.
>> >>
>> >>
>> >> -- 
>> >> Hope this helps.
>> >>
>> >> Please reply to the newsgroup unless you wish to avail yourself of my
>> >> services on a paid consulting basis.
>> >>
>> >> Doug Robbins - Word MVP
>> >>
>> >> "ANDNAND"  wrote in message
>> >> news:E4B47129-C01D-4415-AB98-AAB3CE3AFC8C@microsoft.com...
>> >> > Hi, I hope someone can help.
>> >> >
>> >> > I have a merged word document with more than 200 unique pages 
>> >> > created
>> >> > using
>> >> > data from an excel file. I always have to go one by one printing a 
>> >> > pdf.
>> >> > I
>> >> > select a specific merged field, copy, print, pdf, "paste" for the 
>> >> > file
>> >> > name,
>> >> > next, and again....
>> >> >
>> >> > I there a way to make this process easier.
>> >> >
>> >> >
>> >> > Thank you,
>> >> >
>> >> > Andrew
>> >> >
>> >> >
>> >>
>> >>
>> >>
>>
>>
>>

Doug, thank you for the offer. It takes me an hour to do it by hand. I do it 
every month. They are about 250 files. On top of that, your application works 
and the odf are done.

I am always "trying" to learn that is why I posted what I was trying to use. 
I dont even know how far am I from having it work.

Anyway, thank you for the add in. If you have any suggestions please let me 
know, cheers.



"Doug Robbins - Word MVP" wrote:

> The only other thing that I can add is that everynow and then someone posts 
> information here about a commercial application that claims to do the same 
> thing.  As it costs money, I have not paid any attention to it.  But, why 
> pay for something when someone else has given you something that does what 
> you want without charge.
> 
> If you want me to create the .pdf's for you, send me the main document and 
> the data source and I will charge you $100/hour - it should not take an 
> hour.
> 
> -- 
> Hope this helps.
> 
> Please reply to the newsgroup unless you wish to avail yourself of my
> services on a paid consulting basis.
> 
> Doug Robbins - Word MVP
> 
> "ANDNAND"  wrote in message 
> news:2FC9DFFB-E425-4E4F-81A4-2E4386B5EC2E@microsoft.com...
> > You are correct, but all I want to do is to create the pdfs. I have not 
> > been
> > able to figure out how to assign a merge field to the filename. I tried
> > declaring a variable and making it equal to the merge field, I tried 
> > filename
> > = merge field with 1, 2 , 3 ((())), but unfortunately I am not savy 
> > enough,
> > not when it comes to vba and programming.
> >
> > If you have a hint, please let me know, in the meantime, when I replied
> > yesterday, the add in was already installed and worked. I just wanted this
> > small little macro to work.
> >
> >
> > Thanks
> >
> >
> >
> > "Doug Robbins - Word MVP" wrote:
> >
> >> By simpler, I guess you mean simpler than the add in that you can 
> >> download
> >> from that site, though by creating that add in, all of the hard work has
> >> been done for you.
> >>
> >> As an alternative, you could use one of the other methods in the article 
> >> and
> >> modify the code so that after saving the document, it printed it to a pdf
> >> printer.  Most of the ,pdf creator software takes the name of the 
> >> document
> >> as the basis for the .pdf name so there is not need to be trying to pass
> >> that name to the printer.
> >>
> >> -- 
> >> Hope this helps.
> >>
> >> Please reply to the newsgroup unless you wish to avail yourself of my
> >> services on a paid consulting basis.
> >>
> >> Doug Robbins - Word MVP
> >>
> >> "ANDNAND"  wrote in message
> >> news:30E32449-D314-4872-A157-36FEDB68183D@microsoft.com...
> >> >I was trying something like this, simpler, but I cant get it to work...
> >> >
> >> >
> >> > Sub PRINTPDF()
> >> > '
> >> > ' PRINTPDF Macro
> >> > ' Macro recorded 6/2/2008 by DELL
> >> > '
> >> > Dim i As Long
> >> > ' i = ActiveDocument.MailMerge.DataSource.RecordCount
> >> > i = 5
> >> > ActiveDocument.MailMerge.DataSource.ActiveRecord = wdFirstRecord
> >> >
> >> > Do While intCounter < i
> >> > intCounter = intCounter + 1
> >> >
> >> > ActivePrinter = "Adobe PDF"
> >> > Application.PrintOut FileName:="""INVOICE_No2""",
> >> > Range:=wdPrintCurrentPage,
> >> > Item:= _
> >> >        wdPrintDocumentContent, Copies:=1, Pages:="",
> >> > PageType:=wdPrintAllPages, _
> >> >        ManualDuplexPrint:=False, Collate:=True, Background:=True,
> >> > PrintToFile:= _
> >> >        False, PrintZoomColumn:=0, PrintZoomRow:=0, 
> >> > PrintZoomPaperWidth:=0,
> >> > _
> >> >        PrintZoomPaperHeight:=0
> >> >
> >> > ActiveDocument.MailMerge.MainDocumentType = wdNotAMergeDocument
> >> > ActiveDocument.SaveAs
> >> > ActiveWindow.Close
> >> > ActiveDocument.MailMerge.DataSource.ActiveRecord = wdNextRecord
> >> >
> >> > Loop
> >> > End Sub
> >> >
> >> >
> >> >
> >> >
> >> > "Doug Robbins - Word MVP" wrote:
> >> >
> >> >> See the "Individual Merge Letters" item on fellow MVP Graham Mayor's
> >> >> website
> >> >> at:
> >> >>
> >> >> http://www.gmayor.com/individual_merge_letters.htm
> >> >>
> >> >> If you are using Word XP or later, the "Add-in to Merge Letters to
> >> >> Separate
> >> >> Files" that I have written and that can be downloaded from that site 
> >> >> will
> >> >> allow you to create each letter as a separate file with a filename 
> >> >> taken
> >> >> from a field in the data source with a minimum of fuss.
> >> >>
> >> >>
> >> >> -- 
> >> >> Hope this helps.
> >> >>
> >> >> Please reply to the newsgroup unless you wish to avail yourself of my
> >> >> services on a paid consulting basis.
> >> >>
> >> >> Doug Robbins - Word MVP
> >> >>
> >> >> "ANDNAND"  wrote in message
> >> >> news:E4B47129-C01D-4415-AB98-AAB3CE3AFC8C@microsoft.com...
> >> >> > Hi, I hope someone can help.
> >> >> >
> >> >> > I have a merged word document with more than 200 unique pages 
> >> >> > created
> >> >> > using
> >> >> > data from an excel file. I always have to go one by one printing a 
> >> >> > pdf.
> >> >> > I
> >> >> > select a specific merged field, copy, print, pdf, "paste" for the 
> >> >> > file
> >> >> > name,
> >> >> > next, and again....
> >> >> >
> >> >> > I there a way to make this process easier.
> >> >> >
> >> >> >
> >> >> > Thank you,
> >> >> >
> >> >> > Andrew
> >> >> >
> >> >> >
> >> >>
> >> >>
> >> >>
> >>
> >>
> >> 
> 
> 
>

hey there.. I add the add-on and it still doesn't split my files into 
individual pdf... what am I doing wrong?

"ANDNAND" wrote:

> I was trying something like this, but cant get it to work....
> 
> Sub PRINTPDF()
> '
> ' PRINTPDF Macro
> ' Macro recorded 6/2/2008 by DELL
> '
> Dim i As Long
> ' i = ActiveDocument.MailMerge.DataSource.RecordCount
> i = 5
> ActiveDocument.MailMerge.DataSource.ActiveRecord = wdFirstRecord
> 
> Do While intCounter < i
> intCounter = intCounter + 1
> 
> ActivePrinter = "Adobe PDF"
> Application.PrintOut FileName:="""INVOICE_No2""", Range:=wdPrintCurrentPage, 
> Item:= _
>         wdPrintDocumentContent, Copies:=1, Pages:="", 
> PageType:=wdPrintAllPages, _
>         ManualDuplexPrint:=False, Collate:=True, Background:=True, 
> PrintToFile:= _
>         False, PrintZoomColumn:=0, PrintZoomRow:=0, PrintZoomPaperWidth:=0, _
>         PrintZoomPaperHeight:=0
> 
> ActiveDocument.MailMerge.MainDocumentType = wdNotAMergeDocument
> ActiveDocument.SaveAs
> ActiveWindow.Close
> ActiveDocument.MailMerge.DataSource.ActiveRecord = wdNextRecord
> 
> Loop
> End Sub
> 
> 
> "Doug Robbins - Word MVP" wrote:
> 
> > See the "Individual Merge Letters" item on fellow MVP Graham Mayor's website 
> > at:
> > 
> > http://www.gmayor.com/individual_merge_letters.htm
> > 
> > If you are using Word XP or later, the "Add-in to Merge Letters to Separate 
> > Files" that I have written and that can be downloaded from that site will 
> > allow you to create each letter as a separate file with a filename taken 
> > from a field in the data source with a minimum of fuss.
> > 
> > 
> > -- 
> > Hope this helps.
> > 
> > Please reply to the newsgroup unless you wish to avail yourself of my
> > services on a paid consulting basis.
> > 
> > Doug Robbins - Word MVP
> > 
> > "ANDNAND"  wrote in message 
> > news:E4B47129-C01D-4415-AB98-AAB3CE3AFC8C@microsoft.com...
> > > Hi, I hope someone can help.
> > >
> > > I have a merged word document with more than 200 unique pages created 
> > > using
> > > data from an excel file. I always have to go one by one printing a pdf. I
> > > select a specific merged field, copy, print, pdf, "paste" for the file 
> > > name,
> > > next, and again....
> > >
> > > I there a way to make this process easier.
> > >
> > >
> > > Thank you,
> > >
> > > Andrew
> > >
> > > 
> > 
> > 
> >

Please provide a complete description of the steps that you are taking.

Also please ensure that you start Word from the Windows Start menu and not 
by double clicking on a document on the Desktop, in Windows Explorer or 
received as an attachment to an email message.  Also, if you have Word set 
as the editor in Outlook, start Word before you start Outlook.

Word must be started from the Windows Start menu.

-- 
Hope this helps.

Please reply to the newsgroup unless you wish to avail yourself of my
services on a paid consulting basis.

Doug Robbins - Word MVP

"beanie"  wrote in message 
news:A3F92CEA-92F5-4B45-A85E-8474C6B3AD44@microsoft.com...
> hey there.. I add the add-on and it still doesn't split my files into
> individual pdf... what am I doing wrong?
>
> "ANDNAND" wrote:
>
>> I was trying something like this, but cant get it to work....
>>
>> Sub PRINTPDF()
>> '
>> ' PRINTPDF Macro
>> ' Macro recorded 6/2/2008 by DELL
>> '
>> Dim i As Long
>> ' i = ActiveDocument.MailMerge.DataSource.RecordCount
>> i = 5
>> ActiveDocument.MailMerge.DataSource.ActiveRecord = wdFirstRecord
>>
>> Do While intCounter < i
>> intCounter = intCounter + 1
>>
>> ActivePrinter = "Adobe PDF"
>> Application.PrintOut FileName:="""INVOICE_No2""", 
>> Range:=wdPrintCurrentPage,
>> Item:= _
>>         wdPrintDocumentContent, Copies:=1, Pages:="",
>> PageType:=wdPrintAllPages, _
>>         ManualDuplexPrint:=False, Collate:=True, Background:=True,
>> PrintToFile:= _
>>         False, PrintZoomColumn:=0, PrintZoomRow:=0, 
>> PrintZoomPaperWidth:=0, _
>>         PrintZoomPaperHeight:=0
>>
>> ActiveDocument.MailMerge.MainDocumentType = wdNotAMergeDocument
>> ActiveDocument.SaveAs
>> ActiveWindow.Close
>> ActiveDocument.MailMerge.DataSource.ActiveRecord = wdNextRecord
>>
>> Loop
>> End Sub
>>
>>
>> "Doug Robbins - Word MVP" wrote:
>>
>> > See the "Individual Merge Letters" item on fellow MVP Graham Mayor's 
>> > website
>> > at:
>> >
>> > http://www.gmayor.com/individual_merge_letters.htm
>> >
>> > If you are using Word XP or later, the "Add-in to Merge Letters to 
>> > Separate
>> > Files" that I have written and that can be downloaded from that site 
>> > will
>> > allow you to create each letter as a separate file with a filename 
>> > taken
>> > from a field in the data source with a minimum of fuss.
>> >
>> >
>> > -- 
>> > Hope this helps.
>> >
>> > Please reply to the newsgroup unless you wish to avail yourself of my
>> > services on a paid consulting basis.
>> >
>> > Doug Robbins - Word MVP
>> >
>> > "ANDNAND"  wrote in message
>> > news:E4B47129-C01D-4415-AB98-AAB3CE3AFC8C@microsoft.com...
>> > > Hi, I hope someone can help.
>> > >
>> > > I have a merged word document with more than 200 unique pages created
>> > > using
>> > > data from an excel file. I always have to go one by one printing a 
>> > > pdf. I
>> > > select a specific merged field, copy, print, pdf, "paste" for the 
>> > > file
>> > > name,
>> > > next, and again....
>> > >
>> > > I there a way to make this process easier.
>> > >
>> > >
>> > > Thank you,
>> > >
>> > > Andrew
>> > >
>> > >
>> >
>> >
>> >