Live-Forum - Die aktuellen Beiträge
Datum
Titel
26.04.2024 08:08:24
Pivot Vormonatsveränderung
26.04.2024 07:54:11
nur den ersten Eintrag in spalte zählen
25.04.2024 23:47:55
Datum ausweisen, wenn definierte Summe erreicht ist
25.04.2024 21:40:53
Excel Datenquelle aus dem Web mit Anmeldung?
Du findest keine passende Antwort auf Deine Frage?
Stelle Deine Frage in unserem Live-Forum
Anzeige
Archiv - Navigation
588to592
Aktuelles Verzeichnis
Verzeichnis Index
Übersicht Verzeichnisse
Vorheriger Thread
Rückwärts Blättern
Nächster Thread
Vorwärts blättern
Anzeige
HERBERS
Excel-Forum (Archiv)
20+ Jahre Excel-Kompetenz: Von Anwendern, für Anwender
Vorheriger Thread
Vorheriger Thread
Rückwärts Blättern
588to592
588to592
Aktuelles Verzeichnis
Verzeichnis Index
Verzeichnis Index
Übersicht Verzeichnisse
Nächster Thread
Nächster Thread
Vorwärts blättern
Inhaltsverzeichnis

Druck in umgekehrter Reihenfolge

Druck in umgekehrter Reihenfolge
22.03.2005 14:18:52
KlausF
Hallo, Excel-Fans!
Ich brauche für ein Druck-Makro den Code, der das Drucken eines mehrseitigen Sheets in umgekehrter Reihenfolge veranlasst (bin nun mal zu faul zum Umsortieren).
Der einfache Weg, beim Druck die Umkehrung festzulegen, dann die Datei abzuspeichern, klappt nicht, weil irgendjemand der mehrfachen User die Druckeinstellungen ändert und speichert; es muß also per VBA zwangsweise festgelegt werden.
Makro-Recorder nützt hier nichts; und die Recherche im Forumarchiv hat nichts passendes gebracht.
Kann mir einer von Euch helfen?
MfG!
Klaus

5
Beiträge zum Forumthread
Beiträge zu diesem Forumthread

Betreff
Datum
Anwender
Anzeige
AW: Druck in umgekehrter Reihenfolge
22.03.2005 14:23:25
Tobias
Servus!


Sub InversDruck()
Dim alles As Long, p As Long
alles = (ActiveSheet.HPageBreaks.Count + 1) * _
(ActiveSheet.VPageBreaks.Count + 1)
For p = alles To 1 Step -1
'ActiveSheet.PrintOut p, p
Debug.Print "Drucke Seite " & p & " von " & TotalPages
Next p
End Sub

Das Original ist von http://www.exceltip.com/st/Print_the_pages_in_reverse_order_using_VBA_in_Microsoft_Excel/457.html
Habs etwas ans deutsche angepasst...
Naechstes mal etwas selbst googeln :)
Geklappt?
Gruss

Tobias
Anzeige
AW: Druck in umgekehrter Reihenfolge
22.03.2005 14:55:28
KlausF
Hallo, Tobias!
Habe vorher mit +Drucken +"umgekehrte Reihenfolge" +VBA gegoogelt, aber da kam auch nichts passendes raus. Werd' mich beim nächsten mal intensiver bemühen!
Nun zu Deinem Code:
Nach Entfernen des Apostrophs und Ersetzen von "TotalPages" durch "alle" funzt's nur teilweise: Er druckt nur von n bis Seite 2; Seite 1 fehlt immer.


Sub InversDruck()
Dim alles As Long, p As Long
alles = (ActiveSheet.HPageBreaks.Count + 1) * _
(ActiveSheet.VPageBreaks.Count + 1)
For p = alles To 1 Step -1
ActiveSheet.PrintOut p, p
Debug.Print "Drucke Seite " & p & " von " & alles
Next p
End Sub

Seh' ich den Wald vor lauter Bäume nich?
Auf jeden Fall erst mal Danke!
Klaus
Anzeige
AW: Druck in umgekehrter Reihenfolge
22.03.2005 15:08:22
Tobias
Servus!
Den Code hatte ich nicht getestet, da er auf der Homepage drauf war, deren Link ich gepastet hatte... ich hab uebrigens nach "Reverse Print VBA" (ohne Anfuehrungszeichen) bei google geschaut und das erste Ergebnis hat gepasst :-)
Nun aber nochmal zu dem Code: Wenn nur die erste Seite fehlt, dann machen wir doch einfach noch ne Anweisung am Schluss dazu, dass die erste Seite noch dazukommt:

Sub InversDruck()
Dim alles As Long, p As Long
alles = (ActiveSheet.HPageBreaks.Count + 1) * _
(ActiveSheet.VPageBreaks.Count + 1)
For p = alles To 1 Step -1
ActiveSheet.PrintOut p, p
Debug.Print "Drucke Seite " & p & " von " & alles
Next p
ActiveSheet.PrintOut 1,1
'Hier wird die erste Seite gedruckt
End Sub

So sollte es dann ansich gehen...

Gruss

