Top-Themen

AppleEntwicklungHardwareInternetLinuxMicrosoftMultimediaNetzwerkeOff TopicSicherheitSonstige SystemeVirtualisierungWeiterbildungZusammenarbeit

Aktuelle Themen

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, 2997 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
VB for Applications
gelöst Tool zur scriptbasierten PDF-Bearbeitung gesucht (VBS oder Batch) (6)

Frage von SarekHL zum Thema VB for Applications ...

Batch & Shell
PDF auf Email automatisiert über Netzwerk drucken (1)

Frage von Str33tfight3r zum Thema Batch & Shell ...

Windows Tools
Adobe PDF Drucker Zahlen abgeschnitten (3)

Frage von lupita zum Thema Windows Tools ...

Batch & Shell
gelöst Hilfe Bei einem vbs Script (19)

Frage von Hattori-Hanzo zum Thema Batch & Shell ...

Neue Wissensbeiträge
RedHat, CentOS, Fedora

Fedora, RedHat, Centos: DNS-Search Domain setzen

(13)

Tipp von Frank zum Thema RedHat, CentOS, Fedora ...

Drucker und Scanner

Samsung SL-M4025ND, firmware update und (kompatible) Tonerkassetten

(1)

Erfahrungsbericht von markus-1969 zum Thema Drucker und Scanner ...

Heiß diskutierte Inhalte
CMS
Lokales Wordpress im LAN - wie aufsetzen? (16)

Frage von Static zum Thema CMS ...

LAN, WAN, Wireless
gelöst Komplett neues Netzwerk, Ubiquiti WLAN, Router, Switch (16)

Frage von Freak-On-Silicon zum Thema LAN, WAN, Wireless ...

LAN, WAN, Wireless
IP im privaten Netz nicht erreichbar (14)

Frage von guntis zum Thema LAN, WAN, Wireless ...

LAN, WAN, Wireless
Devolo DLAN 500 pro Wireless+ (13)

Frage von IceAge zum Thema LAN, WAN, Wireless ...