Google Groups no longer supports new Usenet posts or subscriptions. Historical content remains viewable.
Dismiss

zwei Tabellenblätter auf einer Seite drucken

244 views
Skip to first unread message

Frank

unread,
Jan 13, 2003, 5:10:03 AM1/13/03
to
Hallo NG,

ich möchte zwei unterschiedliche Tabellenblätter auf einer
Seite ausdrucken (z.B. 1.Halbjahr und 2.Halbjahr einer
Urlaubübersicht). Dabei sollen die jeweiligen
Druckbereiche untereinander stehen.

Wer hat dazu eine Lösung?

Gruß
Frank

Thomas Ramel

unread,
Jan 13, 2003, 9:47:40 AM1/13/03
to
Grüezi Frank

Frank schrieb:

Verwende ein eigenes Tabellenblatt für den Ausdruck.
Markiere den relevanten Bereich im ersten Blatt, klicke auf Kopieren,
wechsle in die Print-Tabelle, wähle bei gedrückter Shift-Taste Berabeiten
--> Verknüpftes Bild einfügen und platziere es entsprechend.
Verfahre mit dem Bereich im zweiten Blat ebenso.

Drucke nun dieses Tabellenblatt aus.

--
Mit freundlichen Grüssen

Thomas Ramel
- MVP für Microsoft-Excel -

Frank

unread,
Jan 13, 2003, 10:32:21 AM1/13/03
to
Hallo Thomas,
kann man das auch automatisieren? Durch Aufzeichnen mit
dem Macrorecorder geht es, aber dabei verliert man die
Rahmen und Muster!!
Oder gibt es eine VBA-Lösung?

Gruß
Frank

>-----Originalnachricht-----

>.
>

Thomas Ramel

unread,
Jan 13, 2003, 10:47:08 AM1/13/03
to
Grüezi Frank

Frank schrieb:


>
> kann man das auch automatisieren? Durch Aufzeichnen mit
> dem Macrorecorder geht es, aber dabei verliert man die
> Rahmen und Muster!!

Hmm, Du hast auch bestimmt bei gedrückter Schift-Taste 'Verknüpftes Bild
einfügen' angewählst?
Auf diese Weise erhältst Du nämlich eine Art Kamera-Funktion, bei der in
den Verknüpften bildern alle Änderungen im Original-Bereich abgebildet
werden - inklusive Formaten, Mustern, Spaltenbreiten etc.

> Oder gibt es eine VBA-Lösung?

Den bereits genannten Makro-Recorder.
Das sollte aber meines Erachtens nicht norwendig sein, ausser der zu
druckende Bereich wäre zu gross und die Grafik würde deshalb abgeschnitten.

Bruno

unread,
Jan 14, 2003, 2:54:32 PM1/14/03
to
On Mon, 13 Jan 2003 02:10:03 -0800, "Frank" <frank....@conti.de>
wrote:


Tach, mit ein bischen Aufwand kann man Word dazu missbrauchen. Word
hat da den besseren Druckdialog und hier kann man angeben wieviel
Seiten auf einen Blatt Papier gedruckt werden soll.

Nachfolgendes ist nur ein grobes Gerüst und du mußt es entsprechend
anpassen.

Dim objWD As New Word.Application
Dim rngErsterDruckbereich As Range

Set rngErsterDruckbereich =
Worksheets(1).Range(Worksheets(1).PageSetup.PrintArea)
rngErsterDruckbereich.Copy

With objWD
'Muss du an deine Gegebneneheiten anpassen, z.b. mit Recorder
aufzeichenen
.Documents.Add ??????
.Selection.PasteSpecial Link:=False, DataType:=wdPasteOLEObject, _
Placement:=wdFloatOverText, DisplayAsIcon:=False
.Dialogs(wdDialogFilePrint).Show
End With

Set rngErsterDruckbereich = Nothing
Set objWD = Nothing

Mfg, Bruno

0 new messages