Tobias
Anzeige
AW: Druck in umgekehrter Reihenfolge
22.03.2005 15:22:39
KlausF
Hallo, Tobias!
Hatte schon in meiner VBA-Unschuld bei der Schleife den Endwert auf "0" gesetzt; hat alles gedruckt bis zur Seite 1, aber dann ne Fehlermeldung gebracht: Seitenzähler müssen grösser Null sein!
Bei Deiner Nachbesserung druckt er jetzt 2x die Seite 1!
Also hab ich den Endwert der Schleife auf 2 gesetzt, jetzt funzt's.
Aber die hohe Schule der Programmierung ist das wohl nich, oder? (Wenn ich mich an meine alten FORTRAN-Zeiten düster erinnere)
Danke und Gruß!
Klaus
AW: Druck in umgekehrter Reihenfolge
22.03.2005 15:25:01
Tobias
Servus!
Also ich hab den Code jetzt mal in seiner "Urform" bei mir durchlaufen lassen, er hat alles gedruckt, auch die Seite 1. Wieso der bei dir so rumspinnt, kann ich mir eigentlich nicht erklaeren... ich geb dir Frage mal weiter an die anderen.
Gruss

Tobias
Anzeige

51 Forumthreads zu ähnlichen Themen

Excel-Spalte in umgekehrter Reihenfolge darstellen
Toni

Hallo Excel-Spezialisten,
ich habe eine Excel-Datei, in der in Spalte A Daten stehen (siehe beigefügte Datei). Ich möchte jetzt erreichen, dass die Daten aus Spalte A in umgekehrter Reihenfolge in Spalte B dargestellt werden (siehe beigefügte Datei). Wie kann ich das mittels VBA oder einer...
22.07.2009 20:34:17
Thread-ID: 1090652
2 Beiträge
Anzeige
variables kopieren in ein anderes Tabellenblatt | Herbers Excel-Forum
Space
Hallo Community
Ich suche einen VBA Code um folgendes Problem mittels Button zu lösen:
ich würde gerne aus einem Tabellenblatt "Tabelle1" von Zeile 14 bis Spalte Q bis zum letzen vorhandenen Eintrag alles koperen und das ganze in das Tabellenblatt "Tabelle2" einfügen. In "Tabelle2" soll es...
15.01.2010 12:12:20
Thread-ID: 1130211
5 Beiträge
Spalte A in andere Tabelle kopieren
Ben

Hallo,
ich habe folgendes Problem:
zwei Tabellen mit dem gleichen Aufbau, in Spalte A stehen immer Bezeichnungen und in den weiteren Spalten folgen Werte.
Ich versuche nun die Spalte A aller Tabellenblätter der ersten Tabelle (besitzt 41 Tabellenblätter) in die andere Tabelle zu k...
22.01.2010 20:13:26
Thread-ID: 1132034
8 Beiträge
Anzeige
Tabelle in anderer Instanz kopieren
Fettertiger

Hallo liebe Experten,
jetzt such ich schon eine geraume Zeit in Google - finde trotzdem nix!
Ich habe ein eigentlich ganz triviales Problem. Beim Export eines Reports aus SAP werden die Daten in die Datei Export.MHTML geschrieben. Dummerweise öffnet mir SAP dazu eine neue Instanz von Ex...
16.06.2011 10:22:00
Thread-ID: 1218472
2 Beiträge
Spalte kopieren und in anderer Spalte einfügen
Peter


Guten Abend
Ich möchte den Inhalt der Spalte B kopieren und in Spalte AA einfügen (überschreiben), ohne dass die spalten ab AA eine Spalte weiter nach hinten geschoben wird (was mit .Insert passiert).
.Range("AA:AA").Paste funktioniert anstelle dessen leider nicht.
Wer kann mir...
01.07.2011 17:18:01
Thread-ID: 1220557
5 Beiträge
Kopieren von Duplikaten in anderes Tabellenblatt
Duplikaten

Hallo Excel-Freunde,
es würde mich sehr freuen, wenn mir jemand von euch bei einem Makro unter die Arme greifen könnte.
Ich habe 2 Tabellen (Name: Tabelle 1 und Tabelle 2) in meiner Arbeitsmappe mit Datensätzen, welche größtenteils identisch sind.
Die Tabellen sind jeweils nach Spal...
04.05.2012 14:26:35
Thread-ID: 1262159
2 Beiträge
Inhalte kopieren und in andere Tabelle einfügen
Ivek

Hallo Leute brauche mal wieder eure Hilfe!
Ich habe eine Datenbank die relatv groß ist und nun will ich per Klick, dass Daten aus einer Tabelle in die andere kopiert werden. Sozusagen Tabelle1 Daten kopieren und in Tabelle2 Daten einfügen.
Habe allerdings keine Idee wie ich das in VBA a...
20.08.2012 11:48:32
Thread-ID: 1275683
8 Beiträge
Spalte als Zeile in anderes Tabellenblatt?
Harald

Hallo!
Bin Anfänger in VBA und hab folgendes Problem
Ich möchte gerne die Zellen A1: A14(Spalte) der Tabelle1 in die Zellen A2:N2(Zeilen)der Tabelle2 übertragen. Bei jedem Neueintrag in die Zellen A1:A14 soll in die nächste Leerzeile der Tabelle2 kopiert werden. Hab leider noch nicht mal...
18.06.2002 23:29:27
Thread-ID: 129689
3 Beiträge
Anzeige

Beliebteste Forumthreads (12 Monate)

Anzeige
Jetzt das Excel-Portal bewerten: Deine Stimme zählt!

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Anzeige
Archiv - Verwandte Themen
Forumthread
Beiträge
1
9
4
7
6
1
4
1
7
2
11
7
1
1
2
1
6
5
4
15
2
5
1
5
2