Hello everyone. I am new to working with Crystal Reports and need help with modifying the AddressBlock so that I can insert 2 blank lines after the first field within the AddressBlock. The AddressBlock looks like this: [VendorNameXxxxxXxxxxXxxxxXxx] [AddressLine1XxxxxXxxxxXxxxxX] [AddressLine1XxxxxXxxxxXxxxxX] [CityXxxxxXxxxxXxxx], Xx [ZipCodeX] The formula coding looks like this: ------------------------------------------------ Dim VendorName as string Dim AddressLine1 as string Dim AddressLine2 as string Dim AddressLine3 as string Dim City as string Dim State as string Dim ZipCode as string Dim RemitToVendorName as string Dim RemitToAddressLine1 as string Dim RemitToAddressLine2 as string Dim RemitToAddressLine3 as string Dim RemitToCity as string Dim RemitToState as string Dim RemitToZipCode as string if {AP_CheckWrk.VendorName} "" then VendorName = {AP_CheckWrk.VendorName} + chr(13)+ chr(10) if {AP_CheckWrk.AddressLine1} "" then AddressLine1 = {AP_CheckWrk.AddressLine1} _ + chr(13)+ chr(10) if {AP_CheckWrk.AddressLine2} "" then AddressLine2 = {AP_CheckWrk.AddressLine2} _ + chr(13)+ chr(10) 'if {AP_CheckWrk.AddressLine3} "" then AddressLine3 = {AP_CheckWrk.AddressLine3} _ + chr(13)+ chr(10) if {AP_CheckWrk.City} "" then City = {AP_CheckWrk.City} + ", " if {AP_CheckWrk.State} "" then State = {AP_CheckWrk.State} + " " if {AP_CheckWrk.ZipCode} "" then ZipCode = {AP_CheckWrk.ZipCode} if {AP_CheckWrk.RemitToVendorName} "" then RemitToVendorName = {AP_CheckWrk.RemitToVendorName} _ + chr(13)+ chr(10) if {AP_CheckWrk.RemitToAddressLine1} "" then RemitToAddressLine1 = _ {AP_CheckWrk.RemitToAddressLine1} + chr(13)+ chr(10) if {AP_CheckWrk.RemitToAddressLine2} "" then RemitToAddressLine2 = _ {AP_CheckWrk.RemitToAddressLine2} + chr(13)+ chr(10) 'if {AP_CheckWrk.RemitToAddressLine3} "" then RemitToAddressLine3 = _ {AP_CheckWrk.RemitToAddressLine3} + chr(13)+ chr(10) if {AP_CheckWrk.RemitToCity} "" then RemitToCity = {AP_CheckWrk.RemitToCity} + ", " if {AP_CheckWrk.RemitToState} "" then RemitToState = {AP_CheckWrk.RemitToState} + " " if {AP_CheckWrk.RemitToZipCode} "" then RemitToZipCode = {AP_CheckWrk.RemitToZipCode} if {@PrintRemitToInformation } = "N" then formula = VendorName + AddressLine1 + AddressLine2 + AddressLine3 + City + State + ZipCode elseif {@PrintRemitToInformation } = "Y" then formula = RemitToVendorName + RemitToAddressLine1 + RemitToAddressLine2 + RemitToAddressLine3 _ + RemitToCity + RemitToState + RemitToZipCode end if --------------------------------------- Any help will be greatly appreciated. Thank you. Johnny2034
↧