I merge one page at a time, appending them to a twpcustomrtfedit. The 1st page has one fewer blank lines at the top than all the others. I can fix this by adding a blank line at the top of the first page (below) but that makes me cringe. There's gotta be something I'm missing. Any ideas?
Code
rtftemplate.MergeText;
if first then begin
rtfmerged.AsString := rtftemplate.AsString;
rtfMerged.CPPosition := 0;
rtfMerged.InputString(#13); //paragraph
end
else begin
rtfMerged.CPPosition := MaxInt;
rtfMerged.InputString(#12); //new page
rtfmerged.FastAppendText(rtftemplate);
end;
Alles anzeigen