Sample VB Script to Assign Fields from Page 1 to Page 2

 

Private Sub Form_BeforePrint (Device As fdPrintDevice, Cancel As Boolean)

'/////////////////////////////////////////////////////////////////////////////
' This script will simply assign the fields from Page one to the second
' (and third) page
'/////////////////////////////////////////////////////////////////////////////

Dim lcField As Field  'Declare field object work variable
Dim lcPage As Page  'Declare page object work variable

'transfer values from page one to any corresponding values in the new page
For Each lcField In Thisform.Pages( "PAGE_NAME_FOR_PG_1" ).Fields

'/////////////////////////////////////////////////////////////////////
'there is a chance that a field on page 1 is not in the new desired page.  This will cause an
'error to occur when the value is copied.  We want to ignore this error and continue with the
'other fields.  If this error-handling statement is not included, then this page will not print
'out if an error occurs.
'/////////////////////////////////////////////////////////////////////
On Error Resume Next   'ignore errors

ThisForm.Pages("PAGE_NAME_FOR_PG_2").Fields("FIELDNAME" + "2").Activate  'activate field
ThisForm.Pages("PAGE_NAME_FOR_PG_2").Fields("FIELDNAME" + "2").Value = lcField.Value 'copy value

ThisForm.Pages("PAGE_NAME_FOR_PG_3").Fields("FIELDNAME" + "3").Activate  'activate field
ThisForm.Pages("PAGE_NAME_FOR_PG_3").Fields("FIELDNAME" + "3").Value = lcField.Value 'copy value
Next

End Sub