این کار به راحتی با بسته bidi-atbegshi
ممکن است:
\documentclass{article}
\pagestyle{empty}
\usepackage{lastpage}
\usepackage{ptext}
\usepackage[calc]{picture}
\usepackage{bidi-atbegshi}
\usepackage{xepersian}
\settextfont{Yas}
\makeatletter
\AtBeginShipout{%
\AtBeginShipoutUpperRight{%
\setlength{\unitlength}{1mm}
\linethickness{2pt}
\put(1in+\oddsidemargin-10mm,-1in-\topmargin-\headheight-\headsep+10mm){\line(1,0){\textwidth+20mm}}
\put(1in+\oddsidemargin-10mm,-1in-\topmargin-\headheight-\headsep+10mm){\line(0,-1){\textheight+20mm}}
\put(1in+\oddsidemargin-10mm,-1in-\topmargin-\headheight-\headsep-\textheight-10mm){\line(1,0){2mm}}
\put(1in+\oddsidemargin-6mm+\widthof{مقداری متن}
,-1in-\topmargin-\headheight-\headsep-\textheight-10mm){\line(1,0){%
0.5\textwidth-\widthof{مقداری متن}
-8mm
}}
\put(1in+\oddsidemargin+0.5\textwidth-\widthof{نیمسال اول}+\widthof{نیمسال اول ۱۳۹۲-۹۳}
,-1in-\topmargin-\headheight-\headsep-\textheight-10mm){\line(1,0){%
0.5\textwidth+20mm-\widthof{نیمسال اول ۱۳۹۲-۹۳}-\widthof{صفحه \thepage{} از \pageref{LastPage}}
}}
\put(1in+\oddsidemargin+\textwidth+10mm,-1in-\topmargin-\headheight-\headsep-\textheight-10mm){\line(-1,0){2mm}}
\put(1in+\oddsidemargin-7mm,-1in-\topmargin-\headheight-\headsep-\textheight-10mm){مقداری متن}
\put(1in+\oddsidemargin+0.5\textwidth-\widthof{نیمسال اول}
,-1in-\topmargin-\headheight-\headsep-\textheight-10mm){نیمسال اول ۱۳۹۲-۹۳}
\put(1in+\oddsidemargin+\textwidth-\widthof{صفحه \thepage{} از \pageref{LastPage}}
+7mm,-1in-\topmargin-\headheight-\headsep-\textheight-10mm){صفحه \thepage{} از \pageref{LastPage}}
\put(1in+\oddsidemargin+\textwidth+10mm,-1in-\topmargin-\headheight-\headsep+10mm){\line(0,-1){\textheight+20mm}}
\ifnum\c@page=\@ne
\put(1in+\oddsidemargin-10mm,-1in-\topmargin-\headheight-\headsep-\mytopboxheight-5mm){\line(1,0){\textwidth+20mm}}
\fi
}
}
\makeatother
\begin{document}
\newsavebox\mytopbox
\newdimen\mytopboxheight
\setbox\mytopbox\vbox{%
\ptext[1]
}
\setlength{\mytopboxheight}{\ht\mytopbox}
\unvbox\mytopbox
\bigskip\bigskip\bigskip
\ptext[1-100]
\end{document}
و خروجی بصورت زیر خواهد بود:
بسیار امکان دارد که من خودم را در انجام محاسبات گیج کردم و ااحتمالاً بتوان محاسبات را بصورت سادهتری نیز انجام داد. به هر حال این فقط یک Proof Of Concept
است که میوان این کار را به راحتی با بسته bidi-atbegshi
انجام داد.