How to print Word Template for all Customers

Answers

• Options

  IvonaK Member Posts: 114

  2015-12-15

  Hi to all,
  
  I have resolve this problem with this code:
  
  
  Customer.RESET;
  IF Customer.FINDSET THEN
  BEGIN
  
  CREATE(wdApp,FALSE,TRUE);
  TemplateName := 'c:\IOS\IOSCustomer.dotx';
  wdDoc := wdApp.Documents.Add(TemplateName);
  wdApp.ActiveDocument.Fields.Update;
  
  // Code added
  wdApp.Selection.WholeStory; // Select and copy templates lines
  wdApp.Selection.Copy;
  
  REPEAT
  Customer.CALCFIELDS("Net Change (LCY)");
  
  wdRange := wdApp.ActiveDocument.Fields.Item(1).Result;
  wdRange.Text := Customer.Name;
  wdRange := wdApp.ActiveDocument.Fields.Item(2).Result;
  wdRange.Text := FORMAT(gdate);
  wdRange.Bold := 0;
  wdRange := wdApp.ActiveDocument.Fields.Item(3).Result;
  wdRange.Text := FORMAT(Customer."Net Change (LCY)", 15, '<Integer Thousand><Decimals,3><Sign,1>');
  wdRange.Bold := 1;
  wdRange := wdApp.ActiveDocument.Fields.Item(4).Result;
  wdRange.Text := Customer.Name;
  wdRange.Bold := 0;
  
  // Code added
  wdApp.ActiveDocument.Fields.Unlink; // Replace all the fields in the first letter
  wdApp.Selection.EndKey; // Go to end of the document
  
  wdApp.Selection.InsertBreak; // Start new page
  wdApp.Selection.PasteAndFormat(16); // Paste copied template
  UNTIL Customer.NEXT=0;
  
  wdApp.Visible :=TRUE;
  CLEAR(wdApp);
  END;
  
  But it works for few customers, if I have a lot of customers I got the error like picture
  
  Any advice.
  
  Thanks a lot,
  

  Slika.jpg 26.6K

  0