iwase/kojo3 の履歴ソース(No.2)

• 履歴一覧
• 差分 を表示
• 現在との差分 を表示
• 履歴 を表示
• iwase/kojo3 へ行く。
  • 1 (2020-04-22 (水) 08:50:22)
  • 2 (2020-11-14 (土) 09:36:22)
  • 3 (2022-11-11 (金) 13:19:45)

昨年から国税庁の仕様が大幅に変更になったので、基礎配偶者調整控除申告書を作るマクロに変更が必要であった。

おそらく、uplatex で動かすのは無理だと思う。

 %%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
 %											%
 %	基礎配偶者調整控除申告書	Norio Iwase	% 
 %											%
 %%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
 %!TEX TS-program = XeLaTeX
 %!TEX encoding = UTF-8 Unicode
 %%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
 \input haigusha-20.inc
 %%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
 \令和{2}年分配偶者特別控除等申告書	%
 %%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
 %
 %%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
 %  研究機関のＩＤ				%
 %%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
 %
 \税務所轄：{西福岡}税務署長{福岡市西区}市区町村長
 \所属機関：{国立大学法人　九州大学}番号{３２９０００５００３７４３}
 \所在地〒{819-0395}{福岡市西区元岡744番地}
 \部局{何某研究院}（{1200308000}）：{某部門}	% 数理？
 \事務局{某学部等}（{0 0 2 0 9}）	% 理学の事務局？
 %
 %%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
 %  本人のＩＤ					%
 %%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
 %
 \本人姓{何}{ナニ}
 \本人姓{某}{ボウ}
 \本人名{某}{ボウ}
 \本人名{某}{ボウ}
 \本人番号{23442342}
 \配偶者姓{何}{ナニ}
 \配偶者姓{某}{ボウ}
 \配偶者名{何}{ナニ}
 \配偶者名{何}{ナニ}
 \配偶者は昭和{22}年{2}月{2}日生まれの{続柄} % 明治、大正、昭和、平成に対応
 \本人住所{福岡市西区元岡 1-2-3}
 \配偶者住所{米国アトランタ州} % 同居でない場合
 \海外仕送り{5000000}円 % 国内非居住の場合に生計を一にする事実
 %
 %%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
 %  配偶者控除					%
 %%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
 %
 \本人収入{550000}円{0}円{0}円{0}円{0}円{0}円{0}円
 \配偶者収入{340000}円{0}円{0}円{0}円{0}円{0}円{0}円
 %
 %%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
 \これで終り書き出し			%
 %%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%

