Thema Datum  Von Nutzer Rating
Antwort
14.07.2008 10:11:45 guest007
NotSolved
Blau Aw:Alle Inhalte eines Ordners drucken
 15.07.2008 13:49:39 Holger
NotSolved

Ansicht des Beitrags:
Von:
Holger		 Datum:
15.07.2008 13:49:39		 Views:
833		 Rating:
     
Antwort:
  Ja
Thema:
Aw:Alle Inhalte eines Ordners drucken
Hallo guest007,
hier ein Vorschlag:
Sub PPT_Drucken()
Dim d, Text, Start, n, fso, fldr, fls, b
Text = "Bitte Verzeichnis mit zu druckenden Präsentationen wählen!"
Start = "C:\" 'Dein oberstes Verzeichnis zum Suchen einsetzen
Dim objShell As Object
Set objShell = CreateObject("Shell.Application").BrowseForFolder(0&, Text, &H200, Start)
If Not objShell Is Nothing Then Ordner = objShell.Self.Path Else Exit Sub
n = InputBox("Anzahl der Ausfertigungen", "ppt-Dateien drucken", "1")
Set fso = CreateObject("Scripting.FileSystemObject")
Set fldr = fso.getfolder(Ordner)
Set fls = fldr.Files
b = fls.Count
If b > 0 Then
For Each d In fls
Stop
If InStr(d, ".ppt") Then
Presentations.Open (d)
With Application.ActivePresentation.PrintOptions
.PrintColorType = ppPrintColor
.NumberOfCopies = n
End With
ActivePresentation.PrintOut
End If
Next
End If
End Sub

Viel Erfolg
Holger

guest007 schrieb am 14.07.2008 10:11:45:

Hallo miteinander
Ich wollte ein Tool schreiben, bei welchem man den Pfad eines Ordners angibt und die im Ordner enthaltenen ppt-Files ausdruckt.
Zudem sollte es auch möglich sein die Anzahl der Drucke anzugeben.
Ausserdem wollte ich noch wissen ob es möglich ist die Druckereinstellungen mit vba zu ändern. Standarteinstellung beim Drucker ist Schwarz-Weiss. Kann ich sagen er soll farbig ausdrucken?

Ihre Antwort
  • Bitte beschreiben Sie Ihr Problem möglichst ausführlich. (Wichtige Info z.B.: Office Version, Betriebssystem, Wo genau kommen Sie nicht weiter)
  • Bitte helfen Sie ebenfalls wenn Ihnen geholfen werden konnte und markieren Sie Ihre Anfrage als erledigt (Klick auf Häckchen)
  • Bei Crossposting, entsprechende Links auf andere Forenbeiträge beifügen / nachtragen
  • Codeschnipsel am besten über den Code-Button im Text-Editor einfügen
  • Die Angabe der Emailadresse ist freiwillig und wird nur verwendet, um Sie bei Antworten auf Ihren Beitrag zu benachrichtigen
Thema: Name: Email:



  • Bitte beschreiben Sie Ihr Problem möglichst ausführlich. (Wichtige Info z.B.: Office Version, Betriebssystem, Wo genau kommen Sie nicht weiter)
  • Bitte helfen Sie ebenfalls wenn Ihnen geholfen werden konnte und markieren Sie Ihre Anfrage als erledigt (Klick auf Häckchen)
  • Bei Crossposting, entsprechende Links auf andere Forenbeiträge beifügen / nachtragen
  • Codeschnipsel am besten über den Code-Button im Text-Editor einfügen
  • Die Angabe der Emailadresse ist freiwillig und wird nur verwendet, um Sie bei Antworten auf Ihren Beitrag zu benachrichtigen

Thema Datum  Von Nutzer Rating
Antwort
14.07.2008 10:11:45 guest007
NotSolved
Blau Aw:Alle Inhalte eines Ordners drucken
 15.07.2008 13:49:39 Holger
NotSolved