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, 2984 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
Ähnliche Inhalte
Basic
gelöst Mit vb.net PDF in Word-Dok einfügen (10)

Frage von ahstax zum Thema Basic ...

Batch & Shell
gelöst Base64 Decode (Batch,VBS) (26)

Frage von clragon zum Thema Batch & Shell ...

Bibliotheken & Toolkits
Gesucht: Open Source bzw. Kostengünstige PDF SDK für Softwareentwicklung (7)

Frage von JanGarbers zum Thema Bibliotheken & Toolkits ...

Heiß diskutierte Inhalte
Erkennung und -Abwehr
Virenschutz - Meinungen (28)

Frage von honeybee zum Thema Erkennung und -Abwehr ...

Windows 10
Welches OS für Firmengeräte? (18)

Frage von MarkusVH zum Thema Windows 10 ...

Netzwerke
Abisolierwerkzeug (18)

Frage von SarekHL zum Thema Netzwerke ...

Exchange Server
SBS2011: POP3-Connector 10 MB Grenze Email Benachrichtigung (17)

Frage von bogi1102 zum Thema Exchange Server ...