Top-Themen

Aktuelle Themen (A bis Z)

Administrator.de FeedbackApache ServerAppleAssemblerAudioAusbildungAuslandBackupBasicBatch & ShellBenchmarksBibliotheken & ToolkitsBlogsCloud-DiensteClusterCMSCPU, RAM, MainboardsCSSC und C++DatenbankenDatenschutzDebianDigitiales FernsehenDNSDrucker und ScannerDSL, VDSLE-BooksE-BusinessE-MailEntwicklungErkennung und -AbwehrExchange ServerFestplatten, SSD, RaidFirewallFlatratesGoogle AndroidGrafikGrafikkarten & MonitoreGroupwareHardwareHosting & HousingHTMLHumor (lol)Hyper-VIconsIDE & EditorenInformationsdiensteInstallationInstant MessagingInternetInternet DomäneniOSISDN & AnaloganschlüsseiTunesJavaJavaScriptKiXtartKVMLAN, WAN, WirelessLinuxLinux DesktopLinux NetzwerkLinux ToolsLinux UserverwaltungLizenzierungMac OS XMicrosoftMicrosoft OfficeMikroTik RouterOSMonitoringMultimediaMultimedia & ZubehörNetzwerkeNetzwerkgrundlagenNetzwerkmanagementNetzwerkprotokolleNotebook & ZubehörNovell NetwareOff TopicOpenOffice, LibreOfficeOutlook & MailPapierkorbPascal und DelphiPeripheriegerätePerlPHPPythonRechtliche FragenRedHat, CentOS, FedoraRouter & RoutingSambaSAN, NAS, DASSchriftartenSchulung & TrainingSEOServerServer-HardwareSicherheitSicherheits-ToolsSicherheitsgrundlagenSolarisSonstige SystemeSoziale NetzwerkeSpeicherkartenStudentenjobs & PraktikumSuche ProjektpartnerSuseSwitche und HubsTipps & TricksTK-Netze & GeräteUbuntuUMTS, EDGE & GPRSUtilitiesVB for ApplicationsVerschlüsselung & ZertifikateVideo & StreamingViren und TrojanerVirtualisierungVisual StudioVmwareVoice over IPWebbrowserWebentwicklungWeiterbildungWindows 7Windows 8Windows 10Windows InstallationWindows MobileWindows NetzwerkWindows ServerWindows SystemdateienWindows ToolsWindows UpdateWindows UserverwaltungWindows VistaWindows XPXenserverXMLZusammenarbeit

VBS PDF aufsteigend drucken

Frage Entwicklung VB for Applications

Mitglied: staga

staga (Level 1) - Jetzt verbinden

19.09.2012 um 09:55 Uhr, 3018 Aufrufe, 1 Kommentar

Hallo zusammen

Ich habe mir ein Script zusammengestellt welches mehrere PDF Dateien in einem Ordner ausdruckt. das ganze funktioniert soweit auch. Mein Problem ist nun das ich die Files in willkürlicher Reihenfolge gedruckt werden. Ich möchte diese jedoch aufsteigend drucken. Ich hoffe mir kann jemand weiterhelfen und sagen ob dies überhaupt möglich ist und wenn ja wie.

PS: Die Konvertierung der Files bzw. die Namen sind immer gleich aufgebaut: 100111_AB1_1933123_3653269_13.PDF
100111_AB1_1933321_3547789_13.PDF
100111_AB1_1945698_5698742_13.PDF
usw.

Ich möchte nun aufsteigend drucken bzw. sortiert nach dem 3 Segment xxxxxx_xxx_1966123_xxxxxxx_xx.PDF

Anbei das Script zum Drucken welches ich bereits erstellt habe:

01.
sSourceFolder = "C:\Print\" 
02.
If WScript.Arguments.Count > 0 Then 
03.
sSourceFolder = WScript.Arguments(0) 
04.
End If 
05.
Set fso = CreateObject("Scripting.FileSystemObject") 
06.
If Not fso.FolderExists(sSourceFolder) Then 
07.
WScript.Echo "Ordner " & sSourceFolder & " nicht verfügbar!" 
08.
WScript.Quit(2) 
09.
Else 
10.
bPrintetd = False 
11.
Set oShellApp = WScript.CreateObject("Shell.Application") 
12.
For Each oFile In fso.GetFolder(sSourceFolder).Files 
13.
If InstrRev(oFile.Name, ".") Then 
14.
If LCase(Mid(oFile.Name, InstrRev(oFile.Name, "."))) = ".pdf" Then 
15.
oShellApp.ShellExecute oFile.Path, "", "", "print", 0 
16.
bPrinted = True 
17.
WScript.Sleep(5180) 
18.
End If 
19.
End If 
20.
Next 
21.
Set oShellApp = Nothing 
22.
If Not bPrinted Then 
23.
WScript.Echo "Kein Dokument zum Drucken gefunden!" 
24.
WScript.Quit(1) 
25.
End If 
26.
End If
Mitglied: bastla
19.09.2012, aktualisiert um 21:22 Uhr
Hallo staga!

Sortieren kannst Du in VBS nach verschiedenen Verfahren - hier ein Beispiel mit einem "Disconnected Recordset":
01.
sSourceFolder = "C:\Print\" 
02.
If WScript.Arguments.Count > 0 Then 
03.
    sSourceFolder = WScript.Arguments(0) 
04.
End If 
05.
 
06.
Set fso = CreateObject("Scripting.FileSystemObject") 
07.
 
08.
Const adVarChar = 200 
09.
Const MaxCharacters = 255 
10.
Const adFldIsNullable = 32 
11.
Set DataList = CreateObject("ADOR.Recordset") 'Datenbankobjekt erstellen 
12.
DataList.Fields.Append "Datei", adVarChar, MaxCharacters, adFldIsNullable  'Feld definieren 
13.
DataList.Open 
14.
 
