Re: 章毎ページ付けと墨（隅）入れ方法

名前: Y.Izumi
日時: 2002-03-07 01:57:41
IPアドレス: 218.41.138.*

>>7212

こんな感じでどうでしょう。1.と2.の両方を実現しています。
これは節で使う場合です。章で使う場合は以下の部分を機械的に section→chapter で置換
してください。
あと，12pt などで使っている場合は 3cm を 3truecm のように指定してください（参考：ここ）

---------- 以下を \documentclass と \begin{document} の間に挿入
\makeatletter

\let\sections@ve\section
\def\section{\setcounter{page}{1}\sections@ve}

\newlength\sumiskip  \setlength\sumiskip  {3cm} % 最初の墨入れまでの長さ
\newlength\sumiwidth \setlength\sumiwidth {3mm} % 墨の幅
\newlength\sumiheight\setlength\sumiheight{1cm} % 墨の高さ

\def\@sumiire#1{%
   \bgroup
   \dimen\z@\sumiskip
   \advance\dimen\z@\c@section\sumiheight
   \advance\dimen\z@\m@ne\sumiheight
   \advance\dimen\z@\m@ne\topmargin
   \advance\dimen\z@\m@ne\headheight
   \advance\dimen\z@-1in
   \dimen\tw@\paperwidth
   \advance\dimen\tw@\m@ne#1
   \advance\dimen\tw@-1in
   \hfuzz\paperwidth \vfuzz\paperheight
   \lower\dimen\z@\hbox to \dimen\tw@{%
     \hss\vrule width \sumiwidth height \z@ depth \sumiheight}%
   \egroup}

\def\ps@sumiire{%
   \let\@mkboth\@gobbletwo
   \let\ps@jpl@in\ps@mystyle
   \def\@oddhead{\@sumiire\oddsidemargin}%
   \def\@evenhead{\@sumiire\evensidemargin}%
   \def\@oddfoot{\reset@font\hfil\thesection-\thepage\hfil}%
   \let\@evenfoot\@oddfoot}

\makeatother

\pagestyle{sumiire}

この書き込みへの返事：