Druckfunktion - Excel-Mappen

[Lupan]

Die Druckfunktion ist echt super. Nun hätt ich aber noch ein Prob:

Ich will mehrere d.h. ALLE Excel-Mappen ausdrucken! geht das?? normalerweise druckt mir TC nur die aktuelle Mappe. Es gibt ja auch die Möglichkeit, alle Mappen auszuwählen, die File speichern und dann mit TC auszudrucken...

Bei mir ist aber das Problem, daß ich ab und an über 100 files mit 2 bis 3 Mappen ausdrucken muß!!!!!

Das zieht sich natürlich jede Datei aufmachen, drucken, nächste Mappe wählen, drucken, Datei schließen, nächste Datei öffnen....

Hat jemand eine Idee für mein Problem?

[ghisler(Author)]

Sollte via Rechtsklick (1 Sekunde) gehen, dann "Drucken" wählen.

[Lupan]

Das "normale" drucken funktioniert ja. Wenn ich´s über Rechtsklick/Drucken mache bekomme ich aber nur die AKTIVE Arbeitsmappe in Excel ausgedruckt...

Ich hätte aber gerne ALLE Arbeitsmappen...... Geht das??

[Lupan]

TC macht bei diesem Druckbefehl ja nicht anderes als:

Datei öffnen
Strg+P
ENTER
ALT F4

d.h. es wird das AKTIVE Fenster (Mappe) gedruckt

Mir fehlt ein kleines Tool/Patch mit dem ich bei Drücken auf Rechtsklick/Drucken die Auswahl habe:
Aktive Mappe ...
bestimmte Auswahl an Mappen ...
oder alle Mappen drucken

Wäre doch eine interessante erweiterung für TC oder??? Ich hab´ da nicht so viel Überblick, aber ist doch bestimmt nicht zu schwer das zu integrieren?!?

[ghisler(Author)]

Falls es für Excel Kommandozeilen- oder DDE-Parameter gibt, die Excel sagen, dass es alle Mappen drucken soll, so lässt sich das einfach via Dateien - Verknüpfen - Typ bearbeiten ändern. Bei mir steht da zur Zeit:

[open("%1")][print()][close()]

als DDE-Befehle. Leider weiss ich nicht, was für DDE-Befehle Excel sonst noch unterstützt.

[Lupan]

Na, mit diesem Tipp kann ja mal was anfangen! Besten Dank!!!!

[Lupan]

Habe mal ein paar Leute ausgequetscht - die können mir aber auch nicht weiterhelfen... Im Netz gibt´s dadrüber auch nicht all zu viel....

über ein paar Startparameter bei http://support.microsoft.com/default.aspx?scid=kb%3Bde%3BD43083 habe ich was gefunden.... aber auch nicht sehr hilfreich...

die Funktion ist mir eigentlich SEHR wichtig!!!!! Könnte da mal jemand mit dranbleiben / bzw. weiter nachforschen????

[norfie]

[Lupan]

selbstverständlich bleibe ich selbst dahinter und werde aktiv weitersuchen...

Ich denke nur, daß jemand der beruflich programmiert ganz andere Beziehungen/Links/Quellen usw. hat als ein "normaler" User.....

und das ist doch eigentlich der Sinn und Zweck von diesem Forum:
Der der etwas weiß, teilt es denjendigen mit, die es nicht wissen!!!!!!!!!!!!

Ausserdem denke ich schon, daß es mehrere User gibt, die diese Funktion gerne hätten........

[Captain_Johnny]

Falls es für Excel Kommandozeilen- oder DDE-Parameter gibt, die Excel sagen, dass es alle Mappen drucken soll, so lässt sich das einfach via Dateien - Verknüpfen - Typ bearbeiten ändern. Bei mir steht da zur Zeit:

[open("%1")][print()][close()]

als DDE-Befehle. Leider weiss ich nicht, was für DDE-Befehle Excel sonst noch unterstützt.

Soweit ich weiss, gibt es keine Kommandozeilen- oder DDE-Parameter für diese Funktion.
Der VBA-Befehl ist PrintOut, leider nicht als DDE-Befehl verfügbar.

Ich habe das wie folgt gelöst:

IM TC habe ich mich auf eine Excel-Datei gestellt.
Dann aus dem TC-Menü folgende Befehle aufgerufen:
Dateien - verknüpfen - Typ bearbeiten - Neu
In der dann folgenden Maske habe ich eingetragen:

Aktion: PrintAll
Aktionsbeschreibung: Alle Arbeitsblätter drucken
Befehl: C:\Programme\Microsoft Office\Office\excel.exe /e
DDE verwenden anklicken
DDE-Befehl: [open("%1")][run("PERSONL.XLS!Print_all")][close()]
DDE-Programmname: Excel
DDE-Befehl wenn Programm nicht läuft: [open("%1")][run("PERSONL.XLS!Print_all")][close()]
>>> Quit konnte ich nicht verwenden, Excel schließt dann schon nach der ersten Datei und weitere markierte Dateien werden nicht gedruckt <<<
DDE-Thema: system