15.
If Not fso.FolderExists(sSourceFolder) Then 
16.
    WScript.Echo "Ordner " & sSourceFolder & " nicht verfügbar!" 
17.
    WScript.Quit(2) 
18.
Else 
19.
    bPrintetd = False 
20.
    Set oShellApp = WScript.CreateObject("Shell.Application") 
21.
    For Each oFile In fso.GetFolder(sSourceFolder).Files 
22.
        If LCase(fso.GetExtensionName(oFile.Name)) = "pdf" Then 
23.
            DataList.AddNew 'neuen Datensatz erstellen 
24.
            DataList("Datei") = oFile.Path 'dem Feld "Datei" den Pfad als Wert zuweisen 
25.
            DataList.Update 'Datensatz eintragen 
26.
        End If 
27.
    Next 
28.
    If Not DataList.EOF Then 'gibt es Daten? 
29.
        DataList.Sort = "Datei" 'nach dem Feld "Datei" sortieren 
30.
        DataList.MoveFirst 'beim ersten Datensatz beginnen ... 
31.
        Do Until DataList.EOF '... und bis zum letzten durchgehen 
32.
            oShellApp.ShellExecute DataList.Fields.Item("Datei"), "", "", "print", 0 
33.
            WScript.Sleep(5180) 
34.
            DataList.MoveNext 'nächsten Datensatz holen 
35.
        Loop 
36.
    Else 
37.
        WScript.Echo "Kein Dokument zum Drucken gefunden!" 
38.
        WScript.Quit(1) 
39.
    End If 
40.
End If
Zu überlegen wäre natürlich auch noch, die gedruckten Dateien zu verschieben, damit sie nicht mehrfach ausgedruckt werden ...

Grüße
bastla
Bitte warten ..
Ähnliche Inhalte
Windows Tools
PDF-Drucker
gelöst Frage von malikaWindows Tools25 Kommentare

Hallo, ich bräuchte einen guten PDF-Drucker (für Windows 7 Pro 64 Bit-BS) zum Verschicken der Daten per E-Mail. Ich ...

Batch & Shell
Powershell PDF drucken auf verschiedene Drucker
gelöst Frage von ChrissssiBatch & Shell2 Kommentare

Hallo zusammen, Mein Problem ist das ich PDF Dateien habe die ich auf unterschiedliche Drucker automatisch drucken muss. Das ...

Entwicklung
Automatischer PDF Druck auf spezifischen Drucker
Frage von Orvqb99d5E2UEntwicklung4 Kommentare

Hi. Ich benötige für einen Windows Server ein Script mit folgenden Eigenschaften: Order1 soll überprüft werden, wenn dort neue ...

Entwicklung
Vbs - Email versenden mit pdf-Anhang?
gelöst Frage von BenJo64Entwicklung2 Kommentare

Hallo, ich verzweifele gerade an folgendem Problem: Ich versuche von einem Microsoft Windows Server 2003 aus eine pdf als ...

Neue Wissensbeiträge
Windows 10

Autsch: Microsoft bündelt Windows 10 mit unsicherer Passwort-Manager-App

Tipp von kgborn vor 1 TagWindows 104 Kommentare

Unter Microsofts Windows 10 haben Endbenutzer keine Kontrolle mehr, was Microsoft an Apps auf dem Betriebssystem installiert (die Windows ...

Sicherheits-Tools

Achtung: Sicherheitslücke im FortiClient VPN-Client

Tipp von kgborn vor 1 TagSicherheits-Tools

Ich weiß nicht, wie häufig die NextGeneration Endpoint Protection-Lösung von Fortinet in deutschen Unternehmen eingesetzt wird. An dieser Stelle ...

Internet

USA: Die FCC schaff die Netzneutralität ab

Information von Frank vor 1 TagInternet5 Kommentare

Jetzt beschädigt US-Präsident Donald Trump auch noch das Internet. Der neu eingesetzte FCC-Chef Ajit Pai ist bekannter Gegner einer ...

DSL, VDSL

ALL-BM200VDSL2V - Neues VDSL-Modem mit Vectoring von Allnet

Information von Lochkartenstanzer vor 2 TagenDSL, VDSL2 Kommentare

Moin, Falls jemand eine Alternative zu dem draytek sucht: Gruß lks

Heiß diskutierte Inhalte
Batch & Shell
Kann man mit einer .txt Datei eine .bat Datei öffnen?
Frage von HelloWorldBatch & Shell16 Kommentare

Wie schon im Titel beschrieben würde ich gerne durch einfaches klicken auf eine Text oder Word Datei eine Batch ...

Router & Routing
OpenWRT bzw. L.E.D.E auf Buffalo WZR-HP-AG300H - update
gelöst Frage von EpigeneseRouter & Routing11 Kommentare

Guten Tag, ich habe auf einem Buffalo WZR-HP-AG300H die alternative Firmware vom L.E.D.E Projekt geflasht. Ich bin es von ...

Windows Server
Ping auf einen bestimmten Server nicht möglich
gelöst Frage von a.thierWindows Server7 Kommentare

Hallo, ich habe folgendes Problem. srv-dc1: Ping srv-nav > geht Ping srv-exchange > geht nicht srv-exchange: Ping srv-dc1 > ...

Hardware
Fujitsu Workstation mit K80 und Quadro P5000, Fehlermeldung: Connect Power Adapter
Frage von MachelloHardware7 Kommentare

Hallo Zusammen, ich benötige euren Rat da ich ratlos bin. Folgende Konfiguration im Büro: Fujitsu Workstation Celcius R940 Power ...