KOMA-Script Documentation Project

% ACHTUNG: Zu Demozuwecken werden hier zwei angebliche PDF-Dateien
% angelegt. die aber keine PDF-Dateien sind. Deshalb darf das Beispiel nicht
% mit pdflatex, sondern muss mit latex (DVI-Modus) verarbeitet werden!
% Wer stattdessen zwei beliebige PDF-Dateien als anlageA.pdf und anlageB.pdf
% speichert, sollte pdflatex im PDF-Modus verwenden!
 
\begin{filecontents}{anlageA.pdf}
%PDF1.0
\end{filecontents}
\begin{filecontents}{anlageB.pdf}
%PDF1.0
\end{filecontents}
 
\documentclass{scrlttr2}
\usepackage[demo]{graphicx}
\usepackage{scrpage2}
\usepackage{pdfpages}
 
%%----------------------------------------------------------------
\pagestyle{scrheadings}
\setkomafont{pagehead}{} 
\ihead{Seite \thepage}
\chead{von}
\ohead{\theabspage}
%% = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = =
 
\usepackage{filecontents}
\begin{filecontents*}{vatospecial.lco}
%%----------------------------------------------------------------
\newcounter{AbsLetter}% Zähler für die Briefe
 
\newcommand*{\EncList}{}% Speicher für die Anlagenbezeichnungen
\newcommand*{\ProcessAppendixInput}{}% Speicher für die Anhänge
\newcommand*{\AddAppendix}[2][]{%
  \ifx\relax#1\relax
    \l@addto@macro{\EncList}{\\#2}%
  \else
    \l@addto@macro{\EncList}{\\#1}%
  \fi
  \l@addto@macro{\ProcessAppendixInput}{\do{#2}}%
}
 
\AtBeginLetter{%
  \stepcounter{AbsLetter}% Mit jedem neuen Brief den Briefezähler hochsetzen
}
\newcounter{appendixemptypage}
\AtEndLetter{% Am Ende jedes Briefs
  \ifx\EncList\@empty\else\encl{\expandafter\@gobble\EncList}\fi% Anlagen ausgeben
  \setcounter{appendixemptypage}{1}% Zähler für leere Seiten initialisieren
  \clearpage% eigentlichen Brief beenden
  \let\do\AppendixInput% \do wird \AppendixInput
  \ProcessAppendixInput% für jeden Anhang \do ausführen
  \if@filesw
    \addtocounter{page}{-\value{appendixemptypage}}% leere Anhangsseite abziehen
    \immediate\write\@auxout{% \immediate ist hier wichtig!
      \noexpand\setabspage{\theAbsLetter}{\the\value{page}}% Seitenzahl merken
    }%
    \addtocounter{page}{\value{appendixemptypage}}% leere Seiten wieder dazu
  \fi
}
\newcommand*{\setabspage}[2]{%
  \expandafter\gdef\csname abspage@#1\endcsname{#2}% Seitenzahl aus dem letzten Lauf
}
\newcommand*{\theabspage}{%
  \@ifundefined{abspage@\theAbsLetter}{% Wenn keine Seitenzahl bekannt
    \@namedef{abspage@\theAbsLetter}{???}% - Platzhalter verwenden
    \label{abspage@\theAbsLetter}% - rerun-Meldung auslösen
  }{}%
  \@nameuse{abspage@\theAbsLetter}% absolute Seitenzahl ausgeben
}
 
\newcommand*{\AppendixInput}[1]{%
  \newpage
  \ifodd\value{page}\else% egal ob twoside oder nicht: zur nächsten ungeraden
    \null\thispagestyle{empty}\stepcounter{appendixemptypage}\newpage
  \fi
  \includepdf[pages=-]{#1}% Anhang einfügen
}
\endinput
\end{filecontents*}
 
\LoadLetterOption{vatospecial}
 
%%================================================================
\listfiles
%%================================================================
\begin{document}
%%----------------------------------------------------------------
\begin{letter}{Max Mustermann}
%
\opening{Sehr geehrter Herr Mustermann,}
%%----------------------------------------------------------------
 
\AddAppendix[Eine Anlage]{anlageA}
\AddAppendix[Noch eine Anlage]{anlageB}
\AddAppendix[Noch eine Anlage]{anlageB}
 
\pagebreak
 
Text
 
%\pagebreak
%%----------------------------------------------------------------
\closing{}
%%================================================================
\end{letter}
 
\begin{letter}{Max Mustermann}
%
\opening{Sehr geehrter Herr Mustermann,}
%%----------------------------------------------------------------
 
\AddAppendix[Eine Anlage]{anlageA}
\AddAppendix[Noch eine Anlage]{anlageB}
 
\pagebreak
 
Text
 
%\pagebreak
%%----------------------------------------------------------------
\closing{}
%%================================================================
\end{letter}
\end{document}