Dann habe ich in der Datei "Personl.xls" (sollte unter "c:\Programme\Microsoft Office\Office\XLStart" gespeichert sein, startet ev. ausgeblendet; sonst dort erstellen) das folgende Makro erstellt:

Sub Print_all()
'
' Print_all Makro
' Druckt alle Tabellen einer Excel-Datei
'
ActiveWorkbook.PrintOut
End Sub

HTH

Gruss

jw

[Lupan]

erst mal VIELEN Dank für die Antwort!!!

Leider hat´s nicht ganz funktioniert...

selbst das einstellen auf "Standart" hat nichts gebracht....

Das sollte doch dann mit JEDEM Dateinamen funktionieren, oder??? Ich hab´s mal ausprobiert, genau DIE Peronl.xls über TC zu drucken... -- Kein erfolg

muss ich sonst noch was einstellen?? ist das Makro SO richtig, dh. ich kanns genau so übernehmen??

[Lupan]

dann noch ne Frage:

Woher weiß TC, welche Anwendung von "&Neu", "Print", "Printto" in Dateien - verknüpfen - Typ bearbeiten es ausführen soll??

Bringt´s evtl. Probleme, hier mehrere "Print"-Anweisungen aufzuführen??????

Gibt´s einen DDE-Befehl ähnlich VBA:
Sheets(Array("Tabelle1", "Tabelle2", "Tabelle3")).Select
Sheets("Tabelle1").Activate
==> also alle Mappen auswählen..... bzw. geht das ganze auch, Ohne die Mappen EXAKT mit dem Namen zu benennen??? - Nach dem Motto: "select ALL sheets"? ?

Hoffe, mir ist noch zu helfen

[Captain_Johnny]

erst mal VIELEN Dank für die Antwort!!!

Leider hat´s nicht ganz funktioniert...

selbst das einstellen auf "Standard" hat nichts gebracht....

Das sollte doch dann mit JEDEM Dateinamen funktionieren, oder??? Ich hab´s mal ausprobiert, genau DIE Peronl.xls über TC zu drucken... -- Kein erfolg

Sorry, hätte ich dazu sagen sollen: Der neue Druckbefehl funktioniert nur über das Kontextmenü (rechte Maustaste, auch für mehrere markierte (*.xls)-Dateien). Da müsste der neue Eintrag zu finden sein.

muss ich sonst noch was einstellen?? ist das Makro SO richtig, dh. ich kanns genau so übernehmen??

1. Nein. 2. Ja.

dann noch ne Frage:
Woher weiß TC, welche Anwendung von "&Neu", "Print", "Printto" in Dateien - verknüpfen - Typ bearbeiten es ausführen soll??
Bringt´s evtl. Probleme, hier mehrere "Print"-Anweisungen aufzuführen??????

TC führt die Anweisung ja nicht aus, sondern stellt das Explorer-Kontextmenü (rechte Maustaste) zur Verfügung. Dort finden sich dann die verschiedenen Befehle (Öffnen, Neu, Drucken etc.).

Gibt´s einen DDE-Befehl ähnlich VBA:
Sheets(Array("Tabelle1", "Tabelle2", "Tabelle3")).Select
Sheets("Tabelle1").Activate
==> also alle Mappen auswählen..... bzw. geht das ganze auch, Ohne die Mappen EXAKT mit dem Namen zu benennen??? - Nach dem Motto: "select ALL sheets"? ?

Leider gibt es keinen solchen DDE-Befehl. Deshalb kann man nur auf "run("MAKRONAME")" zurückgreifen.

Hoffe, mir ist noch zu helfen

Klar!

Gruss

jw

[Lupan]

So, bin ein ganzes Stück weitergekommen:

Folgendes steht jetzt im Makro:
Sub Print_all3()
'
' Print_all Makro
' Druckt alle Tabellen einer Excel-Datei
'
ActiveWorkbook.PrintOut

End Sub

und in TC habe ich entsprechend darauf verwiesen............

Jetzt gibt´s nur noch ein Problem:
TC druckt eine ausgewählte Datei, wechselt dann in die Datei "Print_all.xls" in der das entsprechende Makro steht und will dort in eine Zelle was reinschreiben - d.h. der Cursor blinkt.
Ein Drücken der Esc-Taste bricht das ab, es wird die nächte Datei geöffnet, gedruckt, dann wieder eine Eingabe in Print_all.xls gefordert; Esc.... usw.....

ist eigentlich zu verkraften, immer nur Esc zu drücken... aber nervig....

Ich hab´s dann mal versucht mit:
ActiveCell.FormulaR1C1 = ""
Range("A2").Select

bzw.: keypress = (27)

hat nix gebracht. Bei 1. Hat er den Befehl in der zu druckenden Datei ausgeführt. Was natürlich zur Folge hat, daß ich trotzdem Esc drücken muß.....

Eine Idee???

[Lupan]

Hab´noch´n Prob. entdeckt: Jedesmal, wenn ich eine Exceldatei öffne, wird die Datei Print_all.xls aus XLStart auch mitgeöffnet

Kann man das verhindern???????????