Address printing

[SeniorCitizen]

In a three line address is there a way to move the third line to the second line if the second line is blank and blank out the original third line. This would leave no blank line in the two line addresses?

[June7]

Could try using concatenation with a mix of + and & characters.

+ sign causes concatenation with string and Null to return Null.
& sign causes concatenation with string and Null to return string.

F1 & Chr(13) & Chr(10) & (F2 + Chr(13) + Chr(10)) & F3

Or a VBA custom function to return concatenated string.

Or set 3 textboxes to AllowShrink and AllowGrow to yes. Set their height to 0 and position them up against each other.

[mike60smart]

Hi
You can use the following in an Unbound Textbox:-

=([Companyname]& Chr(13) & Chr(10)) &
([Address1]+Chr(13)+Chr(10)) &
([Address2]+Chr(13)+Chr(10)) &
([Address3]+Chr(13)+Chr(10)) &
([Town]+Chr(13)+Chr(10)) &
([PostCode]+Chr(13)+Chr(10)) & [Country]

[moke123]

I use this for mailing addresses

Function MailingAddress(Optional St As Variant = Null, Optional Cty As Variant = Null, Optional State As Variant = Null, Optional Zip As Variant = Null, Optional Apt As Variant = Null) As Variant


    MailingAddress = (St + vbNewLine) & ("Apt " + Apt + vbNewLine) & (Cty + ", ") & (State + " ") & Zip


End Function