Seite 1 von 1

Telefonnummer oben rechts im Briefkopf angeben

Verfasst: Do 15. Mär 2018, 08:32
von nixversteh
Moin liebe User,

ich versuche einen Brief für einen Bekannten zu entwerfen, soweit, so gut. Er hätte gerne oben rechts im Brief auch seine Telefonnummer. Das bekomme ich nicht hin. Kann mir jemand helfen?
Vielen Dank
%!TEX TS-program = lualatex
%!TEX encoding = UTF-8 Unicode
\documentclass[parskip=half,version=last,automark,paper=a4, fontsize=12pt, DIV=calc,footheight=43.1pt]{scrreprt}
%---------------------------------------------------------------------------
\usepackage%%
%---------------------------------------------------------------------------
  [enlargefirstpage=on,%%    Erste Seite anders
%---------------------------------------------------------------------------
% Was kommt in den Briefkopf und in die Anschrift
%---------------------------------------------------------------------------
   fromalign=right,%%        Plazierung des Briefkopfs
   fromphone=on,%%           Telefonnummer im Absender
   fromrule=aftername,%%     Linie im Absender (aftername, afteraddress)
   addrfield=on,%%           Adressfeld fuer Fensterkuverts
   backaddress=on,%%         und Absender im Fenster
   subject=beforeopening,%%  Plazierung der Betreffzeile
   locfield=narrow,%%        zusaetzliches Feld fuer Absender
   foldmarks=on,%%           Faltmarken setzen
   numericaldate=on,%%       Datum numerisch ausgeben
   refline=narrow,%%         Geschaeftszeile im Satzspiegel
   firstfoot=on,%%           Footerbereich
]{scrletter}
%---------------------------------------------------------------------------
\usepackage{marvosym}
\usepackage{textcomp}
%---------------------------------------------------------------------------
\setkomavar{firsthead}
{\raggedleft
  {\usekomafont{fromname}\strut\ignorespaces\usekomavar{fromname}} \\
  {\usekomafont{fromaddress}\strut\ignorespaces\usekomavar{fromaddress}} \\
  {\usekomafont{fromrule}\rule{\textwidth}{\useplength{fromrulethickness}}}}
