Article View: de.comp.tex
Article #1270Quer u. Hochformat in einem Do
From: Christian Koenig
Date: Thu, 24 Dec 1992 12:00
Date: Thu, 24 Dec 1992 12:00
142 lines
5639 bytes
5639 bytes
Hi Patrick, am 19 Dec 92 hast Du in der Area TeX.Ger
folgende Zeilen geschrieben:
PS> Wer hat schon einmal in einem LaTeX Doc, die Seitenformate gemischelt.
PS> Ich sollte auf einer Seite eine Tabelle quer auf ein A4 Blatt brigen.
PS> Hat das schon je einmal ein Mensch fertig gebracht ?
PS>
Wenn ich Dich richtig interpretiere, suchst Du einen Style, der
zwischen Landscape und Portrait umschalten kann.
Probier das:
-----------------------portland.sty---------------------------------------- %
This is PORTLAND.STY by H.Partl, TU Wien, as of 16 Dec 1988.
% Definition of commands and environments \portrait and \landscape % for
switching between PORTRAIT and LANDSCAPE printing. To be
% called as document style option with any available style.
%
% Commands:
% \portrait sets or resets the page layout to the initial values %
(i.e. the values valid at \begin{document})
% \landscape sets the page layout such that the horizontal and
% vertical measures are interchanged with respect to
% the initial values. The text area will occupy the
% same position on the page as in \portrait mode.
% Both command issue a \clearpage before changing the layout.
%
% Environments:
% \begin{portrait} ... \end{portrait}
% \begin{landscape} ... \end{landscape}
% Both issue \clearpage at the \begin and at the \end.
%
% Implementation Dependencies:
% You should insert the correct paper height (11in or 197mm or ...) % into
\paperheight for correct positioning.
% If your printer driver allows mixing of protrait and landscape pages % within
one printout, you should insert the corresponding \special % commands just
after the four \clearpage commands.
% If your printer only allows printing of the whole document either in %
protrait or in landscape orientation, you should print the document % twice (or
selected parts of it) - once in portrait and once in landscape - % and then
merge the correct pages.
% If your printer can't print in landscape orientation, then these commands %
can be used only for small pages that fit onto the paper in both direc- %
tions.
\newdimen \paperheight % needed for calculation of bottom margin. \paperheight
297mm % <--- 11in for US paper or 297mm for A4 paper!
\newdimen\phoffset
\newdimen\pvoffset
\newdimen\ptextwidth
\newdimen\ptextheight
\newdimen\ptopmargin
\newdimen\poddsidemargin
\newdimen\pevensidemargin
\newdimen\lhoffset
\newdimen\lvoffset
\newdimen\ltextwidth
\newdimen\ltextheight
\newdimen\ltopmargin
\newdimen\loddsidemargin
\newdimen\levensidemargin
\def\set@portland@values{%
% portrait values = current values
\phoffset\hoffset
\pvoffset\voffset
\ptextwidth\textwidth
\ptextheight\textheight
\ptopmargin\topmargin
\poddsidemargin\oddsidemargin
\pevensidemargin\evensidemargin
% landscape margins will be measured from zero point
\lhoffset \z@
\lvoffset \z@
% landscape textwidth = portrait textheight
\ltextwidth \ptextheight
% landscape textheight = portrait textwidth
\ltextheight \ptextwidth
% landscape left margin = portrait bottom margin (same for odd and even)
\loddsidemargin \paperheight
\advance \loddsidemargin by -\ptextheight
\advance \loddsidemargin by -\headsep
\advance \loddsidemargin by -\headheight
\advance \loddsidemargin by -\ptopmargin
\advance \loddsidemargin by -\pvoffset
\advance \loddsidemargin by -2in
\levensidemargin \loddsidemargin
% landscape top margin (incl. head) = portrait oddside left margin
\ltopmargin \poddsidemargin
\advance \ltopmargin by -\headheight
\advance \ltopmargin by -\headsep
\advance \ltopmargin by \phoffset
}
\def\portrait{\clearpage \message{ \string\portrait }%
\hoffset\phoffset
\voffset\pvoffset
\textwidth\ptextwidth
\textheight\ptextheight
\@colht\textheight \@colroom\textheight \vsize\textheight
\columnwidth\textwidth \@clubpenalty\clubpenalty
\if@twocolumn \advance\columnwidth -\columnsep
\divide\columnwidth\tw@ \hsize\columnwidth \@firstcolumntrue
\fi
\hsize\columnwidth \linewidth\hsize
\topmargin\ptopmargin
\oddsidemargin\poddsidemargin
\evensidemargin\pevensidemargin
}
\def\endportrait{\clearpage \message{ \string\endportrait }}
\def\landscape{\clearpage \message{ \string\landscape }%
\hoffset\lhoffset
\voffset\lvoffset
\textwidth\ltextwidth
\textheight\ltextheight
\@colht\textheight \@colroom\textheight \vsize\textheight
\columnwidth\textwidth \@clubpenalty\clubpenalty
\if@twocolumn \advance\columnwidth -\columnsep
\divide\columnwidth\tw@ \hsize\columnwidth \@firstcolumntrue
\fi
\hsize\columnwidth \linewidth\hsize
\topmargin\ltopmargin
\oddsidemargin\loddsidemargin
\evensidemargin\levensidemargin
}
\def\endlandscape{\clearpage \message{ \string\endlandscape }}
\let\set@document@values \document
\def\document{\set@document@values \set@portland@values}
\endinput
-----------------------VIEL ERFOLG------------------------------
Gruss
Chris
Technical Details
Message-ID:
<756C6041%fidonet@p34.f46.n246.z2.fidonet.org>Path:
arc1-ca.pugleaf.net!sparky!uunet!math.fu-berlin.de!news.netmbx.de!Germany.EU.net!rz.uni-hildesheim.de!agsc!h.maus.de!p34.f46.n246.z2.fidonet.org!Christian_KoenigShow Full Headers
Complete Article Headers
Path: arc1-ca.pugleaf.net!sparky!uunet!math.fu-berlin.de!news.netmbx.de!Germany.EU.net!rz.uni-hildesheim.de!agsc!h.maus.de!p34.f46.n246.z2.fidonet.org!Christian_Koenig From: Christian_Koenig@p34.f46.n246.z2.fidonet.org (Christian Koenig) Newsgroups: de.comp.tex Subject: Quer u. Hochformat in einem Do Message-ID: <756C6041%fidonet@p34.f46.n246.z2.fidonet.org> Date: Thu, 24 Dec 92 12:00:00 GMT Organization: Amiga Unlimited, Starnberg Lines: 142 X-Gateway: MausGate/News 1.15/h