This is prescription printout. I am just placing the part of the .rtf file and how it looks in notepad and how it looks after editing.

.rtf file

[[M4]]
[[I4]]
[[M5]]
[[I5]]
[[M6]]
[[I6]]
 

Notepad preedit:

{\insrsid14817277 [[M4]]
\par }\pard \s15\ql \fi720\li0\ri0\widctlpar\wrapdefault\aspalpha\aspnum\faauto\adjustright\rin0\lin0\itap0\pararsid14817277 {\insrsid14817277 [[I4]]
\par }\pard \s15\ql \li0\ri0\widctlpar\wrapdefault\aspalpha\aspnum\faauto\adjustright\rin0\lin0\itap0\pararsid14817277 {\insrsid14817277 [[M5]]
\par }\pard \s15\ql \li720\ri0\widctlpar\wrapdefault\aspalpha\aspnum\faauto\adjustright\rin0\lin720\itap0\pararsid14817277 {\insrsid14817277 [[I5]]
\par }\pard \s15\ql \li0\ri0\widctlpar\wrapdefault\aspalpha\aspnum\faauto\adjustright\rin0\lin0\itap0\pararsid14817277 {\insrsid14817277 [[M6]]
\par }\pard \s15\ql \li720\ri0\widctlpar\wrapdefault\aspalpha\aspnum\faauto\adjustright\rin0\lin720\itap0\pararsid14817277 {\insrsid14817277 [[I6]]
\par }\pard \s15\ql \li0\ri0\widctlpar\wrapdefault\aspalpha\aspnum\faauto\adjustright\rin0\lin0\itap0\pararsid14817277
 

After editing in the notebook as suggested in the programing guide in order for it to fold:

{\insrsid14817277
[[M4]]
\par }\pard \s15\ql \fi720\li0\ri0\widctlpar\wrapdefault\aspalpha\aspnum\faauto\adjustright\rin0\lin0\itap0\pararsid14817277 {\insrsid14817277
[[I4]]
\par }\pard \s15\ql \li0\ri0\widctlpar\wrapdefault\aspalpha\aspnum\faauto\adjustright\rin0\lin0\itap0\pararsid14817277 {\insrsid14817277
[[M5]]
\par }\pard \s15\ql \li720\ri0\widctlpar\wrapdefault\aspalpha\aspnum\faauto\adjustright\rin0\lin720\itap0\pararsid14817277 {\insrsid14817277
[[I5]]
\par }\pard \s15\ql \li0\ri0\widctlpar\wrapdefault\aspalpha\aspnum\faauto\adjustright\rin0\lin0\itap0\pararsid14817277 {\insrsid14817277
[[M6]]
\par }\pard \s15\ql \li720\ri0\widctlpar\wrapdefault\aspalpha\aspnum\faauto\adjustright\rin0\lin720\itap0\pararsid14817277 {\insrsid14817277
[[I6]]
\par }\pard \s15\ql \li0\ri0\widctlpar\wrapdefault\aspalpha\aspnum\faauto\adjustright\rin0\lin0\itap0\pararsid14817277
 

The MergeFilePrint ( )

MergeFilePrint(vPath , "rtf", "", "", vExtFields, "Data\prescription_test", 1)
 

This should fold when there is no data to merge for field "M5" and "I5" but it is not folding. What am I doing wrong?

// Remove blank lines
vAddressBlock = @Replace(vAddressBlock, @NL() + @NL(), @NL() )
 

Initially I could not get the importance of above code but now I understand it. I have 32 such collapsing mergefields in one rtf mergefile to print.  I guess I will have to go with the above code.

The other solution I was thinking was to remove \par with notepad edits and merge \par with the mergefiled whenever data is present for that mergefield.

if vM1 <> "" then
       {
              vM1 = vM1 + " /Par"
       }
     
This will work, I believe,  but yours is a lot better way since if you want to change the rtf file you do not have to go through the whole routine of notepad edits of rtf file and then save.

I hope Lanticans are watching this thread and doing something about the "Fold" parameter that is either not working or we do not know how to make it work. Thanks Carl,  for your input.

Quote:


As mentioned in the programming guide.
Quote:


Can we have one exclusive command just for RTF file over and above this?  Just a suggestion.

Thanks for your Input Mark. I want to share my experience with MergeFilePrint() command.  Over period of time to answer the need for mergeprinting various methods have evolved in the form of Wordmerge, Wordmerge Lite, Simple text file merging, various versions and upgrades of wordmerge and we have followed them one by one and still felt how good it would be if we had inbuilt word processor just like Q&A.

