| |
| 17 Optionen für korrosionsbeständige Teile: Metalle und Nachbearbeitungen, ein Fachartikel
|
Autor
|
Thema: Alle Tabellenblätter über Befehlszeile drucken (1969 mal gelesen)
|
Peter2 Ehrenmitglied V.I.P. h.c.
Beiträge: 3849 Registriert: 15.10.2003 Win 10 bzw. 11 / 64 Pro AutoCAD MAP 3D 2023 BricsCAD 24
|
erstellt am: 18. Jul. 2012 10:15 <-- editieren / zitieren --> Unities abgeben:
Excel 2003 Geht man im Explorer auf eine XLS und wählt im Kontextmenü "Print", dann wird immer nur das erste Blatt gedruckt Gibt es eine Möglichkeit, per Befehlszeile alle Blätter zu drucken? So ähnlich wie ..
Code: excel.exe %1 -print -all
Peter ------------------ Für jedes Problem gibt es eine einfache Lösung. Die ist aber meistens falsch. ;-) [Diese Nachricht wurde von Peter2 am 18. Jul. 2012 editiert.] Eine Antwort auf diesen Beitrag verfassen (mit Zitat/Zitat des Beitrags) IP |
Thomas Harmening Moderator Arbeiter ツ
Beiträge: 2897 Registriert: 06.07.2001 Das Innerste geäussert und aufs Äusserste verinnerlicht
|
erstellt am: 18. Jul. 2012 17:55 <-- editieren / zitieren --> Unities abgeben: Nur für Peter2
|
Peter2 Ehrenmitglied V.I.P. h.c.
Beiträge: 3849 Registriert: 15.10.2003
|
erstellt am: 18. Jul. 2012 18:35 <-- editieren / zitieren --> Unities abgeben:
Danke - nach vielem Suchen und vielen Lösungen (VBS,. VBA, ..) ein ganz kleiner Eintrag... Aber: Ich habe das nicht über die Registry gemacht, sondern über die Dateierweiterungen. Peter ------------------ Für jedes Problem gibt es eine einfache Lösung. Die ist aber meistens falsch. ;-) Eine Antwort auf diesen Beitrag verfassen (mit Zitat/Zitat des Beitrags) IP |
Thomas Harmening Moderator Arbeiter ツ
Beiträge: 2897 Registriert: 06.07.2001 Das Innerste geäussert und aufs Äusserste verinnerlicht
|
erstellt am: 18. Jul. 2012 20:06 <-- editieren / zitieren --> Unities abgeben: Nur für Peter2
hmm, mittels vbs würde ja sowas gehen Code: Dim ex Dim Datei Dim BlattIf WScript.Arguments.Count > 0 Then ' Parameter prüfen Datei = WScript.Arguments(0) Else MsgBox "Es wurde keine Datei angegeben!" ' bei Fehler, Meldung und beenden WScript.Quit End If Set ex = GetObject(Datei) ' Verbindung zu Excel For Each Blatt In ex.Worksheets ' alle Arbeitsblätter ausdrucken Blatt.PrintOut Next ex.Close ' XL-Datei schließen
und wie hast du es nur über die Endung(Dateierweiterungen?) realisiert?Eine Antwort auf diesen Beitrag verfassen (mit Zitat/Zitat des Beitrags) IP |
Peter2 Ehrenmitglied V.I.P. h.c.
Beiträge: 3849 Registriert: 15.10.2003
|
erstellt am: 18. Jul. 2012 22:38 <-- editieren / zitieren --> Unities abgeben:
Zitat: Original erstellt von Thomas Harmening: ...und wie hast du es nur über die Endung(Dateierweiterungen?) realisiert?
Im Explorer mit "Extras - Ordneroptinen - Dateierweiterungen". Das ist bei XLS das "open", "print", "save as..." enthalten. Und da kann man entweder bei "Print" den Eintrag anpassen (wie oben) oder ein "Printalles" neu aufbauen. Das steht dann im Kontextmenu. Peter ------------------ Für jedes Problem gibt es eine einfache Lösung. Die ist aber meistens falsch. ;-) Eine Antwort auf diesen Beitrag verfassen (mit Zitat/Zitat des Beitrags) IP |