Top-Themen

AppleEntwicklungHardwareInternetLinuxMicrosoftMultimediaNetzwerkeOff TopicSicherheitSonstige SystemeVirtualisierungWeiterbildungZusammenarbeit

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, 3014 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 Server
PDF-Drucker Terminalserver (free) (11)

Frage von mexx991 zum Thema Windows Server ...

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 ...

Neue Wissensbeiträge
Windows 10

Neues Win10 Funktionsupdate verbuggt RemoteApp

Information von thomasreischer zum Thema Windows 10 ...

Microsoft

Die neuen RSAT-Tools für Win10 1709 sind da

(2)

Information von DerWoWusste zum Thema Microsoft ...

Humor (lol)

Wohnt jemand in Belgien und kann nicht mehr ruhig ausschlafen?

(6)

Information von LordGurke zum Thema Humor (lol) ...

Heiß diskutierte Inhalte
Router & Routing
Allnet - VDSL2 Modem - SFP (mini-GBIC) (20)

Frage von Dobby zum Thema Router & Routing ...

Voice over IP
DeutschlandLAN IP Voice Data M Premium, Erfahrung mit Faxgeräte? (17)

Frage von liquidbase zum Thema Voice over IP ...

TK-Netze & Geräte
TK-Anlage VoIP - DECT Erweiterung (16)

Frage von Lynkon zum Thema TK-Netze & Geräte ...