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, 2966 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 ..
Neuester Wissensbeitrag
Internet

Unbemerkt - Telekom Netzumschaltung! - BNG - Broadband Network Gateway

(3)

Erfahrungsbericht von ashnod zum Thema Internet ...

Ähnliche Inhalte
Batch & Shell
Eventlog Druckjobs mit VBS auslesen (2)

Frage von joni2000de zum Thema Batch & Shell ...

VB for Applications
VBS Script zum versenden mehrerer Verknüpfungen zu Dateien per Lotus Notes

Frage von Sentinel87 zum Thema VB for Applications ...

Drucker und Scanner
gelöst PCL-Drucker drucken nur Hieroglyphen (5)

Frage von diwaffm zum Thema Drucker und Scanner ...

Windows Server
Drucken via RDP, Papier kommt aus falschem Schacht

Frage von torcolato zum Thema Windows Server ...

Heiß diskutierte Inhalte
Switche und Hubs
Trunk für 2xCisco Switch. Wo liegt der Fehler? (17)

Frage von JayyyH zum Thema Switche und Hubs ...

Windows Server
Outlook Verbindungsversuch mit Exchange (15)

Frage von xbast1x zum Thema Windows Server ...

DSL, VDSL
DSL-Signal bewerten (14)

Frage von SarekHL zum Thema DSL, VDSL ...