Ufdjrw

When I am trying to run the code below the following happens:

1) It opens a "Save PDF File As" Window

2) I have to manually type in the name

3) The code runs

I want to automate steps 1 and 2 so that the code runs without any manual inputs from me and saves it as whatever.pdf in whatever path.

I tried using ExportAsFixedFormat but the problem is that it is saving only the first page as pdf and the remaining 100+ records that are going through the mail merge are not being saved. On top of that, it still opens that Dialog Window from step 1.

ActiveDocument.ExportAsFixedFormat OutputFilename:=whatever.pdf, _
 ExportFormat:=wdExportFormatPDF, etc. 

The code:

Sub DoMailMerge()

Set myMerge = ActiveDocument.MailMerge
If myMerge.State = wdMainAndSourceAndHeader Or _
 myMerge.State = wdMainAndDataSource Then
 With myMerge.DataSource
 .FirstRecord = 1
 .LastRecord = 3
 End With
End If
With myMerge
 .Destination = wdSendToPrinter
 .Execute
End With

End Sub

Any help on this would be greatly appreciated!

[Edit] Corrected object reference. Added SaveAs2

In the OP, an attempt is made to use a pseudo printer to save as a pdf. There are differences between the SaveAs pdf format and the variety of pdf pseudo printers. Is there a reason for printing to a PDF and saving that file, rather than doing a Save As and choosing the PDF format?

With myMerge
 .Destination = wdSendToNewDocument
 .Execute
End With
ActiveDocument.SaveAs2 "path & filename", wdFormatPDF 

The following is sometimes needed to silence prompting with scripted saves. For the above tested method, there were no prompts, so it may not be needed.

Toggle off .DisplayAlerts before SaveAs

Application.DisplayAlerts = wdAlertsNone
ActiveDocument.SaveAs2 "path & filename", wdFormatPDF
Application.DisplayAlerts = wdAlertsAll

Or

Dim tempDisplayAlerts As Long
tempDisplayAlerts = Application.DisplayAlerts 
Application.DisplayAlerts = wdAlertsNone
ActiveDocument.SaveAs2 "path & filename", wdFormatPDF 
Application.DisplayAlerts = tempDisplayAlerts