Excel soll alle Tabellen drucken: Windows-Skripting (sonstige Sprachen, auch PHP)

[thread]1043[/thread]

Excel soll alle Tabellen drucken: Windows-Skripting

Ronnie

2003-12-11 12:27

User since
2003-08-14
2022 Artikel
BenutzerIn
[default_avatar]

Okay, die Lösung (ich hasse vb):

Code: (dl )

' Datei: PrintAllWorksheets.vbs
' VBSkript zum drucken aller Worksheets
Dim ag
Set ag=Wscript.Arguments
Dim fso
Dim File
Set fso = CreateObject("Scripting.FileSystemObject")
Set file = fso.GetFile(Ag(0))

Set objXL = WScript.CreateObject("Excel.Application")
 With objXL
     .Visible = True
     .Workbooks.Open (file)
       '.Sheets(Array(1, 2, 3)).Select
       .Sheets.Select
       .Sheets.PrintPreview
     .Workbooks.Close
     .Quit
 End With
 Msgbox "Job erledigt!"

Ronnie

2003-12-11 09:54

User since
2003-08-14
2022 Artikel
BenutzerIn
[default_avatar]

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:

Code: (dl )

' 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

View all threads created 2003-12-11 12:27.