Opened by Ronnie at 2003-12-11 12:27
User since
2003-08-14
2022 Artikel
BenutzerIn
![[default_avatar]](/battie/theme/default/default_avatar.gif)
2003-08-14
2022 Artikel
BenutzerIn
Moin!
ich habe ein kleines Problem. Ich will das Excel alle Tabellen eines Dokumentes druckt, und zwar per Kontext-Menü aus dem Explorer. Per Windows-Skripting sollte das doch möglich sein, oder? In Excel kann ich ein Makro aufzeichnen wo ich alle Tabellen auswähle und dann im Druckmenü den Punkt 'alle gewählten Tabellen drucken' anklicke um dies zu drucken. Die Tabellen können aber in einem anderen Dokument anders benannt sein, oder es existieren mehr wie die drei Standart-Tabellen. Außerdem muss man um ein solches Makro zu nutzen jedesmal Excel öffnen. Leider kenne ich mich mit WSH null aus, hat von euch schon mal jemand so was gemacht?
EDIT1: Mein erster Entwurf:
Problem 1: Der Pfad ist fest eingetragen.
Problem 2: Die Sheets müssen benannt werden.
Gruss,
Ronnie\n\n
<!--EDIT|Ronnie|1071132782-->
ich habe ein kleines Problem. Ich will das Excel alle Tabellen eines Dokumentes druckt, und zwar per Kontext-Menü aus dem Explorer. Per Windows-Skripting sollte das doch möglich sein, oder? In Excel kann ich ein Makro aufzeichnen wo ich alle Tabellen auswähle und dann im Druckmenü den Punkt 'alle gewählten Tabellen drucken' anklicke um dies zu drucken. Die Tabellen können aber in einem anderen Dokument anders benannt sein, oder es existieren mehr wie die drei Standart-Tabellen. Außerdem muss man um ein solches Makro zu nutzen jedesmal Excel öffnen. Leider kenne ich mich mit WSH null aus, hat von euch schon mal jemand so was gemacht?
EDIT1: Mein erster Entwurf:
Code: (dl
)
1
2
3
4
5
6
7
8
9
10
11
12
13
' Datei: PrintAllWorksheets.vbs
' VBSkript zum drucken aller Worksheets
Set objXL = WScript.CreateObject("Excel.Application")
With objXL
.Visible = True
.Workbooks.Open ("c:\Eigene Dateien\mappe1.xls")
.Sheets(Array("Tabelle1", "Tabelle2", "Tabelle3")).Select
.Sheets.PrintPreview
.Workbooks.Close
.Quit
End With
Msgbox "Job erledigt!"
Problem 1: Der Pfad ist fest eingetragen.
Problem 2: Die Sheets müssen benannt werden.
Gruss,
Ronnie\n\n
<!--EDIT|Ronnie|1071132782-->