Office: Seite 1 von x drucken und speichern

Hallo,

ich habe etwas bestimmtes vor und komme alleine nicht weiter. :-)

Ich habe eine Tabelle, auf der ich den Druckbereich der einzelnen Seiten bestimmt habe. So sieht man die Zellen links davon nicht auf den Ausdruck.

So, jetzt wenn ich per Strg+P drucken will, dann soll er nur die Seiten ausdrucken die mit Daten befüllt sind.

Versuche es mal etwas leichter zu erklären:

Drucke Seite 1 nur wenn etwas in den Zellen B12:B36 steht
Drucke Seite 2 nur wenn etwas in den Zellen B53:B77 steht
...
Drucke Seite 12 nur wenn etwas in den Zellen B463:B487 steht.
dabei muss nicht der ganze Bereich beschrieben sein. 1 Eintrag reicht.

Dabei sollte wenn möglich diese gerade ausgedruckte Tabelle abgespeichert werden und zwar soll der Name aus den Inhalt der Zelle B2&B3 sein. Jedoch nicht ohne Abfrage vorhandene Datei überschreiben.
Pfad: D:\Excel\Protokol\

Ich hoffe das dies irgendwie ohne VBA geht, den Makro ist in der Regel deaktiviert.

Bin auf jede Antwort dankbar und hoffe es irgendwie verständlich formuliert zu haben.

Gruß
Emi

Ach ja, werde versuchen bis Mittag eine Bsp-Datei anzuhängen.

 

Es gibt Laserdrucker bzw. deren Treiber, die in der Lage sind, leere Seiten zu überspringen. Das klappt aber natürlich nur, wenn neben den reinen Daten nichts weiter ausgedruckt wird, also keine Beschriftungen, Rahmenlinien usw.

Ich denke, daß diese Konstellation bei Dir eher nicht zutrifft. Von daher bleibt nur eine VBA-Lösung, bei der in einer Schleife die Zellen abgeklappert werden und ggf. die entsprechende Seite zum Drucker geschickt wird.

Und das Speichern... Wie stellst Du Dir eine automatische Speicherung mit automatischer Namensvergabe und Sicherheitsabfrage denn ohne VBA vor?

Gruß, Michael

 

Ich...

Hi,

ich ahnte es, dann werde ich mich doch mit VBA beschäftigen müssen. Hatte es mal versucht, jedoch ohne Zeit keinen Erfolg gehabt.

Naja, wie versprochen habe ich mal die Datei dabei. >Beispiel.xlsx<

Da VBA ins Spiel kommt hat man bestimmt mehr möglichkeiten.

wie z.B.
-Beim Drucken gleich zu speichern in einen bestimmten Namen.
-Die alte Datei wieder unbeschrieben vor sich zu haben
-Register der Tabelle umzubenennen
-bei der gespeicherten Datei eine Tabelle zu entfernen...

Genaue Infos habe ich in der Tabelle geschrieben.
Ich gehe dann mal meine VBA Bücher suchen ;)

Gruß
Emi

Edit:

So, habe es irgendwie geschaft das er mir die eine Tabelle löscht, jedoch ist dann bei der ausgefüllten Tabelle nur noch #NV zu sehen.
Es muss doch einen Weg geben um die ausgefüllte Tabelle zu erhalten wenn man die erste Tabelle löscht...

 

Re: Ich...

Alle, die man manuell hat und noch einiges mehr, ja. ;-)

Ereignis workbook.beforeprint()
Methode workbooks().save

Methode workbooks.open()

Eigenschaft worksheets().name

Methode worksheets().delete

Naja, wenn Du dem sVerweis() auch die Werte unter den Füßen wegziehst... ;-)

Da würde sich
Methode range().copy
Methode range().pastespecial paste:=xlpastevalues
anbieten. Damit wandelst Du die Formeln in konstante Werte um und kannst dann die Nachschlage-Tabellen ohne #NV löschen.

Gruß, Michael

 

Hallo,

so, jetzt mit dem schlauen Buch dürfte ich etwas auf die reihe bekommen.

Nur eine Frage vorab, werden bei der Copy Funktion auch die Spaltenbreite beibehalten? Wenn nicht wird's ein Problem mit dem späteren ausdruck.

Melde mich dann wieder sobald ich entweder Erfolg oder den Untergang sehe.

Gruß EMI ;-)

 

Beim "copy" ja... ;-)

Beim "PasteSpecial" mit "xlpastevalues" werden sie aber nicht wieder eingefügt.

Je nachdem, was Du in dem Moment genau vorhast, gibt es da mehrere Alternativen. Eine wäre
thisworkbook.worksheets(1).copy --> Erstellt eine neue Arbeitsmappe mit diesem Blatt als Kopie
activeworkbook.worksheets(1).cells.copy --> Kopiert alle Zellen des (neuen) Blatts in die Zwischenablage
activeworkbook.worksheets(1).pastespecial paste:=xlpastevalues --> entfernt die Formeln aus der Kopie

Gruß, Michael