Registriert seit: 24.05.2017
Version(en): 2013
Tagchen alle zusammen,
ich frage mich, ob es möglich ist mehrere Tabellen (die ich im Vorfeld auch beannt habe) in einem Tabellenblatt einzeln auszudrucken? Also ich will nicht mühesam alle Tabellen nacheinander markieren und den Druckauftrag geben. Mir wäre lieb, wenn ich im Auftrag geben könnte, dass alle vorhandenen Tabellen einzeln auf eine Seite ausgedruckt werden soll. Ist das möglich?
LG
Ace
Registriert seit: 04.04.2017
Version(en): 2013
Hallo Ace,
das kannst Du z.B. so machen:
PHP-Code:
Option Explicit
Sub printListObjects()
Dim i As Long
For i = 1 To Tabelle1.ListObjects.Count
ListObjects(i).Range.PrintOut
Next i
End Sub
Bei der Formatierung der Blätter hilft dir der Makrorekorder.
Registriert seit: 24.05.2017
Version(en): 2013
Sorry ich habe mich wahrscheinlich falsch ausgedrückt. Ich habe auf einem Tabellenblatt mehrere Tabellen. Die will ich alle auf einzelne Seiten drucken. Also Pro ausgedruckte Seite eine Tabelle.
ISt das möglich?
LG
Ace
Registriert seit: 04.04.2017
Version(en): 2013
Hallo,
das macht mein Code....
Registriert seit: 17.04.2014
Version(en): MS Office 365(32)
(18.09.2017, 15:22)Jonas0806 schrieb: das macht mein Code....
aber nur, wenn das betreffende Blatt den Codenamen Tabelle1 hat.
Gruß Uwe
Registriert seit: 04.04.2017
Version(en): 2013
Hi Uwe,
(18.09.2017, 16:11)Kuwer schrieb: aber nur, wenn das betreffende Blatt den Codenamen Tabelle1 hat.
Klar,so viel Eigeninitiative habe ich mal vorrausgesetzt ;)
Registriert seit: 17.04.2014
Version(en): MS Office 365(32)
(18.09.2017, 16:17)Jonas0806 schrieb: Klar,so viel Eigeninitiative habe ich mal vorrausgesetzt ;)
schade, dass Du das absichtlich so machst, statt z.B. ActiveSheet zu schreiben.
Gruß Uwe
Registriert seit: 04.04.2017
Version(en): 2013
Hi Uwe,
naja, einen Vorsatz würde ich mir da jetzt nicht unterstellen.
Bei ActiveSheet können ungewollte Effekte auftreten. Für die Zukunft werde ich vielleicht einen Vermerk anfügen.
