Excel97: Suche Funktion um verschiedene Daten aus Tabellen zu drucken

Guten Morgen,

Ich nutze Excel97 und habe eine Arbeitsmappe mit mehreren Tabellen erstellt. Dort sind natürlich auch verschiedenste Werte eingetragen.
In der Druckansicht sind die Tabellen in verschiedene Seiten aufgeteilt.

Kann ich nun mit einer Funktion verschiedene Druckbereiche auswählen und ausdrucken?

z.B. Aus Tabelle 1 ; Seite 5 und Tabelle 5 ; Seiten 4-9!

Hoffe das kann man soweit verstehen. Ist schon nicht einfach zu erklären.
Vielleicht kann mir ja einer weiter helfen.

Gruß

Binky

Hallo Binky,

befinden sich die zu Druckenden Daten auf einem Arbeitsblatt in der Mappe?
Du kannst zb per Mehrfachmarkierungen alles was du brauchst auf dem Arbeitsblatt auswählen und per Datei - Drucken... "Drucken -> Markierung" anklicken.
Oder du blendest die Spalten die du nicht benötigst auf dem Arbeitsblatt aus und druckst dann.

Ich hoffe ich hab dich nicht falsch verstanden.

cu
Heaven

Hi Heaven,

So ist es. Es sind mehrere Tabellen in einer Mappe auf meinem Rechner.
ist schon fast richtig.
Also ich möchte gerne (evtl. in einer eigenen Tabelle in der Arbeitsmappe) sowas wie eine Eingabemaske haben, wo ich eingebe, dass ich die vorher markierten Druckbereiche -> (da steht dann ja Seite 1 in blauer Schrift, Seite 2...) jetzt drucken möchte bzw. nur bestimmte davon.

Ich gebe also ein: Von Tabelle xy hätte ich gern seiten 5-9 usw. s.o.

Ich versuche das grad mit einem Makro, aber das gestaltet sich auch als schwierig.


edit: Kann man in einem Makro sagen, wenn man ein Feld selektiert, dass er den Wert nutzen soll?

z.B. selektiert man Zelle A1 und in der steht, B1:B9. So dass das Makro im endeffekt die Zellen B1 bis B9 selktiert.

Das wäre z.B. eine schöne Eingabemaske.



edit2:

Habs dann doch noch mit nem Makro geschafft. Ich geb den Druckbereichen jetzt einfach eindeutige Namen und verwende dieses Makro:

Sub Makro4()
Dim Feld As String
'
' Makro4 Makro
' Makro am 24.06.2005 von Sparkasse aufgezeichnet
'

'
Feld = Range("A1").Value
' Da hab ich den Namen in einer Zelle eingegeben
Application.Goto Reference:=Feld
ActiveSheet.PageSetup.PrintArea = Feld
' Hier wird die Druckansicht gesetzt.
Application.ActivePrinter = "Drucker auf Ne06:"
ActiveWindow.SelectedSheets.PrintOut Copies:=1, ActivePrinter:= _
"Drucker auf Ne06:", Collate:=True
' Und hier noch gedruckt, wobei mein Drucker auch Drucker heißt.
End Sub


Vielleicht kann ja später noch mal einer was damit anfangen.

Gruß

Binky@work


PS: Danke an alle, die fast helfen wollten und an Heaven.

Zitat:

Vielleicht kann ja später noch mal einer was damit anfangen.

Klar! Vielen Dank.
Sowas ähnliches verwende ich auch. Allerdings mit einem (virtuellen) Fax-Drucker.
Kleiner Bug: Falls "Drucker auf Ne06:" nicht dein Standard-Drucker ist,
vergiss nicht, den am Schluss wieder zurückzustellen! Also eine weitere
Zeile >> ActivePrinter:= ........ << am Schluss des Makros.

Gruss

Hut ab, Binky, ich wollte ich könnte Makros programmieren !

Dann legen wir den Thread mal zu den Akten.

- closed -

cu
Heaven