インクルードファイル haigusha-20.inc は以下の通りである。 また、均等割り付けのマクロ fitwidth.sty は http://www.math.nagoya-u.ac.jp/~kubo/ja/latex/tips-003.html から取って来た。

 %%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
 %											%
 %  配偶者控除申告書 Form by Norio Iwase	%
 %											%
 %%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
 \ifx\undefined\XeTeXversion
  \documentclass[12pt,a4j]{jarticle}
  \usepackage[dvipdfmx]{graphicx}
  \usepackage[deluxe]{otf}
 \else
  \documentclass[12pt,a4paper]{article}
  \usepackage[xetex]{graphicx}
  \usepackage[no-math]{fontspec}
  \usepackage[boldfont,slantfont]{xeCJK}
  \usepackage{zxjatype}
  \usepackage{zxotf}
  \usepackage{xunicode}\usepackage{xltxtra}
  \CJKspace
 %
  \defaultfontfeatures{Mapping=tex-text}
  \setromanfont{Times}\setsansfont{Papyrus}\setmonofont{Arial}
  \setjamainfont[Scale=0.95]{HGSeikaishotaiPRO}
  \setjasansfont[Scale=0.9]{IPAexMincho}
  \setjamonofont[Scale=0.9]{Osaka-Mono}
 \fi
 %%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
 %	共通設定						%
 %%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
 \setlength{\voffset}		{  38.5mm}
 \setlength{\hoffset}		{ -12.0mm}
 %%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
 \usepackage{amssymb}
 \usepackage{ifthen,numbersty}
 \usepackage{lscape}
 \usepackage{curves}
 \usepackage{fitwidth}
 %%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
 %  マクロ							%
 %%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
 %
 \makeatletter
 \newcount\yowai \yowai=\year
 \def\生まれは明治#1年#2月#3日{%
 \advance\yowai-1867\advance\yowai by -#1}
 \def\生まれは大正#1年#2月#3日{%
 \advance\yowai-1911\advance\yowai by -#1}
 \def\生まれは昭和#1年#2月#3日{%
 \advance\yowai-1925\advance\yowai by -#1}
 \def\生まれは平成#1年#2月#3日{%
 \advance\yowai -1988\advance\yowai by -#1}
 \makeatother
 %
 \def\税務所轄：#1税務署長#2市区町村長{%
  \put(1.0,359.5){\makebox(35,0)[bc]{\Large #1}}}
 \def\所属機関：#1番号#2{%
 \put(118.5,376.0){\makebox(90,0)[bc]{\large #1}}%
 \put(118.5,361.5){\makebox(90,0)[bc]{\fitwidth{14.4em}{#2}}}}
 \def\所在地〒#1#2{\gdef\kikanzip{#1}%
 \put(100.8,347.8){\makebox(90,7)[cl]{%{〒#1} 
 #2}}}
 \def\機関代表：#1氏名#2{\gdef\kikanchou{#1}\gdef\souchou{#2}}
 \def\部局#1（#2）：#3{\gdef\bukyoku{#1}\gdef\bukyokucode{#2}\gdef\bumon{#3}}
 \def\事務局#1（#2）{\gdef\jimu{#1}\gdef\jimucode{#2}}
 %
 \def\本人所属：#1職#2{\gdef\shozoku{#1}\gdef\shoku{#2}}
 \def\電話#1{\gdef\denwa{#1}}
 \def\電子郵便#1{\gdef\denshimail{#1}}
 \def\ファックス#1{\gdef\fax{#1}}
 \def\本人住所#1{
  \put(276.0,348.0)	{\makebox(140,7)[cl]{#1}}
 }
 \def\配偶者住所#1{
  \put(331.0,262.0)	{\makebox(140,7)[cl]{#1}}
 }
 \def\海外仕送り#1円{
  \def\Gaikoku{#1}
 }
 \newcount\HUmare \HUmare=448
 \newcount\HUmareh \HUmareh=282
 \def\配偶者は昭和#1年#2月#3日生まれの#4{
  \def\HYear{#1}\def\HMonth{#2}\def\HDay{#3}\gdef\htuduki{#4}
  \生まれは昭和{#1}年{#2}月{#3}日
 }
 \def\配偶者は平成#1年#2月#3日生まれの#4{
  \advance\HUmare 7
  \def\HYear{#1}\def\HMonth{#2}\def\HDay{#3}\gdef\htuduki{#4}
  \生まれは平成{#1}年{#2}月{#3}日
 }
 \def\配偶者は明治#1年#2月#3日生まれの#4{
  \advance\HUmareh 5
  \def\HYear{#1}\def\HMonth{#2}\def\HDay{#3}\gdef\htuduki{#4}
  \生まれは明治{#1}年{#2}月{#3}日
 }
 \def\配偶者は大正#1年#2月#3日生まれの#4{
  \advance\HUmare 7
  \advance\HUmareh 5
  \def\HYear{#1}\def\HMonth{#2}\def\HDay{#3}\gdef\htuduki{#4}
  \生まれは大正{#1}年{#2}月{#3}日
 }
 %
 \newcount\Line
 \newcount\Col
 \newcount\Kisokojo
 %
 \newcount{\kyuyo}\kyuyo=0
 \newcount{\shotoku}\shotoku=0
 \newcount{\hkyuyo}\hkyuyo=0
 \newcount{\hshunyu}\hshunyu=0
 \newcount{\hshotoku}\hshotoku=0
 \def\本人収入#1円#2円#3円#4円#5円#6円#7円{
 \Line=150
 \Col=11
 \Kisokojo=480000
 \gdef\kubunABC{}
 \kyuyo=#1 
 \ifnum\kyuyo<8500000 
  \ifnum\kyuyo<6600000
   \ifnum\kyuyo<3600000
    \ifnum\kyuyo<1800000
     \ifnum\kyuyo<1628000
      \ifnum\kyuyo<1624000
       \ifnum\kyuyo<1622000
        \ifnum\kyuyo<1620000
         \ifnum\kyuyo<1619000
          \ifnum\kyuyo<551000
           \kyuyo=0 \else \advance\kyuyo -550000 \fi
        \else \kyuyo=1069000 \fi
        \else \kyuyo=1070000 \fi
       \else \kyuyo=1072000 \fi
      \else \kyuyo=1074000 \fi
     \else
      \divide\kyuyo by 4000 \multiply\kyuyo by 2400
      \advance\kyuyo by 100000
     \fi
    \else
     \divide\kyuyo by 4000 \multiply\kyuyo by 2800
     \advance\kyuyo by -80000
    \fi
   \else
    \divide\kyuyo by 4000 \multiply\kyuyo by 3200
    \advance\kyuyo by -440000
   \fi
  \else
   \multiply\kyuyo by 9
   \divide\kyuyo by 10
   \advance\kyuyo by -1100000
  \fi
 \else 
  \advance\kyuyo -1950000
 \fi
 \ifnum\kyuyo<0 \kyuyo=0\fi \shotoku=\kyuyo
 \ifnum\shotoku>9000000
  \ifnum\shotoku>9500000
   \ifnum\shotoku>10000000
    \ifnum\shotoku>24000000
     \ifnum\shotoku>24500000
      \ifnum\shotoku>25000000
       \gdef\kubunZ{}\Kisokojo=0
      \else\gdef\kubunF{}\Kisokojo=160000\advance\Line by -48\fi
     \else\gdef\kubunE{}\Kisokojo=320000\advance\Line by -38\fi
    \else\gdef\kubunD{}\Kisokojo=480000\advance\Line by -29\fi
   \else\gdef\kubunC{}\gdef\kubunABC{C}\advance\Line by -20\fi
  \else\gdef\kubunB{}\gdef\kubunABC{B}\advance\Line by -11\fi
 \else\gdef\kubunA{}\gdef\kubunABC{A}
 \fi
 %
 \put(\number\Col.2,\number\Line.5)	{\makebox( 18,7)[cr]{ \small$\checkmark$}}
 \put(164.0,135.5)	{\makebox( 18,7)[cc]{ \small \kubunABC}}
 \put(176.0,101.5)	{\makebox( 18,7)[cr]{ \footnotesize \tt\milnumber\Kisokojo}}
 %
 \put(176.0,168.0)	{\makebox( 18,7)[cr]{ \footnotesize\tt\milnumber\shotoku}}
 %
 \Line=284
 \ifx0#1\else\advance\Line -85
 \put(102.0,220.0)	{\makebox( 18,7)[cr]{ \footnotesize\tt\milnumber#1}}
 \put(176.0,220.0)	{\makebox( 18,7)[cr]{ \footnotesize\tt\milnumber\kyuyo}}
 \advance\Line 85\fi
 \ifx0#2\else\advance\Line -96
 \put(124.5,\number\Line.4)	{\makebox( 18,7)[cr]{ \footnotesize\tt\milnumber#2}}
 \advance\Line 96\fi
 \ifx0#3\else\advance\Line -107
 \put(124.5,\number\Line)	{\makebox( 18,7)[cr]{ \footnotesize\tt\milnumber#3}}
 \advance\Line 107\fi
 \ifx0#4\else\advance\Line -119
 \put(124.5,\number\Line.6)	{\makebox( 18,7)[cr]{ \footnotesize\tt\milnumber#4}}
 \advance\Line 119\fi
 \ifx0#5\else\advance\Line -130
 \put(124.5,\number\Line.2)	{\makebox( 18,7)[cr]{ \footnotesize\tt\milnumber#5}}
 \advance\Line 130\fi
 \ifx0#6\else\advance\Line -143
 \put(124.5,\number\Line.8)	{\makebox( 18,7)[cr]{ \footnotesize\tt\milnumber#6}}
 \advance\Line 143\fi
 \ifx0#7\else\advance\Line -155
 \put(124.5,\number\Line.4)	{\makebox( 18,7)[cr]{ \footnotesize\tt\milnumber#7}}
 \advance\Line 155\fi
 }
 \def\配偶者収入#1円#2円#3円#4円#5円#6円#7円{
 \gdef\kubunabcd{④}
 \hkyuyo=#1 \advance \hkyuyo by -650000
 \ifnum\hkyuyo<0 \hkyuyo=0\fi \hshotoku=\hkyuyo
 \ifnum\hshotoku>480000
  \ifnum\hshotoku>950000
   \ifnum\hshotoku>1000000
    \ifnum\hshotoku>1050000
     \ifnum\hshotoku>1100000
      \ifnum\hshotoku>1150000
       \ifnum\hshotoku>1200000
        \ifnum\hshotoku>1250000
         \ifnum\hshotoku>1300000
          \ifnum\hshotoku>1330000
           \gdef\kubunz{}\gdef\kubunabcd{}
          \else\gdef\kubunj{}\fi
         \else\gdef\kubuni{}\fi
        \else\gdef\kubunh{}\fi
       \else\gdef\kubung{}\fi
      \else\gdef\kubunf{}\fi
     \else\gdef\kubune{}\fi
    \else\gdef\kubund{}\fi
   \else\gdef\kubunc{}\fi
  \else\gdef\kubunb{}\gdef\kubunabcd{③}\fi
 \else\ifnum\yowai<70\gdef\kubuna{}\gdef\kubunabcd{②}\else\gdef\kubuns{}\gdef\kubunabcd{①}\fi\fi
 \def\hkojo{0}\def\htkojo{0}
 \ifdefined\kubunA%
  \ifdefined\kubuns\def\hkojo{480000}\fi
  \ifdefined\kubuna\def\hkojo{380000}\fi
  \ifdefined\kubunb\def\htkojo{380000}\fi
  \ifdefined\kubunc\def\htkojo{360000}\fi
  \ifdefined\kubund\def\htkojo{310000}\fi
  \ifdefined\kubune\def\htkojo{260000}\fi
  \ifdefined\kubunf\def\htkojo{210000}\fi
  \ifdefined\kubung\def\htkojo{160000}\fi
  \ifdefined\kubunh\def\htkojo{110000}\fi
  \ifdefined\kubuni\def\htkojo{60000}\fi
  \ifdefined\kubunj\def\htkojo{30000}\fi
 \fi
 \ifdefined\kubunB%
  \ifdefined\kubuns\def\hkojo{320000}\fi
  \ifdefined\kubuna\def\hkojo{260000}\fi
  \ifdefined\kubunb\def\htkojo{260000}\fi
  \ifdefined\kubunc\def\htkojo{240000}\fi
  \ifdefined\kubund\def\htkojo{210000}\fi
  \ifdefined\kubune\def\htkojo{180000}\fi
  \ifdefined\kubunf\def\htkojo{140000}\fi
  \ifdefined\kubung\def\htkojo{110000}\fi
  \ifdefined\kubunh\def\htkojo{80000}\fi
  \ifdefined\kubuni\def\htkojo{40000}\fi
  \ifdefined\kubunj\def\htkojo{20000}\fi
 \fi
 \ifdefined\kubunC%
  \ifdefined\kubuns\def\hkojo{160000}\fi
  \ifdefined\kubuna\def\hkojo{130000}\fi
  \ifdefined\kubunb\def\htkojo{130000}\fi
  \ifdefined\kubunc\def\htkojo{120000}\fi
  \ifdefined\kubund\def\htkojo{110000}\fi
  \ifdefined\kubune\def\htkojo{90000}\fi
  \ifdefined\kubunf\def\htkojo{70000}\fi
  \ifdefined\kubung\def\htkojo{60000}\fi
  \ifdefined\kubunh\def\htkojo{40000}\fi
  \ifdefined\kubuni\def\htkojo{20000}\fi
  \ifdefined\kubunj\def\htkojo{10000}\fi
 \fi
 \put(318.0,220.0)	{\makebox( 18,7)[cr]{ \footnotesize\tt\milnumber#1}}
 \Line=243
 \Col=427
 \ifdefined\kubuns
 \advance\Line -8
 \put(\number\Col.5,\number\Line.5)	{\makebox( 20,7)[cr]{ \small$\checkmark$}}
  \advance\Line 8
 \else\ifdefined\kubuna
 \advance\Line -27
  \put(\number\Col.5,\number\Line.5)	{\makebox( 20,7)[cr]{ \small$\checkmark$}}
  \advance\Line 27
 \else\ifdefined\kubunb
 \advance\Line -44
  \put(\number\Col.5,\number\Line.0)	{\makebox( 20,7)[cr]{ \small$\checkmark$}}
  \advance\Line 44
 \else\ifdefined\kubunz
 \else
 \advance\Line -61
  \put(\number\Col.5,\number\Line.0)	{\makebox( 20,7)[cr]{ \small$\checkmark$}}
  \advance\Line 61
 \fi\fi\fi\fi
 \put(475.0,168.5)	{\makebox( 20,7)[cr]{ \footnotesize\fontspec{HiraMinProN-W3} \kubunabcd}}
 \put(523.0,135)	{\makebox( 20,7)[cr]{ \footnotesize\tt\milnumber\hkojo}}
 \put(523.0,112)	{\makebox( 20,7)[cr]{ \footnotesize\tt\milnumber\htkojo}}
 \advance\Line -64
 %\put(367.5,\number\Line)	{\makebox( 18,7)[cr]{ \footnotesize\tt\milnumber#1}}
 %\put(469.5,\number\Line)	{\makebox( 18,7)[cr]{ \footnotesize\tt\milnumber\hkyuyo}}
 \advance\Line 64
 \advance\Line -150
 %\put(469.5,\number\Line)	{\makebox( 18,7)[cr]{ \footnotesize\tt\milnumber\hshotoku}}
 \advance\Line 150
 }
 %
 %%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
 %	特種設定						%
 %%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
 %
 \makeatletter
 \makeatother
 %
 %%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
 %	\姓・\名 コマンド				%
 %%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
 %
 \newcommand{\rubi}[2]{\hbox{\shortstack{{\scriptsize #2}\\[2.5mm]{#1}}}}
 \newcommand{\hrubi}[2]{\hbox{\shortstack{{\scriptsize #2}\\[1.8mm]{#1}}}}
 \newcommand{\Sei}{}\newcommand{\Mei}{}
 \newcommand{\sei}{}\newcommand{\mei}{}
 \def\本人姓#1#2{\begingroup\def\protect{\noexpand\protect\noexpand}%
   \ifthenelse{\equal{\Sei}{}}{}{\xdef\Sei{\Sei\protect{　}}}%
   \xdef\Sei{\Sei\protect\rubi{#1}{#2}}%
   \ifthenelse{\equal{\sei}{}}{}{\xdef\sei{\sei\protect{}}}%
   \xdef\sei{\sei{\protect\bgroup\protect #1\protect\egroup}}%
   \endgroup}
 \def\本人名#1#2{\begingroup\def\protect{\noexpand\protect\noexpand}%
   \ifthenelse{\equal{\Mei}{}}{}{\xdef\Mei{\Mei\protect{　}}}%
   \xdef\Mei{\Mei\protect\rubi{#1}{#2}}%
   \ifthenelse{\equal{\mei}{}}{}{\xdef\mei{\mei\protect{}}}%
   \xdef\mei{\mei{\protect\bgroup\protect #1\protect\egroup}}%
   \endgroup}
 \def\本人番号#1{\gdef\ID{#1}}
 %
 \newcommand{\HSei}{}\newcommand{\HMei}{}
 \newcommand{\hsei}{}\newcommand{\hmei}{}
 \def\配偶者姓#1#2{\begingroup\def\protect{\noexpand\protect\noexpand}%
   \ifthenelse{\equal{\HSei}{}}{}{\xdef\HSei{\HSei\protect{\ }}}%
   \xdef\HSei{\HSei\protect\hrubi{#1}{#2}}%
   \ifthenelse{\equal{\hsei}{}}{}{\xdef\hsei{\hsei\protect{}}}%
   \xdef\hsei{\hsei{\protect\bgroup\protect #1\protect\egroup}}%
   \endgroup}
 \def\配偶者名#1#2{\begingroup\def\protect{\noexpand\protect\noexpand}%
   \ifthenelse{\equal{\HMei}{}}{}{\xdef\HMei{\HMei\protect{\ }}}%
   \xdef\HMei{\HMei\protect\hrubi{#1}{#2}}%
   \ifthenelse{\equal{\hmei}{}}{}{\xdef\hmei{\hmei\protect{}}}%
   \xdef\hmei{\hmei{\protect\bgroup\protect #1\protect\egroup}}%
   \endgroup}
 \def\配偶者の続柄#1{\gdef\htuduki{#1}}
 %
 \def\令和#1年分配偶者特別控除等申告書{%
 \def\nendo{#1}\gdef\filename{1648_73_r0#1}
 \pagestyle{empty}
 %
 \begin{document}
 \begin{landscape}
 \setlength{\textwidth}		{ 200.0mm}
 \setlength{\textheight}		{ 280.0mm}
 \setlength{\oddsidemargin}	{  -6.8mm}
 \setlength{\unitlength}		{   0.475mm}
 %\setlength\unitlength{0.5mm}
 \begin{picture}(280,200)(-8,204)
 %
 \put(7.7,-4)	{\makebox(547,398){\includegraphics[page=1]{\filename}}}
 %
 }
 %
 \def\これで終り書き出し{
 \put(328.0,368.0)	{\makebox( 60,14)[cc]{\large \Sei {　} \Mei}}
 \put(244.0,264.0)	{\makebox( 60,14)[cc]{\HSei {\ \ } \HMei}}
 \put(\number\HUmare.6,\number\HUmareh.7)	{\scaleput(5,5){\bigcircle{5}}}
 \put(481.0,283.2)	{\makebox( 10,14)[cl]{ \small\HYear}}
 \put(511.0,283.2)	{\makebox( 10,14)[cl]{ \small\HMonth}}
 \put(536.0,283.2)	{\makebox( 10,14)[cl]{ \small\HDay}}
 \ifnum\yowai<70\else
  %\put(240.8,227.2)	{\makebox( 10,14)[cl]{ $\bigcirc$}}
 \fi
 \ifdefined\Gaikoku
  \put(460.0,262.0)	{\makebox( 10,7)[cc]{ $\bigcirc$}}
  \put(540.0,262.0)	{\makebox( 10,7)[cr]{ \footnotesize \tt\milnumber\Gaikoku \,円}}
 \fi
 \put(276,379.0)		{\makebox(30,8)[lc]{\scriptsize \ID}}
 \put(517,382.0)		{\makebox(30,8)[rc]{\scriptsize \jimucode}}
 \ifx\jimu\empty
 \put(-21,403){\makebox(30,8)[lc]{\tt\tiny {\bukyokucode}・{\bukyoku}}}
 \else
 \put(-21,403){\makebox(30,8)[lc]{\tt\tiny {\bukyokucode}・{\bukyoku}（{\jimu}）}}
 \fi
 \put(-20.8,398){\makebox(30,8)[lc]{\tt\tiny {\bukyoku}\ifx\bumon\empty\else{・{\bumon}}\fi}}
 %
 %\put(244.0,257.8){\makebox(0,0)[cc]{\tiny 昭・平}}
 %\put(244.0,262.8){\makebox(0,0)[cc]{\tiny 明・大}}
 %
 \Line=280
 %
 \ifx\undefined\ippan\else
 \advance\Line -3
 \advance\Line 3
 \advance\Line -60
 \advance\Line 60
 \fi
 %
 \ifx\undefined\nippan\else
 \advance\Line -3
 \advance\Line 3
 \advance\Line -60
 \advance\Line 60
 \fi
 %
 \ifx\undefined\kaigo\else
 \advance\Line -70
 \advance\Line 70
 \fi
 \advance\Line -95
 %
 \ifx\undefined\kojin\else
 \advance\Line -11
 \advance\Line 3
 \advance\Line -3
 \advance\Line -3
 \advance\Line 3
 \advance\Line -49
 \advance\Line 49
 \advance\Line 11
 \fi
 %
 \ifx\undefined\nkojin\else
 \advance\Line -11
 \advance\Line 3
 \advance\Line -3
 \advance\Line -3
 \advance\Line 3
 \advance\Line -49
 \advance\Line 49
 \advance\Line 11
 \fi
 %
 \advance\Line -101
 %
 \Line=76
 %
 \ifx\dishin\empty\else
 \advance\Line -32
 \advance\Line -9
 \put(257.5,\number\Line.5){
     \renewcommand{\xscale}{1}
     \renewcommand{\xscaley}{-1}
     \renewcommand{\yscale}{0.7}
     \renewcommand{\yscalex}{0.7}
     }
 \advance\Line 9
 \advance\Line -20
 \advance\Line 20
 \advance\Line -39
 \advance\Line 39
 \advance\Line 32
 \fi
 %
 \ifx\sumi\kuro
 %\put(569.5, 2.5)	{\makebox(0,0){\rule{11mm}{11mm}}}
 \fi
 %
 \end{picture}
 \clearpage
 %\addtolength{\voffset}		{ -4.8mm}
 %\addtolength{\hoffset}		{ -3.8mm}
 \begin{picture}(280,200)(-8,201)
 \put(7.7,-4)	{\makebox(547,403){\includegraphics[page=2,angle=180,origin=c]{\filename}}}
 \end{picture}
 \end{landscape}
 \end{document}
 }