In Excel eine Tabelle gleich 4-fach drucken?
fridolin.borer
Gibt es eine Möglichkeit, ein Tabellenblatt gleich 4-fach auf ein A4-Blatt
zu bringen. Ich arbeite mit Excel 97...
Für jeden Tip bin ich noch so dankbar!
Grüsse Fridolin
Frank Arendt-Theilen
folgendes Makro in ein allg. Modul der PERSONL.XLS einfügen und einer
Symbolleistenschaltfläche zuweisen:
Sub TabelleVierfachDruckenAufA4()
With ActiveSheet
.UsedRange.Copy Destination:=ActiveSheet.Cells(1, _
ActiveSheet.UsedRange.Columns.Count + 2)
.UsedRange.Copy Destination:=ActiveSheet.Cells(ActiveSheet. _
UsedRange.Rows.Count + 2, 1)
With .PageSetup
.CenterHorizontally = True
.CenterVertically = True
.Orientation = xlPortrait
.PaperSize = xlPaperA4
.Zoom = False
.FitToPagesWide = 1
.FitToPagesTall = 1
End With
.PrintOut
End With
End Sub
Diese Makro macht nur Sinn, wenn der auszudruckende Tabellenbereich
ohnehin nur ca. eine Viertel-A4-Seite belegt.
MfG Frank
__________________________________________________________
Frank Arendt-Theilen, MVP für Microsoft Excel
E-Mail: Thei...@t-online.de
Am Wed, 20 Oct 1999 22:17:07 +0200, schrieb "fridolin.borer"
<fridoli...@bluewin.ch> in microsoft.public.de.excel zu "In Excel
eine Tabelle gleich 4-fach drucken?":
henner juengst
>Gibt es eine Möglichkeit, ein Tabellenblatt gleich 4-fach auf ein A4-Blatt
>zu bringen. Ich arbeite mit Excel 97...
Hallo Fridolin,
im Druckermenü findest Du die Frage nach der Anzahl der Exemplare.
Pfüati
Henner
Bernd Held
Hallo Fridolin,
Du meinst so eine Art Verkleinerungsfunktion, damit 4 gleiche Tabellenblätter auf
1 Seite passen.
Das klappt stadardmäßig nur in Word 2000. Für Excel mußt Du Dir mit einem kleinen
und super Tool behelfen.
Das Tool heißt Fineprint und Du kannst Dir eine Demoversion aus dem Netz laden.
Die Url dafür lautet:
http://www.singletrack.com/
Das ist wirklich ein klasse Tool!
Viele Grüße
Bernd
////////////////////////////////////////////////////
// Die MacHero Excel Homepage //
// Microsoft Excel MVP //
// http://members.aol.com/Machero //
\\ letzte Aktualisierung: 18.10.99 \\
\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\
"fridolin.borer" <fridoli...@bluewin.ch> wrote:
>Hello Newsgroups, Profis und Anwender>
>Gibt es eine Möglichkeit, ein Tabellenblatt gleich 4-fach auf ein A4-Blatt
>zu bringen. Ich arbeite mit Excel 97...
>
>Für jeden Tip bin ich noch so dankbar!
>
>Grüsse Fridolin
>
>fridoli...@bluewin.ch
>
>
--
_____________________________________________________________
NewsGroups Suchen, lesen, schreiben mit http://netnews.web.de