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

BATCH kann nicht gestartet werden

Mitglied: Sys3D

Sys3D (Level 1) - Jetzt verbinden

20.02.2006, aktualisiert 23.02.2006, 4254 Aufrufe, 3 Kommentare

Hi!

Ziel: Automatische PDF erstellung, sobalt man ein Dokument öffnet.

Folgend meine Anwendung:

Sobald ein Dokument mit Word geöffnet wird, startet ein VBA-Code, welcher den Dokumentennamen ausließt eine Postscriptdatei generiert und anschließend eine BAT-Datei erstellt (FreePDF/ghostscript kann automatisiert nur mit BAT-Dateien gesteuert werden).
Sobald diese BAT-Datei erstellt ist, wird sie von dem VBA-Code gestartet und das PDF mit dem richtigen Namen (also gleich wie der .doc-name) in einem festgelegten Verzeichnis abgespeichert.

Problem: Wenn der VBA-Code die BAT startet, ist das erstellte PDF leer. Klickt der User jedoch auf die eben von VBA erstellte BAT-Datei, wird das PDF ordnungsgemäß erstellt.

Ich bin ratlos.
Mitglied: Biber
20.02.2006 um 10:39 Uhr
Moin, Synamic,
hört sich an, als wäre zum Zeitpunkt der Batches kein Zugriff auf die Word-Datei möglich.
Hast Du denn ein explizites Document.Save vor dem Aufruf?
Poste doch bitte mal Deinen Makro-Schnipsel.

Grüße Biber
Bitte warten ..
Mitglied: Sys3D
20.02.2006 um 11:03 Uhr
Hi!

Nein, gespeichert wird nicht. Muss eigentlich auch nicht, denn das Dokument wird dann verworfen, nur das PDF bleibt also übrig.

Folgend der VBA-Code (Word97):

Public Function CreatePostScript()

Dim doc As String
doc = ActiveDocument.Name
doc = Left(doc, Len(doc) - 4)

ActivePrinter = "FreePDF XP"
Application.PrintOut FileName:="", Range:=wdPrintAllDocument, Item:= _
wdPrintDocumentContent, Copies:=1, Pages:="", PageType:=wdPrintAllPages, _
Collate:=True, Background:=True, PrintToFile:=True, OutputFileName:="C:\Dokumente und Einstellungen\dewea051\Desktop\Nadler\vor\" & doc & ".ps", _
Append:=False


End Function
Public Function searchFile(sFolder As String, sFileName As String) As Boolean
' search in a directory for a specific file name or the last part of a file
' if one file is found it gives the file path and name back
' if there is more then one the return value is 'false'
' if there is no result the return value is an empty string ""

Set fs = Application.FileSearch
With fs
'.LookIn = sFolder
.LookIn = sFolder
.SearchSubFolders = False
.FileName = sFileName
If .Execute() > 0 Then
searchFile = True
Else
searchFile = False
Exit Function
End If
End With

End Function



Sub anfang()


Call CreatePostScript
Dim doc As String
doc = ActiveDocument.Name
doc = Left(doc, Len(doc) - 4)


Call createFile(doc)

Shell ("D:\createPDF.bat")



End Sub

Public Function createFile(strFilename As String)