%---------------------------------------------------------------------------
% Dicke der Linie
%---------------------------------------------------------------------------
\makeatletter
\@setplength{fromrulewidth}{\useplength{firstheadwidth}}
\@setplength{fromrulethickness}{2pt}
\makeatother 
%---------------------------------------------------------------------------
\setkomavar{nexthead}{\hspace*{-\oddsidemargin}\hspace{-1in}%
		\hspace{\useplength{toaddrhpos}}%
			\makebox[\textwidth][l]{%
			\parbox[b]{\useplength{firstheadwidth}}{%
	{\usekomafont{pagenumber}\pagename~\thepage}
	\hspace*{\fill}%
	\small\scshape\usekomavar{subject}}}
}
%---------------------------------------------------------------------------
% FONTS Linux Libertinus
%---------------------------------------------------------------------------
\usepackage{fontspec}
\usepackage{metalogo} % Für die Logos von \LaTeX \XeTeX usw.
\usepackage{amsmath} %% Displayed equations
\usepackage{amssymb} %% and additional symbols
\usepackage{amsfonts} 
\usepackage{trace}
\usepackage{amsthm}
\usepackage{unicode-math}
\setmainfont[Contextuals=Alternate,Numbers={OldStyle,Proportional}, Ligatures={TeX, Common}
]{Libertinus Serif}
\setmonofont[Scale=0.85]{Libertinus Mono}
\setsansfont{Libertinus Sans}
\setmathfont{Libertinus Math}
%---------------------------------------------------------------------------
% Überschriften
%---------------------------------------------------------------------------
\usepackage{microtype}
\usepackage[normalem]{ulem}
\setkomafont{disposition}{\rmfamily} % Benutzt eine Schrift für alle Gliederungsebenen
%---------------------------------------------------------------------------
\renewcaptionname{ngerman}\enclname{Anlage}
%---------------------------------------------------------------------------
% color
%---------------------------------------------------------------------------
\usepackage[dvipsnames,svgnames,x11names]{xcolor}
\definecolor{burgundy}{rgb}{0.596078,0,0}      
%---------------------------------------------------------------------------
% Schriften werden hier definiert
%---------------------------------------------------------------------------
\setkomafont{refvalue}{\rmfamily\small}
\setkomafont{refname}{\rmfamily\small}
\setkomafont{backaddress}{\rmfamily}
\newkomavar[\Mobilefone]{mobilphone}
%---------------------------------------------------------------------------
\makeatletter
\@addtoplength[-]{firstfootvpos}{14mm} % Fuß ein Stück nach oben
\makeatother
%---------------------------------------------------------------------------
\usepackage[ngerman]{babel}
%---------------------------------------------------------------------------
\usepackage{scrhack} % Schaltet Warnung der KOMA-Kalssen aus
%---------------------------------------------------------------------------
% Schönes &
%---------------------------------------------------------------------------
\newcommand{\amper}{{\fontspec[Scale=.95]{Adobe Caslon Pro}\selectfont\itshape\&}}
%---------------------------------------------------------------------------
\newcommand\textstyleStrongEmphasis[1]{\textbf{#1}} % Fette Auszeichnung
\newcommand\textstyleEmphasis[1]{\textit{#1}}
% -------------------------------------------------
\usepackage{graphicx}
\usepackage{ellipsis}
\usepackage{etoolbox}
\usepackage{enumitem}
\setlist{noitemsep}
\renewcommand{\labelenumi}{(\arabic{enumi}.)} % Mit zwei Klammern
\robustify\textellipsis

\renewcommand*{\letterpagestyle}{letter}
\newcommand{\RM}[1]{\MakeUppercase{\romannumeral #1{}}} % Römische Ziffern
%---------------------------------------------------------------------------
\begin{document}
%---------------------------------------------------------------------------
% Absenderdaten
%---------------------------------------------------------------------------
\setkomavar{fromname}{Alfred Meier}
\setkomavar{fromaddress}{Alte Allee 8 \\59690 Baden}
\setkomavar{fromphone}[\Telefon~]{02988 45 22}
\setkomafont{fromaddress}{\small\rmfamily\mdseries\slshape\color{burgundy}}
\setkomafont{fromname}{\large\rmfamily\mdseries\slshape\color{burgundy}}
\setkomavar{backaddressseparator}{ - }
\setkomavar{signature}{Alfred Meier}
\renewcommand*{\raggedsignature}{\raggedright}
\renewcaptionname{ngerman}{\myrefname}{Mein Zeichen}
%---------------------------------------------------------------------------
\setkomavar{yourmail}{}
\setkomavar{yourref}{}
\setkomavar{myref}{}
\setkomavar{invoice}{}
\setkomavar{customer}{}
\addtokomafont{lettersubject}{\color{burgundy}}
%---------------------------------------------------------------------------
% Datum und Ort werden hier eingetragen
%---------------------------------------------------------------------------
\setkomavar{date}{15.03.2018}
\setkomavar{place}{Baden}
%---------------------------------------------------------------------------
\begin{letter}
{Landratsamt Baden \\
Thom Monntag \\
Macherstraße 55 \\
91917 Kamenz}
%---------------------------------------------------------------------------
% Der Betreff des Briefes
%---------------------------------------------------------------------------
\setkomavar{subject}{Zusammenführung von bejagdbarer Grundfläche.}
%---------------------------------------------------------------------------
\opening{Sehr geehrter Herr Monntag,}
%---------------------------------------------------------------------------
ich stelle hiermit den Antrag zur Möglichkeit der Abrundung / Abtrennung / Angliederung und Austausch von bejagdbarer Grundfäche in Baden. Gleichzeitig auf den Eingriff in die Jagdpachtverträge wie vor, mit Zustimmung der UJB und mit Zustimmung der Vertragspartner Zusammenfügung isolierter Grundflächen zu einem Jagdbezirk vornehmen zu dürfen.

Für Rückfragen stehe ich Ihnen gerne zur Verfügung.

\closing{Mit freundlichen Grüßen,}
\end{letter}

\end{document}
EDIT: etwas kürzer

Verfasst: Do 15. Mär 2018, 08:37
von Gast
Geht es noch etwas größer? :(

Lies bitte mal die Minimalbeispiel-Anleitung und bemühe dich wenigstens halbwegs um Minimalität.

Da Du den Kopf mit \setkomavar{firsthead} selbst definierst, kannst Du dort natürlich auch an geeigneter Stelle die Telefonnummer unterbringen. Oder habe ich die Frage falsch verstanden?

Off-Topic: Was soll das?

Verfasst: Do 15. Mär 2018, 08:40
von Gast
PS: Warum setzt Du Optionen zunächst beim Laden von scrletter und dann noch einmal und teilweise abweichend mit \KOMAoptions? Willst Du verschleiern, was Du tust, um den Bekannten für alle Zeiten von Deiner Hilfe abhängig zu machen?

...

Verfasst: Do 15. Mär 2018, 08:49
von nixversteh
... nein ich möchte niemanden von mir abhängig machen. Ich habe mir seinerzeit Codeschnippsel zusammen gesetzt. Für meine Anforderungen haben sie gereicht. Nun nicht mehr.
Danke für die Antworten

...

Verfasst: Do 15. Mär 2018, 08:56
von nixversteh
Anonymous hat geschrieben:Geht es noch etwas größer? :(

Lies bitte mal die Minimalbeispiel-Anleitung und bemühe dich wenigstens halbwegs um Minimalität.

Da Du den Kopf mit \setkomavar{firsthead} selbst definierst, kannst Du dort natürlich auch an geeigneter Stelle die Telefonnummer unterbringen. Oder habe ich die Frage falsch verstanden?
... nein, korrekt verstanden, leider habe ich es nicht geschafft, die Nummer dort zu platzieren...

Verfasst: Do 15. Mär 2018, 09:06
von Gast
Was hast Du probiert? Wo genau soll die Nummer stehen? Warum definierst Du den Kopf überhaupt selbst, statt fromalign=right zu verwenden?

...

Verfasst: Do 15. Mär 2018, 09:30
von nixversteh
@all

... habe es jetzt so gelöst:
%!TEX TS-program = lualatex
%!TEX encoding = UTF-8 Unicode
\documentclass[parskip=half,version=last,automark,paper=a4, fontsize=12pt, DIV=calc,footheight=43.1pt]{scrreprt}
%---------------------------------------------------------------------------
\usepackage%%
%---------------------------------------------------------------------------
  [enlargefirstpage=on,%%    Erste Seite anders
%---------------------------------------------------------------------------
% Was kommt in den Briefkopf und in die Anschrift
%---------------------------------------------------------------------------
   fromalign=right,%%        Plazierung des Briefkopfs
   fromphone=on,%%           Telefonnummer im Absender
   fromrule=afteraddress,%%     Linie im Absender (aftername, afteraddress)
   addrfield=on,%%           Adressfeld fuer Fensterkuverts
   backaddress=on,%%         und Absender im Fenster
   subject=beforeopening,%%  Plazierung der Betreffzeile
   locfield=narrow,%%        zusaetzliches Feld fuer Absender
   foldmarks=on,%%           Faltmarken setzen
   numericaldate=on,%%       Datum numerisch ausgeben
   refline=narrow,%%         Geschaeftszeile im Satzspiegel
   firstfoot=on,%%           Footerbereich
]{scrletter}
%---------------------------------------------------------------------------
\usepackage{marvosym}
\usepackage{textcomp}
%---------------------------------------------------------------------------
% Dicke der Linie
%---------------------------------------------------------------------------
\makeatletter
\@setplength{fromrulewidth}{\useplength{firstheadwidth}}
\@setplength{fromrulethickness}{2pt}
\makeatother 
%---------------------------------------------------------------------------
\setkomavar{nexthead}{\hspace*{-\oddsidemargin}\hspace{-1in}%
		\hspace{\useplength{toaddrhpos}}%
			\makebox[\textwidth][l]{%
			\parbox[b]{\useplength{firstheadwidth}}{%
	{\usekomafont{pagenumber}\pagename~\thepage}
	\hspace*{\fill}%
	\small\scshape\usekomavar{subject}}}
}
%---------------------------------------------------------------------------
% FONTS Linux Libertinus
%---------------------------------------------------------------------------
\usepackage{fontspec}
\usepackage{metalogo} % Für die Logos von \LaTeX \XeTeX usw.
\usepackage{amsmath} %% Displayed equations
\usepackage{amssymb} %% and additional symbols
\usepackage{amsfonts} 
\usepackage{trace}
\usepackage{amsthm}
\usepackage{unicode-math}
\setmainfont[Contextuals=Alternate,Numbers={OldStyle,Proportional}, Ligatures={TeX, Common}
]{Libertinus Serif}
\setmonofont[Scale=0.85]{Libertinus Mono}
\setsansfont{Libertinus Sans}
\setmathfont{Libertinus Math}
%---------------------------------------------------------------------------
% Überschriften
%---------------------------------------------------------------------------
\usepackage{microtype}
\usepackage[normalem]{ulem}
\setkomafont{disposition}{\rmfamily} % Benutzt eine Schrift für alle Gliederungsebenen
%---------------------------------------------------------------------------
\renewcaptionname{ngerman}\enclname{Anlage}
%---------------------------------------------------------------------------
% color
%---------------------------------------------------------------------------
\usepackage[dvipsnames,svgnames,x11names]{xcolor}
\definecolor{burgundy}{rgb}{0.596078,0,0}      
%---------------------------------------------------------------------------
% Schriften werden hier definiert
%---------------------------------------------------------------------------
\setkomafont{refvalue}{\rmfamily\small}
\setkomafont{refname}{\rmfamily\small}
\setkomafont{backaddress}{\rmfamily}
\newkomavar[\Mobilefone]{mobilphone}
%---------------------------------------------------------------------------
\makeatletter
\@addtoplength[-]{firstfootvpos}{14mm} % Fuß ein Stück nach oben
\makeatother
%---------------------------------------------------------------------------
\usepackage[ngerman]{babel}
%---------------------------------------------------------------------------
\usepackage{scrhack} % Schaltet Warnung der KOMA-Kalssen aus
%---------------------------------------------------------------------------
% Schönes &
%---------------------------------------------------------------------------
\newcommand{\amper}{{\fontspec[Scale=.95]{Adobe Caslon Pro}\selectfont\itshape\&}}
%---------------------------------------------------------------------------
\newcommand\textstyleStrongEmphasis[1]{\textbf{#1}} % Fette Auszeichnung
\newcommand\textstyleEmphasis[1]{\textit{#1}}
% -------------------------------------------------
\usepackage{graphicx}
\usepackage{ellipsis}
\usepackage{etoolbox}
\usepackage{enumitem}
\setlist{noitemsep}
\renewcommand{\labelenumi}{(\arabic{enumi}.)} % Mit zwei Klammern
\robustify\textellipsis

\renewcommand*{\letterpagestyle}{letter}
\newcommand{\RM}[1]{\MakeUppercase{\romannumeral #1{}}} % Römische Ziffern
%---------------------------------------------------------------------------
\begin{document}
%---------------------------------------------------------------------------
% Absenderdaten
%---------------------------------------------------------------------------
\setkomavar{fromname}{Alfred Meier}
\setkomavar{fromaddress}{Alte Allee 8 \\59690 Baden}
\setkomavar{fromphone}[\Telefon~]{02988 45 22}
\setkomafont{fromaddress}{\small\rmfamily\mdseries\slshape\color{burgundy}}
\setkomafont{fromname}{\large\rmfamily\mdseries\slshape\color{burgundy}}
\setkomavar{backaddressseparator}{ - }
\setkomavar{signature}{Alfred Meier}
\renewcommand*{\raggedsignature}{\raggedright}
\renewcaptionname{ngerman}{\myrefname}{Mein Zeichen}
%---------------------------------------------------------------------------
\setkomavar{yourmail}{}
\setkomavar{yourref}{}
\setkomavar{myref}{}
\setkomavar{invoice}{}
\setkomavar{customer}{}
\addtokomafont{lettersubject}{\color{burgundy}}
%---------------------------------------------------------------------------
% Datum und Ort werden hier eingetragen
%---------------------------------------------------------------------------
\setkomavar{date}{15.03.2018}
\setkomavar{place}{Baden}
%---------------------------------------------------------------------------
\begin{letter}
{Landratsamt Baden \\
Thom Monntag \\
Macherstraße 55 \\
91917 Kamenz}
%---------------------------------------------------------------------------
% Der Betreff des Briefes
%---------------------------------------------------------------------------
\setkomavar{subject}{Zusammenführung von bejagdbarer Grundfläche.}
%---------------------------------------------------------------------------
\opening{Sehr geehrter Herr Monntag,}
%---------------------------------------------------------------------------
ich stelle hiermit den Antrag zur Möglichkeit der Abrundung / Abtrennung / Angliederung und Austausch von bejagdbarer Grundfäche in Baden. Gleichzeitig auf den Eingriff in die Jagdpachtverträge wie vor, mit Zustimmung der UJB und mit Zustimmung der Vertragspartner Zusammenfügung isolierter Grundflächen zu einem Jagdbezirk vornehmen zu dürfen.

Für Rückfragen stehe ich Ihnen gerne zur Verfügung.

\closing{Mit freundlichen Grüßen,}
\end{letter}

\end{document}
Danke für Eurer Ratschläge