Programming Office Macros
We are specialized in creating tailor made macros and toolbar buttons for Microsoft Office Products.
Please find below a very short sample of an office macro which forces the Microsoft Winword MailMerge to print every document on a single PDF instead of printing all documents together on one PDF.
Sub MailMerge2Aloaha()
On Error Resume Next
Dim LastRecord
Dim LoopCounter
Application.ActivePrinter = "Wrocklage PDF Printer"
LastRecord = ActiveDocument.MailMerge.DataSource.LastRecord
For LoopCounter = 1 To LastRecord
ActiveDocument.MailMerge.DataSource.ActiveRecord = LoopCounter
With ActiveDocument.MailMerge
.Destination = wdSendToPrinter
.SuppressBlankLines = True
With .DataSource
.FirstRecord = ActiveDocument.MailMerge.DataSource.ActiveRecord
.LastRecord = ActiveDocument.MailMerge.DataSource.ActiveRecord
End With
.Execute Pause:=False
End With
Next LoopCounter
End Sub
The macro above can be downloaded as windows template from
http://www.aloaha.com/download/MailMerge.zip
Together with the
Aloaha PDF Suite this template can be used to mailmerge your documents as PDF via email or as FAX to the recipients.
Aloaha Software / Knowledge Base / Programming Office Macros