Need help for Envelope Printing code

I need Urgent Help for changing print orientation as shown in attached images.
My codes are as follow

[#Form: Ledger]

Button : Address Print

[Button: Address Print ]
Key : Alt + E
Action : Print Report : Envelope Print Report

[#Part: DSP TitleInfo]



Add: Line: After: DSP AddlTitleVar : My Card, Envelope Size


[Line: My Card]
Field: Medium Prompt, Print Envelope
Local: Field: Medium Prompt : Set as : $$LocaleString:"Print Envelope" + " ? "
Local: Field: Medium Prompt : Space Left : 15 mms

[Field: Print Envelope]
Use : Logical field
Set As : No
Set Always : yes

[Line:Envelope Size]
Field: Medium Prompt, Envelope Size
Local: Field: Medium Prompt : Set as : $$LocaleString:" Envelope Size " + " ? "
Local: Field: Medium Prompt : Space Left : 15 mms
Local: Field: Medium Prompt : Inactive : NOT #PrintEnvelope

[Field: Envelope Size]
Use : Name Field
Show Table : Always
Inactive : NOT #PrintEnvelope
Table : Size Evelop
Variable : TSPL Env Table
Modifies : TSPL Env Table : Yes


[System: Variable]
Variable : TSPL Env Table : String



[Collection: Size Evelop]
Title : "Envelope Size"
List Name : " Envelope Size 4 x 6 ", " Envelope Size 6 x 8"


[Report :Envelope Print Report]
Form : Envelope Print Form
Object : Ledger ;Voucher

[Form : Envelope Print Form]
Width : 295 mms ;165 mms ; 100% Page
Height : 210 mms ; 95 mms ;100% Page
Parts : Envprnt To Part, Envprnt LedAddr Part, Envprnt Title Part


[Part : Envprnt To Part]
Space Top : 65 mms ;05 mms
Space Left : 213 mms ;70 mms ;55
Line : Envprnt To ;Part

[Part : Envprnt LedAddr Part]
Space Top : 03 mms
Space Left : 213 mms ;70 mms ;55
;Space Right : 70 mms
Line : Envprnt LedName, Envprnt LedAddress, Envprnt Statepin, Envprnt MobileNo, Envprnt Email
Repeat : Envprnt LedAddress:Envprnt Party ReAddress
Vertical : Yes

[Line : Envprnt To]
Field : Envprnt To

[Field : Envprnt To]
Use : Name Field
Set as : " To, "
Align : Left
Style : Envprnt To Font1
Full Width : Yes


[Line : Envprnt LedName]
Field : Envprnt LedName


[Field : Envprnt LedName]
Use : Name Field
Setas : " M/s. " + $MailName;:Ledger:$PartyLedgerName ;$PartyLedgerName; ;
Align : Left
Style : Envprnt To Font2
Full Width : Yes

[Line : Envprnt LedAddress]
Field: Envprnt LedAddress

[Field: Envprnt LedAddress]
Use : Name Field
Setas : $Address
Style : Envprnt To Font3
Full Width : Yes

[Line: Envprnt Statepin]
Field: Envprnt Statepin

[Field: Envprnt Statepin]
Use : Name Field
Set as : $StateName + " - " + $PinCode
Style : Envprnt To Font3
Full Width : Yes


[Line: Envprnt MobileNo]
Field: Envprnt MobileNo

[Field: Envprnt MobileNo]
Use : Name Field
Set as : " Ph. : " + $LedgerMobile + " , " + $LedgerPhone
Style : Envprnt To Font3
Full Width : Yes

[Line: Envprnt Email]
Field : Envprnt Email

[Field: Envprnt Email]
Use : Name Field
Set as : " E_mail : " + $EMail;:Ledger:$PartyLedgerName
Style : Envprnt To Font3
Full Width : Yes

[Collection: Envprnt Party ReAddress]
Type : Address : Ledger
Child of : ##PartyLedgerName
Parm Var : PartyLedgerName : String : $PartyLedgerName

[Style : Envprnt To Font1]
Font : "Arial"
Height : 12
Bold : Yes

[Style : Envprnt To Font2]
Font : "Arial"
Height : 11
Bold : Yes

[Style : Envprnt To Font3]
Font : "Arial"
Height : 10
Bold : Yes


[Part : Envprnt Title Part]
Space Top : 7 mms
Space Left : 143 mms ;4 mms
Line : Envprnt Title Part

[Line: Envprnt Title Part]
Field : Envprnt Title Part

[Field: Envprnt Title Part]
Use : Name Field
Set as : "(If not delivered, please return it)"
Style : Envprnt From Font1
Full Width : Yes

[Report : Size1125 Envelope Print Report]
Form : Size1125 Envelope Print Form
Object : Ledger ;Voucher

[Form : Size1125 Envelope Print Form]
Width : 295 mms
Height : 210 mms
Parts : Size1125 Envprnt To Part, Size1125 Envprnt LedAddr Part, Size1125 Envprnt Title Part


[Part : Size1125 Envprnt To Part]
Space Top : 60 mms
Space Left : 145 mms
;Space Right : 70 mms
Line : Size1125 Envprnt To ;Part

[Part : Size1125 Envprnt LedAddr Part]
Space Top : 03 mms
Space Left : 145 mms
Line : Size1125 Envprnt LedName, Size1125 Envprnt LedAddress, Size1125 Envprnt Statepin, Size1125 Envprnt MobileNo, Size1125 Envprnt Email
Repeat : Size1125 Envprnt LedAddress:Size1125 Envprnt Party ReAddress
Vertical : Yes

[Line : Size1125 Envprnt To]
Field : Size1125 Envprnt To

[Field : Size1125 Envprnt To]
Use : Name Field
Set as : " To, "
Align : Left
Style : Size1125 Envprnt To Font1
Full Width : Yes

[Line : Size1125 Envprnt LedName]
Field : Size1125 Envprnt LedName


[Field : Size1125 Envprnt LedName]
Use : Name Field
Setas : " M/s. " + $MailName;:Ledger:$PartyLedgerName ;$PartyLedgerName; ;
Align : Left
Style : Size1125 Envprnt To Font2
Full Width : Yes

[Line : Size1125 Envprnt LedAddress]
Field: Size1125 Envprnt LedAddress

[Field: Size1125 Envprnt LedAddress]
Use : Name Field
Setas : $Address
Style : Size1125 Envprnt To Font3
Full Width : Yes

[Line: Size1125 Envprnt Statepin]
Field: Size1125 Envprnt Statepin

[Field: Size1125 Envprnt Statepin]
Use : Name Field
Set as : $StateName + " - " + $PinCode
Style : Size1125 Envprnt To Font3
Full Width : Yes

[Line: Size1125 Envprnt MobileNo]
Field: Size1125 Envprnt MobileNo

[Field: Size1125 Envprnt MobileNo]
Use : Name Field
Set as : " Ph. : " + $LedgerMobile + " , " + $LedgerPhone
Style : Size1125 Envprnt To Font3
Full Width : Yes

[Line: Size1125 Envprnt Email]
Field : Size1125 Envprnt Email

[Field: Size1125 Envprnt Email]
Use : Name Field
Set as : If $$IsEmpty:$EMail then "" else " E_mail : " + $EMail
Style : Size1125 Envprnt To Font3
Full Width : Yes

[Collection: Size1125 Envprnt Party ReAddress]
Type : Address : Ledger
Child of : ##PartyLedgerName
Parm Var : PartyLedgerName : String : $PartyLedgerName

[Style : Size1125 Envprnt To Font1]
Font : "Arial"
Height : 15
Bold : Yes


[Style : Size1125 Envprnt To Font2]
Font : "Arial"
Height : 14
Bold : Yes

[Style : Size1125 Envprnt To Font3]
Font : "Arial"
Height : 13
Bold : Yes


[Part : Size1125 Envprnt Title Part]
;Space Top : 10 mms
;Space Bottom : 10 mms
Space Top : 5 mms
Space Left : 50 mms ;4 mms
Line : Size1125 Envprnt Title Part

[Line: Size1125 Envprnt Title Part]
Field : Size1125 Envprnt Title Part

[Field: Size1125 Envprnt Title Part]
Use : Name Field
Set as : "(If not delivered, please return it)"
Style : Size1125 Envprnt From Font1
Full Width : Yes


[Style : Size1125 Envprnt From Font1]
Font : "Arial"
Height : 12
Italic : Yes



[Style : Size1125 Envprnt From Font2]
Font : "Arial"
Height : 15
Bold : Yes


[Style : Size1125 Envprnt From Font3]
Font : "Arial"
Height : 14
Bold : Yes

[Style : Size1125 Envprnt From Font4]
Font : "Arial"
Height : 13
Bold : Yes


Please suggest the required changes and place in coding.

 

Thanks for your prompt support but, still getting the same result. Nothing is changed.
can you define full [Form : Envelope Print Form] with its nested lines so I copy that and test again.

 

Solved
a gentleman helped me to solve the issue.
need to define variable first in #report and then use it as suggested by Amit Kamadar
Thank you to all helpers too.

 

Who was that Gentleman ???

 

Of course you... Little bit confused with Username and email id of yours, so did not mention the name.