Each method has their limitations, Wordmerge you have to stop or use external program's Macro and visual basics and/or modify Registry to cleanly printout the merged data without any interruption.  With Wordmerge Lite I was missing the complete control over the formating and how it prints out on paper that is the limitation we have come to know about HTML, looks great on display however.  With plain text file merging you miss that text enhancement and formating both.

When I looked at MergeFilePrint() command, it practically solved my all mergeprint needs.  It printout document without interruption, it has all the enhancements. I do not think even development team envisioned it to carry out merging of data from external applications with its "Matches" parameter.


I can manipulate and format data whatever way I want using s-basic in Sesame itself.  If I want to review the document and edit before I print out without disturbing standard merge document, no problems.  It is extremely compact command with seven parameters without making source file or various documents menu or whatever.  What user want is the result with the least interference or input when it could be avoided.

For me, if any of the prescription field has value, just print a prescription, when lab is ordered as per the Lab element just print that form in the lab, the same for consultation, x-ray requisition, going back to school or work statements etc. all these selectively done as needed without pressing any button when record is new.  All these can be done with minimum of codeing with MergeFilePrint() command with RTF option. 

There are couple of limitations however..
1. Cannot beat printstring() when dealing with pre-printed forms.
2. I wish to have option of AlternateDefaultPrinter
3. Fold is currently not working with .rtf file but this could be worked around using "Matches" parameter.

Why am I blabbering all these? Well, this command could be the answer to mergeprinting needs without having inbuilt word-processor.  More than anything else, the mergeprint needs are taken care of with minimal programing and great results.  I wish Sesame Development team to invest more time and effort in order to enhance and develop this command further.

Mark,

If Last DOES have a value, this will cause First and Company to appear on the same line without Last.

You need to have a space after "\par" to allow Last to be displayed. But, that space will cause a blank line when Last is blank.

I'm working on a solution. More on this later...

Thanks Mark. In the meantime we will work with the workaround !

The other limitation of MergeFilePrint() that I forgot to mention is it's inability to handle element's data with carriage return or paragraphs. Simply replacing @NL () with "\par " will not work. but if you place couple of loops as in the code under will take care of that limitation. This is once again just Sesame side coding and it does not involve editing of RTF document file with Notepad.

var n as int
var vPath as String = "C:\Sesame2\Docs\Understand.rtf"
var vAddress as String
var vApt_Number as String
var vCity as String
var vState as String
var vZip as String
var vPhone as String
var vFileName as String   //only used during testing or when you want to review before printing
var vExtFields as String
var vList as String
var vUnderstanding as String
var vUND as String

SetStringArraySeparator (";")  //since later on we are using Set and restore different separator so it is needed

//Following used to Merge Data from different database or applications

vList = @XLookupSourceList (@FN, RecNumber, "Index!RecNumber", "Address;Apt_Number;City;State;Zip;Phone")

vAddress = @AccessStringArray (vList, 1)
vApt_Number = @AccessStringArray (vList, 2)
vCity = @AccessStringArray (vList, 3)
vState = @AccessStringArray (vList, 4)
vZip = @AccessStringArray (vList, 5)
vPhone = @AccessStringArray (vList, 6)

If vApt_Number <> "" then
	{
		vAddress = vAddress + " APt#: " + vApt_Number
	}

//This will take care for carriage return if any
vUnderStanding = UND

//Remove Blank lines

While @IN (vUnderstanding, @NL ( ) + @NL ( )) > 0
	{

		vUnderstanding = @Replace (vUnderstanding, @NL ( ) + @NL ( ), @NL ( ))
	}



SetStringArraySeparator (@NL())

For n = n to @CountStringArray(vUnderstanding)
	vUND = vUND + @AccessStringArray (vUnderstanding, n) + "\par "
	Next
RestoreStringArraySeparator ( )

vUnderstanding = vUND


// vUnderstanding = @Replace (vUnderstanding, @NL ( ), "\Par ") //Space after \par is very important //did not work for format paragraph

vFileName = "c:\sesame2\Data\Und_test.rtf"


	if fileExists(vFileName)
	{
		fileDelete(vFileName)
	}

vExtFields = "Address=" + vAddress + ";City=" + vCity + ";State=" + vState +
 ";Zip=" + vZip + ";Phone=" + vPhone + ";Understand=" + vUnderstanding


// MergeFilePrint(vPath , "rtf", "", "", vExtFields, "Data\Und_test", 0)   //file will display before printing
// n = @AsynchShell (vFileName)

MergeFilePrint(vPath , "rtf", "", "", vExtFields, "", 0) //File will print without displaying

 

Mark, as you mentioned earlier that you are working on the internal command. Since this is purely Sesame side modification, somehow you can accommodate in the code.