Dim fso, erstellen
Set fso = CreateObject("Scripting.FileSystemObject")
Set erstellen = fso.CreateTextFile("D:\createPDF.bat", True)
erstellen.writeline ("C:\Programme\gs8.51\bin\gswin32c.exe -q -dNOSAFER -dNOPAUSE -dBATCH -sDEVICE=pdfwrite -dCompatibilityLevel=1.3 -dPDFSETTINGS=/prepress -dLockDistillerParams=false -dAutoRotatePages=/PageByPage -dEmbedAllFonts=true -dSubsetFonts=true -r600 -dDownsampleMonoImages=true -dMonoImageDownsampleThreshold=1.5 -dMonoImageDownsampleType=/Bicubic -dMonoImageResolution=300 -dDownsampleGrayImages=true -dGrayImageDownsampleThreshold=1.5 -dGrayImageDownsampleType=/Bicubic -dGrayImageResolution=150 -dDownsampleColorImages=true -dColorImageDownsampleThreshold=1.5 -dColorImageDownsampleType=/Bicubic -dColorImageResolution=75 -dConvertCMYKImagesToRGB=false -sOutputFile=""C:\Dokumente und Einstellungen\dewea051\Desktop\nadler\nach\" & strFilename & ".pdf"" -c .setpdfwrite -f C:\DOKUME~1\dewea051\Desktop\Nadler\vor\" & strFilename & ".ps")
erstellen.Close

End Function
Bitte warten ..
Mitglied: Sys3D
23.02.2006 um 09:32 Uhr
Was mir aufgefallen ist: Wenn ich das Windows neu starte, funktioniert die ganze Anwendung ein mal. Also einmal wird ein komplettes PDF erstellt, folgende Versuche führen zu einem leeren PDF.

?¿?¿
Bitte warten ..
Ähnliche Inhalte
Batch & Shell

Batch soll überprüfen, ob Windows-Explorer gestartet ist

gelöst Frage von kaeptenbleiBatch & Shell6 Kommentare

Hallo zusammen, ich würde gerne in einer Batch überprüfen, ob der Windows-Explorer (Dateimanager) gestartet ist (unter Win7prof. x64). Super ...

Windows Server

GPO werden nicht gestartet

gelöst Frage von VSimonWindows Server1 Kommentar

Guten Morgen, ich habe ein kleines Problem und hoffe das Ihr mir weiterhelfen könnt. Ich verteile Abteilungslaufwerke per GPO, ...

Server

Plesk kann nicht gestartet werden

gelöst Frage von irxn84Server5 Kommentare

Hallo, ich bekomme keine Verbindung mehr zu meinen PLESK Server auf meinem 1und1 Server. /etc/init.d/psa status sagt mir , ...

Microsoft

Tool gesucht, das anzeigt welche scripts oder batch etc. NACH dem Anmelden gestartet werden

gelöst Frage von johanna-pMicrosoft8 Kommentare

Hallo, ich suche ein tool, das mir anzeigt, welche Startdateien (scripts, batch-Dateien etc.) NACH dem Anmelden gestartet werden. Clients ...

Neue Wissensbeiträge
Humor (lol)

WhatsApp-Nachrichten endlich auch per Bluetooth versendbar

Information von BassFishFox vor 15 StundenHumor (lol)3 Kommentare

Genau darauf habe ich gewartet! ;-) Der beliebte Messaging-Dienst WhatsApp erhält eine praktische neue Funktion: Ab dem nächsten Update ...

Google Android

Googles "Android Enterprise Recommended" für Unternehmen

Information von kgborn vor 1 TagGoogle Android3 Kommentare

Hier eine Information, die für Administratoren und Verantwortliche in Unternehmen, die für die Beschaffung und das Rollout von Android-Geräten ...

Sicherheit

Intel gibt neue Spectre V2-Microcode-Updates frei (20.02.2018)

Information von kgborn vor 1 TagSicherheit

Intel hat zum 20. Februar 2018 weitere Microcode-Updates für OEMs freigegeben, um Systeme mit neueren Prozessoren gegen die Spectre ...

Microsoft
ARD-Doku - Das Microsoft Dilemma
Tipp von Knorkator vor 1 TagMicrosoft3 Kommentare

Hallo zusammen, vor einigen Tagen lief in der ARD u.a. Reportage. Das Youtube Video dazu dürfte länger verfügbar sein. ...

Heiß diskutierte Inhalte
Server-Hardware
Welche Rolle spielt Design bei Enterprise IT Hardware?
Frage von ApolloXServer-Hardware17 Kommentare

Ich arbeite für einen internationalen Elektronikhersteller in der Forschung und meine Aufgabe ist es, Feedback von Nutzern in Hinsicht ...

Windows Netzwerk
WSUS4 und Windows 10 Updates automatisch installieren
Frage von sammy65Windows Netzwerk15 Kommentare

Hallo miteinander, ich habe mit einen neuen WSUS Server aufgesetzt Server 2016 darauf einen aktuellen WSUS. Grund, wir stellen ...

Switche und Hubs
Cisco SG350X-48 AdminIP in anderes VLAN
Frage von lcer00Switche und Hubs14 Kommentare

Hallo zusammen, ich habe ein Problem mir einem Cisco SG350X-48 bei der Erstinstallation wurde eine IP 192.168.0.254 (Default VLAN ...

Speicherkarten
Vergessliche USB-Sticks?
Frage von hanheikSpeicherkarten13 Kommentare

Ich habe in den letzten Tagen 500 USB-Sticks mit Bilddateien bespielt. Obwohl ich die Dateien mit größter Sorgfalt kopiert ...