ghisler(Author) wrote: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